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Weißt  Du  wieviel 
Sternlein  stehen ... 

Mit  der  Anwendung  des 
Monats  können  Sie  sich 
jeden  Abend  eine  Ster- 
nenkarte  zeichnen  las¬ 
sen,  um  Sternbilder, 
Sterne  und  Planeten 
am  Nachthimmel  leich¬ 
ter  zu  finden.  Interes¬ 
sant  dabei:  Sie  können 
von  jedem  Punkt  der  Er¬ 
de  den  Sternenhimmel 
betrachten. 
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Infocom-Geheimnisse 

gelüftet? 

Die  Infocom-Adventures 
gehören  zu  den  besten 
Abenteuerspielen.  Um 
sie  zu  lösen,  könnte 
man  sich  der  angebo- 
ten  »Hint  books«  bedie¬ 
nen.  Um  Ihnen  bei  den 
schwierigsten  Stellen 
zu  helfen,  ohne  den  ei¬ 
gentlichen  Spaß  zu  ver¬ 
derben,  haben  wir  Tips 
für  14  Infocom-Adven¬ 
tures  zusammenge¬ 
stellt. 
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Logo  im  Test 

Bunte  Grafiken  sind 
zwar  gewissermaßen 
das  Markenzeichen  von 
Logo,  aber  durchaus 
nicht  das  einzige,  was 
diese  moderne  Pro¬ 
grammiersprache  zu 
bieten  hat.  Listenverar¬ 
beitung  und  Rekursio¬ 
nen  sind  weitere  Stich¬ 
worte;  in  der  C  64-Ver- 
sion  gibt’s  als  Zugabe 
noch  acht  Kobolde  und 
jede  Menge  Spaß  am 
Programmieren. 
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Die  Videowerkstatt 

Mit  dem  Digitizer  VD  64 
lassen  sich  sehr  leicht 
Videobilder  vom  Video¬ 
recorder  oder  von  der 
Videokamera  in  den 
Speicher  des  C  64 
übertragen.  Es  stehen 
vier  Graustufen  oder 
Farben  zur  Verfügung. 
Beachtenswert  ist  die 
Geschwindigkeit:  zwei 
Bilder  pro  Sekunde. 
Zum  Digitalisieren  kann 
jedes  Videosignal  her¬ 
genommen  werden. 
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Alle  Matrixdrucker 
für  den  C  64 
Der  Drucker  ist  neben 
den  Massenspeichern 
das  wichtigste  Periphe¬ 
riegerät  für  den  Com¬ 
puter.  Der  meistverwen- 
dete  Typ  ist  dabei  der 
Matrixdrucker.  Ausführ¬ 
liche  Tests  der  neue¬ 
sten  Drucker,  eine 
Marktübersicht  und 
Vergleichstest  der 
Drucker  unter  700  Mark 
sollen  Ihnen  bei  der 
Entscheidung  helfen. 

Seite  1 5 
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Mit  5  Mark  zu 
neuen  Dimensionen 


Daß  eine  gute  Stereo¬ 
anlage  mehr  Klangvoiu- 
men  als  der  Lautspre¬ 
cher  eines  Fernsehers 
oder  Monitors  hat,  ist 
eine  Binsenweisheit. 
Wir  zeigen  Ihnen  daher, 
wie  Sie  mit  sehr  einfa¬ 
chen  Mitteln  einen  C  64 
an  eine  Stereoanlage 
anschließen  können. 
Nicht  nur  Ghostbusters 
wird  dadurch  zum 
Erlebnis. 
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Editorial 


Künstlich  intelligent? 

»Eliza«,  die  wir  als  Anregung 
für  unseren  Programmierwett¬ 
bewerb  (das  Ergebnis  finden 
Sie  in  dieser  Ausgabe)  genom¬ 
men  haben,  ist  einer  der  klassi¬ 
schen  Versuche  auf  dem  Gebiet 
der  Künstlichen  Intelligenz.  Das 
Programm  und  vor  allem  die  Re¬ 
aktion  des  Publikums  zeigten 
schon  vor  Jahren,  daß  der  Com¬ 
puter  für  intelligent  gehalten 
wird,  weil  der  Mensch  in  die 
programmierten  Fragen  und 
Antworten  Intelligenz,  das  heißt 
einen  bestimmten  Sinn  hinein 
interpretiert.  Derartige  Effekte 
nutzte  man  aber  schon  in  der  An¬ 
tike  beim  Orakel  von  Delphi 
ganz  ohne  Rechner... 

Ein  wesentliches  Problem  bei 
den  Forschungen  auf  dem  Ge¬ 
biet  der  Künstlichen  Intelligenz 
ist  die  Interpretation  der  natürli¬ 
chen  Sprache.  Unsere  normale 
Ausdrucksweise  ist  für  einen 
Computer  viel  zu  redundant  (wir 
machen  zu  viele  Worte)  und  viel 
zu  ungenau  beziehungsweise 
unvollständig  (wir  setzen  zu  viel 
als  selbstverständlich  bekannt 
voraus). 

Ob  es  um  automatische  Über¬ 
setzung,  akustische  Sprachein¬ 
gabe  oder  Programmieren  und 
Datenbankabfrage  in  natürli 
eher  Sprache  geht:  Die  Proble¬ 
me  häufen  sich.  Bis  ein  Compu¬ 
ter  richtig  Deutsch  versteht 
(Englisch  kann  er  auch  nicht 
besser  -  GET  hin,  PRINT  her), 
wird  noch  einige  Zeit  vergehen. 
Vorläufig  ist  man  keineswegs  si¬ 
cher,  ob  ein  Computer  den  Bi¬ 
belspruch  »Der  Geist  ist  willig, 
aber  das  Fleisch  ist  schwach« 
mit  »Es  fehlt  nicht  an  guten  Ab¬ 
sichten,  sondern  an  der  Realisie¬ 
rung«  oder  mit  »Der  Whisky  war 
in  Ordnung,  aber  das  Steak  ließ 
zu  wünschen  übrig«  übersetzen 
würde.  Woraus  Sie  ersehen,  daß 
Künstliche  Intelligenz  nicht  nur 
ein  Fbrschungsprojekt  mit 
Tücken,  sondern  auch  ein 
durchaus  amüsantes  Denk¬ 
sportthema  ist. 


Die  neue  Abmahn¬ 
masche:  Vbrsicht 
bei  Programm- 
angenoten 

Die  neueste  Abmahn-Masche, 
mit  der  unterbeschäftigte  Rechtsanwäl¬ 
te  hart  am  Rande  der  Legalität  zu 
Geld  zu  kommen  suchen, 
trifft  die  Programmierer 


So  bekam  kürzlich  ein  Le¬ 
ser,  der  eine  selbstge¬ 
schriebene  Grafik-Routme 
für  30  Mark  in  einer  Kleinan¬ 
zeige  angeboten  hatte,  von 
einem  Rechtsanwalt  eine  Ab 
mahnung  samt  Gebühren¬ 
forderung  über  301,60  Mark 
(willkürlich  vom  Anwalt  fest¬ 
gesetzter  »Streitwert«:  20000 
Mark).  Begründung:  In  der 
Anzeige  fehle  der  Hinweis, 
daß  es  sich  um  emen  ge¬ 
werblichen  Anbieter  handle 
—  das  verstoße  aber  gegen 
das  Gesetz  gegen  unlaute¬ 
ren  Wettbewerb 
Das  wäre  in  Ordnung, 
wenn  es  sich  bei  dem  Anbie¬ 
ter  um  eine  Firma  handeln 
würde  —  oder  wenn  der  Soft¬ 
wareverkauf  gewerblich  be¬ 
trieben  würde.  Nun  gibt  es 
aber  viele  Computerbenut¬ 
zer,  die  zwar  bereit  (und  viel¬ 
leicht  sogar  interessiert 


sind),  das  eine  oder  ande¬ 
re  selbstgeschriebene  Pro¬ 
gramm  an  Interessenten  ab¬ 
zugeben  —  die  aber  daraus 
keineswegs  ein  Geschäft 
oder  gar  Gewerbe  machen 
wollen.  Um  Ärger  mit  ge¬ 
werblich  tätigen  Firmen, 
Rechtsanwälten  und  vor  al¬ 
lem  dem  Finanzamt  zu  ver¬ 
meiden,  sollten  Sie  entwe¬ 
der  nur  tauschen  (Tausch 
zwischen  Privatleuten  im 
Rahmen  ihres  Hobbys  ist  kei¬ 
ne  gewerbliche  Tätigkeit) 
oder  darauf  achten,  daß  Sie 
lediglich  einen  Kostenersatz 
berechnen.  Es  ist  zweckmä¬ 
ßig,  den  Betrag  zu  spezifizie¬ 
ren  —  zum  Beispiel  1,30  Mark 
Porto,  10  Fotokopien  ä  0,60 
Mark,  eine  Diskette  ä  4,85 
Mark  und  so  weiter. 

Wenn  Sie  einen  —  und  sei 
er  auch  nur  bescheiden  — 
Gewinn  erzielen  wollen, 


müssen  Sie  auf  schriftlichen 
Unterlagen  in  Inseraten  und 
so  weiter  durch  eine  geeig¬ 
nete  Angabe  wie  »Firma«, 
»Programmierbüro«,  »Soft¬ 
warevertrieb«  oder  ähnli¬ 
ches  erkennen  lassen,  daß 
Sie  sich  gewerblich  betäti¬ 
gen.  Sie  müssen  außerdem 
das  Gewerbe  bei  der  Ge¬ 
meinde  beziehungsweise 
Stadt  anmelden  und  ein  Mi¬ 
nimum  an  Buchführung  ma¬ 
chen,  damit  Sie  dem  Finanz¬ 
amt  jederzeit  Umsätze,  Ko¬ 
sten  und  Gewann  nachwei- 
sen  können.  In  den  meisten 
Fällen  werden  Umsatz  und- 
Ertrag  so  gering  sein,  daß 
ohnehin  keine  ernstzuneh¬ 
mende  Menge  Steuern  zu 
bezahlen  ist. 

Sollten  Sie  als  Privatmann 
eine  Abmahnung  der  oben 
erwähnten  Art  bekommen, 
dann  schreiben  Sie  umge¬ 
hend  zurück,  daß  Sie  ihren 
Computer  nur  privat  benut¬ 
zen,  die  Programme  für  pri¬ 
vate  Zwecke  geschrieben 
haben  und  durch  das  Anbie¬ 
ten  ihrer  selbstgeschriebe¬ 
nen  Progamme  Kontakt  zu 
anderen  Computerbenut¬ 
zern  zum  Zweck  des  Erfah- 
rungs-  und  Programmaus¬ 
tauschessuchen.  Ihre  selbst¬ 
geschriebenen  Programme 
gäben  Sie  entweder  im 
Tausch  oder  gegen  Ersatz 
der  durch  Erstellen  und  Ver¬ 
senden  der  Kopie  entstehen¬ 
den  Kosten  ab,  Falls  das  zu¬ 
trifft,  brauchen  Sie  auch  kei¬ 
ne  Unterwerfungserklärung 
abzugeben  und  keine  Ge¬ 
bühren  zu  zahlen. 

(py) 


Abmahnschwindler  nie  gefaßt 


Mit  einem  Abmahnschwindel 
besonderer  Art  tat  sich  im  ver¬ 
gangenen  lahr  eine  »R  +  S  Com¬ 
puterorganisation«  in  Berün  her¬ 
vor:  Sie  trat  als  angeblicher 
Wettbewerber  auf,  verlangte 
von  zahlreichen  Anbietern  von 
Raubkopien  die  Abgabe  einer 
Unterlassungserklärung  sowie 
die  Bezahlung  einer  Gebühren- 
rechnung  in  Höhe  von  mehreren 
hundert  Mark.  Der  Rechnungs¬ 
betrag  sollte  in  bar  zusammen 
mit  der  Unterlassungaerklarung 
an  eine  Postfachadresse  m  Ber¬ 
lin  geschickt  werden.  Die  Staats¬ 
anwaltschaft  schaltete  sich  sehr 


schnell  ein  und  stellte  fest,  daß 
das  angegebene  Postfach  in  der 
vorgegaukelten  Form  nicht  exi¬ 
stierte.  Es  handelte  sich  dabei, 
wie  die  Justizpressestelle  jetzt 
auf  Anfrage  mitteilte,  um  die 
Nummer  einer  Postlagerkarte 
bei  einem  Berliner  Postamt,  die 
tatsächlich  ausgegeben  worden 
war  »ohne  daß  die  Personalien 
des  Empfängers  notiert  worden 
wären  oder  hätten  notiert  wer¬ 
den  müssen«.  Bei  Beobachtun¬ 
gen  in  dem  Postamt  stellte  die 
Kriminalpolizei  im  vergangenen 
Jahr  zwar  einen  lSjährigen  Jun¬ 
gen,  der  mit  der  Postlagerkarte 


und  einer  Vollmacht  der  Schwin- 
delfirma  die  Post  abholen  wollte. 
Als  die  Polizisten  ihn  nach  dem 
Auftraggeber  fragten,  deutete 
er  auf  einen  etwa  hundert  Meter 
vom  Postamt  entfernt  stehenden 
Mann,  der  daraufhin  zusammen 
mit  einem  anderen,  mit  einem 
Auto  die  Flucht  ergriff.  Da  der 
Junge  nach  Feststellungen  der 
Polizei  als  Mittäter  ausscheidet 
und  die  beiden  Flüchtigen  nicht 
identifiziert  werden  konnten, 
wurde  das  Verfahren  gegen  R  + 
S  wohl  oder  übel  eingestellt. 

(py) 


Michael  Pauly,  Chefredakteur 
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Software  fast  umsonst 

Der  »Folklife  Terminal  Club«  in 
den  USA  hat  seine  Software- 
Palette  PET,  CBM,  C  64,  VC  20,  C 
16  und  Plus/4  auf  über  6000  Pro¬ 
gramme  vergrößert  und  auch 
für  Nichtmitglieder  zugänglich 
gemacht.  Es  handelt  sich  dabei 
um  »Public  Domain  Software«, 
die  von  den  Autoren  umsonst  zur 
Verfügung  gestellt  wird,  Für  die 
Diskette,  den  Kopieraufwand 
und  die  Versandkosten  werden 
allerdings  IS  Dollar  berechnet. 
Als  erstes  sollte  man  sich  die 
»Catalog  Disk«  für  seinen  Com¬ 
putertyp  bestellen.  Sie  enthält 
alle  Programme,  die  derzeit  an- 
geboten  werden.  Die  Bezahlung 
sollte  über  einen  Bankscheck, 
den  auch  US-Banken  akzeptie¬ 
ren  oder  über  Auslandspostan¬ 
weisungen  erfolgen, 

Info:  Folklife  Terminal  Club  Bo*  SSS-SB  Co- 
op  City  Slalion.  Bronx.  N.Y  10475  USA 

Vorsicht  »B-Piotine« 

Für  das  europäische  Ausland 
werden  Commodore  64  mit  ei¬ 
nem  »B-Board«  vertrieben.  Com¬ 
puter  mit  dieser  Board-Version 
sind  weder  VDE-  noch  FTZ- 
zugclasscn.  ln  Deutschland  darf 
nur  die  zugelassene  A-Version 
gekauft  werden.  Wegen  grund¬ 
sätzlicher  Unterschiede  zwi¬ 
schen  den  einzelnen  Board- 
Versionen  können  diese  Compu¬ 
ter  nicht  den  postalischen  Bedin¬ 
gungen  entsprechend  umgerü¬ 
stet  werden.  Einige  Händler 
scheinen  sich  mit  diesen  B- 
Versionen  aus  dem  Ausland  em- 
gedeckt  zu  haben.  Sollte  Ihr  C  64 
den  Fernsehempfang  des  Nach¬ 
barn  stören,  haben  Sie  vielleicht 
einen  B-Computer  erwischt,  der 
möglicherweise  zu  Schwierig¬ 
keiten  mit  den  zuständigen  Be¬ 
hörden  (Post)  führen  kann.  Wol¬ 
len  Sie  sich  einen  C  64  kaufen,  so 
vergewissern  Sie  sich  bitte  vor¬ 
her,  ob  dieser  die  A-Platine  be¬ 
sitzt. 


Schneller  mit  Modul 

Roreger  bietet  die  Schnell¬ 
lade-  und  Schnellspeicher-Sy¬ 
steme  TurboROM-Disksystem 
und  Tapesystem  auf  Modul  für 
den  Expansion-Port  des  C  64  an. 
Dadurch  soll  kein  Eingriff  mehr 
in  den  Computer  oder  das 
Floppy-Laufwerk  erforderlich 
sein.  Außerdem  soll  das  System 
voll  kompatibel  zu  Steckplatzer¬ 
weiterungen  sein.  Das  Tape- 
System  arbeitet  auch  mit  Simons 
Basic  und  Files,  die  mit  Turbo- 
Tape  oder  Fast  Tape  aufgenom¬ 
men  wurden  zusammen.  LOAD, 
SAVE  und  VERIFY  sollen  bis  zu 
10  mal  schneller,  beim  Disk- 
System  bis  zu  7  mal  schneller 
(abspeichem  3,5  mal)  sein. 

Inlo:  Dipl.-Ing.  K.  Roreger,  Liebigstr.  28, 
4780  Lippatadt 


Floppy  1541  jetzt  für 
PC-1500 

Den  Anschluß  von  bis  zu  drei 
1541-Laufwerken  an  den  Sharp 
PC-1500  soll  das  Floppy-Inter- 
face  von  Tramsoft  ermöglichen. 
Alle  Möglichkeiten  des  C-1541- 
DOS  sollen  dabei  erhalten  blei¬ 
ben.  Ausgerüstet  mit  zusätzli¬ 
cher  Software,  kann  am  gleichen 
Interface  auch  ein  Drucker  oder 
Plotter  mit  Centronics-Eingang 
betrieben  werden. 

Info:  SRS  Ing.  Rudolt  W.  Fankhauser.  Post 
fach  UIS,  7893  Jestetten,  Tel.  (041 33)  62393 


Software  für  Klein¬ 
betriebe 

Um  aus  dem  C  64  ein  leistungs¬ 
fähiges  Arbeitsmittel  für  Klein¬ 
betriebe  zu  machen,  hat  SM  Soft¬ 
ware  eine  eigene  Software-Serie 
mit  dem  Namen  »Small  Business« 
entwickelt.  Diese  kaufmännisch 
orientierte  Software-Serie  bein¬ 
haltet  die  Programmbausteine 
Textverarbeifong,  Lohn-/Ge- 
haltsabrechnung,  Lagerverwal 
tung,  Adreßverwaltung  sowie 
ein  reines  Fakturierungspro¬ 
gramm.  Alle  Programme  zusam¬ 
men  sollen  zirka  1000  Mark  in¬ 
klusive  Mehrwertsteuer  kosten. 

Info.  SM  Software  AG,  Small  Business  Servi¬ 
ce,  Scherbaumar.  33.  8000  München  83. 
Tel.(089)6371211 

Ferien  mit 
dem  Computer 

Für  Emsteiger,  Fortgeschritte¬ 
ne  und  Computerfüchse  bietet 
sich  durch  fun  &  future  in  den 
Sommerfenen  die  Möglichkeit, 
zwei  Wochen  Computerurlaub 
in  Bad  1  larzburg  zu  verbringen. 
Das  Angebot  richtet  sich  an  11- 
bis  19jährige,  die  folgende  Kur¬ 
se  belegen  können:  Logo,  Basic 
I  bis  III,  Spiele,  Maschinenspra¬ 
che  und  Pascal.  Der  täglich 
4stündige  Computerunterricht 
ist  kombiniert  mit  einem  vielfälti¬ 
gen  Freizeitangebot. 

Info:  fun  &  future  Scnopka  KG,  Mmelstr.  88, 
2000  Norderstedt,  Tel.  (040)  52431 76 

Data-Com  Plus  — 
Datasette  leicht  justiert 

Nie  mehr  LOAD  ERROR!  Da¬ 
mit  dieser  Traum  zur  Wirklich¬ 
keit  wird,  muß  man  eigentlich 
nur  den  Tbnkopf  der  Datasette 
neu  justieren.  Dabei  soll  das  Ge¬ 
rät  Data-Com  Plus,  das  zusam¬ 
men  mit  einer  Einmeßkassette 
zum  Preis  von  39  Mark  erhältlich 
ist,  helfen. 

Info:  Computer  Store,  Hetzebrockerar.  46, 
4830 Gütersloh  1,  Tel.  (0S24I)  12080 


Jetzt  auch  in  Deutsch¬ 
land  ein  Strategie- 
spiele-Versand 

Für  alle,  die  sich  für  Strategie- 
spiele  begeistern,  wurde  jetzt 
ein  Spezialversand  für  diese 
Spielgattung  gegründet.  Die  Fir¬ 
ma  Thomas  Müller  Corhputer- 
Service  ha;  sich  auf  den  Verrieb 
von  SSI-  und  Avalon-Hill-Strate- 
gie-Software  spezialisiert.  Sie 
besitzt  außerdem  die  Rechte, 
deutsche  Anleitungen  für  SS1- 
Spiele  herzustellen.  Raubkopie¬ 
rer  können  dort  allerdings  nichts 
holen:  Die  deutschen  Anleitun¬ 
gen  werden  nur  zusammen  mit 
der  Software  verkauft.  Das  Spiel 
Cosmic  Balance,  das  in  unserem 
Artikel  über  Strategiespiele  für 
Herbst  dieses  Jahres  angekün¬ 
digt  wurde,  dürfte  bei  Erschei¬ 
nen  dieser  Ausgabe  schon  lie¬ 
ferbar  sein. 

Info:  T.  Müller  Computer-Service,  Rjetfach 
2626,  760C  Offenburg.  Tel.  (0781)  72004 


Speichererweiterung 
für  C  16 

Auf  insgesamt  32  KByte  RAM 
läßt  sich  der  C  16  mit  dem  16- 
KByte-Modul  der  Firma  Jeschke 
erweitern.  Das  Modul  (Preis  119 
Mark)  wird  einfach  in  den 
Expansions-Port  des  C  16  einge¬ 
steckt  und  ist  sofort  betriebsbe¬ 
reit.  Im  Grafikmodus  wird  damit 
der  zur  Verfügung  stehende 
Speicher  von  mageren  2  auf  im¬ 
merhin  18  KByte  aufgestockt,  so 
daß  endlich  sinnvoll  mit  Shapes 
gearbeitet  werden  kann,  (ev) 

Info:  Klaus  Jeschke.  Irr.  Birkenfelü  3,  6233 
Kelkheim 

Neues  Oxford-Pascal 
für  den  C  64 

Eine  neue,  verbesserte  Ver¬ 
sion  des  Oxford-Pascal-Compi- 
lers  (Test  in  Ausgabe  12/84)  wird 
seit  Anfang  April  von  der  Firma 
CPL  angeboten,  Besitzer  der  al¬ 
ten  Version  können  den  neuen 
Compiler  im  Rahmen  einer  Um¬ 
tauschaktion  gegen  einen  gerin¬ 
gen  Unkostenbeitrag  erhalten. 
Neben  der  Diskettenausgabe  ist 
Oxford-Pascal  jetzt  auch  in  einer 
Kassettenversion  erhältlich. 

Info  CPL  Computer  plus  Soft  GmbH, 
Bahnstr.  2026,  4220  Dinslaken. 

»60000  Bytes  free« 
beim  C  16 

Die  64  KByte -Erweiterung  von 
Kingsoft  macht's  möglich:  über 
60  KByte  stehen  beim  C  IS  für 
Basic-Programme  zur  Verfü¬ 
gung  (zum  Vergleich:  38  KByte 
beim  C  64).  Auch  bei  Einsatz  der 


hochauflösenden  Grafik  bleibt 
mit  gut  50  KByte  immer  noch 
reichlich  Platz  fürs  Programm. 
Die  Erweiterungsplatine  für  199 
Mark  wird  ohne  Löten  direkt  ins 
C  16-Gehäuse  eingebaut:  der 
Steckmodulport  bleibt  frei. 

taio:  Kingsoü,  Fritz  Schäfer,  Schnadce- 
busch  4. 51C6  Roetgen 

Eureka  —  Das  85000 
Mark-Adventure 

Für  die  Lösung  des  Adven- 
ture-Paketes  Eureka  kann  man 
850C0  Mark  bekommen.  Eureka 
besieht  aus  5  einzelnen  Aben¬ 
teuerspielen,  die  alle  in  sich 
abgeschlossen  sind.  Die  einzel¬ 
nen  Lösungen  ergeben  zusam¬ 
mengesetzt  eine  Telefonnum¬ 
mer  in  England.  Der  erste  Anru¬ 
fer  dieser  Nummer  erhalt  die 
Siegprämie.  Das  Original  des 
Spieles  ist  in  Englisch  geschrie¬ 
ben.  Zum  ersten  mal  gibt  es  pa¬ 
rallel  aber  eine  deutsche  Version, 
die  ab  dem  20.  März  erhältlich 
sein  soll.  Unter  der  Hotline- 
Telefonnummer  kann  der  Aben¬ 
teuer-Freund  jederzeit  erfah¬ 
ren.  ob  der  Preis  schon  verge¬ 
ben  ist.  Sollte  das  »Eureka- 
Rätsel«  bis  zum  31.  Dezember 
dieses  Jahres  nicht  gelöst  sein, 
wird  der  Preis  unter  den  Einsen¬ 
dern  einer  mitgelieferten  Post¬ 
karte  aufgeteüt. 

Info:  LINEL  Handelsfirma.  Landquartslr.  46 
A.  CH-9320  Arfcon.  Schwerz 


RS232- 

Datenübertragung 

Märki  und  Lenz  bieten  ein  bi¬ 
direktionales  RS232C-(V.24-)In- 
terface  an,  das  an  den  IEC-Bus 
des  C  64  angeschlossen  wird. 
Angesprochen  wird  es  wie  ein 
Drucker  über  die  Geräteadres¬ 
se  4.  Mit  der  Sekundäradresse 
wird  die  Art  der  Codewandlung 
eingestellt.  »1«  öffnet  den  Linear¬ 
kanal,  »2«  schaltet  die  CMB/ 
ASCII-Code-Wandlung  ein  Mit 
kurzen  Befehlen  können  dabei 
bis  zu  16  Zeichen  umdefiniert 
werden. 

Das  Interface  arbeitet  RS232- 
seiiig  mit  7  Bit,  keine  Parität,  1 
Stop-Bit  und  einstellbarer  Baud¬ 
rate  (50  bis  9600  Baud). 

Der  Einsatzbereich  des  Inter¬ 
faces  liegt  in  der  Ansteuerung 
von  RS232-Druckern  und  der 
Datenübertragung  zwischen 
zwei  Computern.  Mit  dem  Inter¬ 
face  lassen  sich  beispielsweise 
Vizawrite-Ttextdateien  an  einen 
IBM-PC  übertragen  und  dort  mit 
Wordstar  weiterbearbeiten.  Als 
Software  wird  dazu  ein  Viza-Kon- 
vertierungsprogramni  für  den  C 
64  und  em  Ttermmalprogramm 
für  den  IBM  (Cross-Talk,  Open 
Access)  benötigt, 

Info  Märki  und  Lenz,  Berastr  15,  CH-3114 
Wichtrach,  Tal.  (0041/31-982132,  Preis:  434 
Mark 
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Aktuell 


Die  Kuriositäten-E<ke 


Interessantes,  Seltsames  und 
sonstige  Ungereimtheiten  aus 
dem  Computer-Dschungel. 
Diesmal  beschäftigen  wir  uns 
mit  unbeabsichtigten,  beabsich¬ 
tigten  und  folgenreichen  Ausrut¬ 
schern  verschiedener  Compu- 
terfirmen. 

—  Steven  Spielberg  verkaufte 
die  Rechte  zu  E.T.  für  22  Millio¬ 
nen  Dollar  an  Atari,  Atari  brach¬ 
te  das  Spiel  allerdings  nur  für 
das  VCS-Telespiel  heraus  — ,  und 
dort  war  es  ein  totaler  Flop. 
Trotzdem  entschloß  sich  Atari, 
die  Rechte  zu  »Gremlins«  eben¬ 
falls  zu  kaufen,  und  zwar  für  ei¬ 
nen  Betrag  in  etwa  derselben 
Größenordnung.  Diesmal  aber 
wurde  die  weise  Entscheidung 
getroffen,  das  Spiel  für  Home¬ 
computer  herauszubringen.  Die 
Kritiken  mehrerer  amerikani¬ 
scher  Fachzeitschriften  zu  die¬ 
sem  Spiel  waren  allerdings 
schon  wieder  vernichtend.  Ob 
Atari  in  diesem  Fall  wieder  so 
viel  Rach  haben  wird,  bleibt  ab¬ 
zuwarten. 

—  Ein  weiterer  »Fehlgriff«  von 
Atari:  Alan  Aida,  ein  bekannter 
amerikanischer  Fernsehstar,  Un¬ 
terzeichnete  einen  zehn  Millio¬ 
nen  Dollar  Vertrag  mit  Atari,  um 
für  eine  Dauer  von  fünf  Jahren 
deren  Computer  m  der  Wer¬ 
bung  anzupreisen.  Nachdem 
Atari  an  Jack  Tramiel  verkauft 
wurde,  fühlte  Aida  sich  nicht 
mehr  gebunden  und  sagte  in  ei¬ 
ner  Talkshow  etwas  über  »Com¬ 
puter,  die  vom  Markt  verschwin¬ 
den  könnten«.  Atari  kann  nichts 
gegen  solche  Äußerungen  tun, 
der  Vertrag  wurde  nämlich  noch 
mit  dem  ehemaligen  Eigentü¬ 
mer,  der  Warner  Communica¬ 
tions  Company,  abgeschlossen. 

—  Apple  ist  mittlerweile  groß  ins 
Geschäft  mit  T-Shirts,  Mützen 
.und  Tassen  eingestiegen,  die  al¬ 
le  diesen  angebissenen  Regen¬ 
bogenapfel  tragen.  Sogar  in  der 
64 'er  Redaktion  stand  schon  ei¬ 
ne  Apple-Kaffeetasse  (der  Besit¬ 
zer  wurde  wegen  Hochverrats 
mit  dem  Verschwinden  seiner 
Kaffeetasse  bestraft).  Da  dieses 
Mailorder-Geschäft  offensicht¬ 
lich  ganz  gute  Gewinne  ein¬ 
bringt,  sollte  sich  Commodore 
nicht  nur  auf  Bayern-T-Shirts  be¬ 
schränken. 

—  Die  englische  Firma  »Bad  Ta¬ 
ste  Software«  hat  mit  ihrem  Spiel 
»Di’s  Baby«  erhebliches  Aufse¬ 
hen  m  den  englischen  Medien 
erregt,  ln  einer  der  fünf  Spiel¬ 
runden  muß  man  als  Prinz  Char¬ 
les  mit  einem  Nachttopf  herum- 
rennen,  um  die  »Reste«  des  Klei¬ 
nen  aufzusammeln  —  was  im 
Lauf  der  Zeit  immer  geschmack¬ 
loser  wird.  Im  weiteren  Spielver¬ 


lauf  muß  man  vorbei  an  verrück¬ 
ten  Doktoren,  Journalisten  etc., 
um  zu  Lady  Di's  Schlafzimmer 
vorzudringen.  Dort  muß  man 
dann  das  nächste  Baby  produ¬ 
zieren  (jedes  neue  Baby  gibt  Bo¬ 
nuspunkte)  Kommentar  der 
englischen  Zeitschrift  Commo¬ 
dore  Horizons:  *A  monumental 
exercise  in  bad  taste«  (ein  giga  n- 
tisches  Beispiel  für  schlechten 
Geschmack).  Über  Geschmack 
läßt  sich  bekanntlich  streiten, 
aber  bei  solcher  Publicity  müß¬ 
te  das  Spiel  eigenüich  ganz  gut 
verkauft  werden. 

-  Coleco,  USA,  verteilte  an  die 
Käufer  des  Coleco-Adam  um¬ 
sonst  die  sogenannten  Cabbage 
Patch  Dolls,  Puppen,  die  in  USA 
ähnlichen  Erfolg  haben  wie  bei 
uns  die  Barbies.  Die  Produktion 
des  Adam-Computers  wurde 
mittlerweile  eingestellt.  Viel¬ 
leicht  hätte  Coleco  andersrum 
mehr  Erfolg  gehabt  (zu  den  Pup¬ 
pen  den  Computer  umsonst), 

—  Nachdem  letztes  Jahr  viele 
Hardware-Hersteller  Millionen- 
verluste  erleiden  mußten,  sind 
auch  bei  den  Softwarefirmen 
Einbrüche  erfolgt.  Nach  Sirius- 
Software,  die  sich  überhaupt 
nicht  mehr  retten  konnten,  fiel 
nun  auch  Hesware  dem  Pleite¬ 
geier  zum  Opfer.  Hes,  die  haupt¬ 
sächlich  Software  für  den  C  64 
produzierten,  wurden  samt  In¬ 
ventar  und  Programmierer 
durch  die  Firma  »Avant  Garde« 
ersteigert,  die  bisher  hauptsäch¬ 
lich  auf  dem  Apple  II  und  dem 
Personal  Computer-Markt  aktiv 
war.  Synapse  Software  hatte 
ebenfalls  zu  leiden,  konnte  sich 
aber  gerade  noch  durch  einen 
billigen  Verkauf  ihres  gesamten 
Lagersund  durch  Lizenzverkäu¬ 
fe  an  englische  Firmen  (die  die 
Synapse-Spiele  auf  den  Sinclair 
Spectrum  umschreiben!)  retten. 
Synapse  wird  mittlerweile  voll 
von  Broderbund-Software  finan¬ 
ziert,  bleibt  aber  weiterhin  eine 
unabhängige  Firma.  Synapse- 
Chef  Igor  Wolosenko  kündigte 
an,  daß  einige  gemeinsame  Pro¬ 
jekte  von  Synapse  und  Broder- 
bund  in  Planung  sind. 

(M.  Kohlen/aa) 


Nachdem  wir  dieses  Mal  nur 
über  Firmen  berichtet  haben, 
wird  unsere  nächste  Kuriositäten¬ 
ecke  wieder  etwas  bunter  ge¬ 
mischt  sein  Was  zu  erwarten  ist, 
wollen  wir  noch  nicht  verraten. 
Wenn  Sie  etwas  Interessantes, 
Kurioses  oder  Witziges  heraus¬ 
finden  sollten,  dann  schreiben 
Sie  uns  ruhig  (Ihre  Informtionen 
sollten  auf  der  Wahrheit  beru¬ 
hen  und  nachprüfbar  sein). 
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Leserforum 


Wie  funktioniert 
Multicolor  beim  VC  20? 

Ich  habe  seil  einem  Jahr  einen 
VC  20  und  stehe  jetzt  vor  folgen¬ 
dem  Problem:  Ich  sehe  in  man¬ 
chen  Computerspielen  Figuren 
im  Mehrfarbmodus.  Und  zwar 
sind  diese  Farben  gezielt  ange¬ 
wendet  worden.  Ich  weiß  zwar, 
daß  es  einen  POKE-Befehl  gibt, 
der  die  Zeichen  farbig  erschei¬ 
nen  läßt,  jedoch  ist  dies  dann 
kunterbunt  gemischt.  Können 
Sie  mir  sagen,  wie  man  Multico¬ 
lor  gezielt  anwenden  kann? 

Martin  Knizia 

Ja,  Sie  müssen  sich  nur  erst  ei¬ 
nen  anderen  Zeichensatz  in  den 
Speicher  setzen.  Tun  Sie  das  in 
der  Grundversion  durch  POKE 
36869,233.  Der  Videochip  greift 
jetzt  auf  die  Zeichen  im  Spei¬ 
cherbereich  ab  dezimal  7168  zu. 
Dort  können  Sie  Ihre  Zeichen 
ablegen  Allerdings  bedeutet 
hier  (ich  hoffe  Sie  beherrschen 
das  Binärsystem)  nicht  wie  im 
normalen  Hires- Modus  die  Eins 
einen  gesetzten  Punkt  und  die 
Null  einen  gelöschten  Punkt.  Um 
die  Multicolor-Grafik  anzuspre¬ 
chen,  setzen  Sie  für  die  verschie¬ 
denen  Farben  Bitpaare  ein.  »10« 
sieht  für  die  Zeichenfarbe,  die 
für  jede  Bildschirmstelle  (7680  - 
8191)  in  der  zugeordneten  Farb- 
speicherstelle  (37888  bis  38912) 
steht.  »01«  steht  für  die  Rahmen¬ 
farbe,  die  die  erste  Multicolor- 
farbe  darstellt.  Die  zweite  Multi- 
colorfarbe,  Bitkombination  »11«, 
ist  die  Hilfsfarbe,  die  in  Bit  4  bis 
7  des  Videoregisters  36878  liegt. 

Dadurch  hat  man  natürlich  nur 
noch  4  mal  8  Punkte  große  Gra¬ 
fikzeichen,  die  Farbe  läßt  sich 
aber  jetzt  gezielt  ansteuem. 

Wesentlich  ausführlicher  ist 
das  Problem  bereits  im  VC  20- 
Kurs  in  der  Ausgabe  3/85  darge¬ 
stellt  worden. 

Probleme  mit  Super  Line? 

Ich  habe  das  Programm  SU¬ 
PER  LINE  aus  dem  64'er  Sonder¬ 
heft  (Tips  &  Tricks)  abgetippt 
und  die  richtigen  Checksum¬ 
men  erhalten.  Es  wurde  auch 
keine  Fehlermeldung  ausgege¬ 
ben.  Nach  dem  Befehl  »O«  und 
RETURN  erscheint  jedoch  nur 
ein  wirres  Muster.  Nach  »F«  ist 
der  Bildschirm  im  normalen  Zu¬ 
stand  mit  Cursor  und  »Ready«. 
Nach  einem  erneuten  »O«  und 
einem  RUN/STOP-RESTORE  er¬ 
scheint  ein  ganzer  Bildschirm 
voller  As. 

Eine  Eingabe  eines  Zeichens 
mit  80  Zeichen  pro  Zeile  ist  nicht 
möglich.  Ich  habe  aber  ange¬ 
nommen,  daß  das  mit  obigem 
Programm  möglich  sein  sollte. 

Kurt  Lüscher-Feldmann 

Viele  Leser  haben  das  gleiche 
Problem:  Sie  lesen  die  Anlei¬ 
tung  nicht  ganz  durch.  In  der  An¬ 


leitung  zu  Super  Line  steht  ganz 
deutlich,  daß  Text  mit  dem  Be¬ 
fehl  »W,  x,  y,  'Text'*  im  80-Zei- 
chen-Modus  ousgegeben  werden 
kann.  Von  Eintippen  im  80-Zei- 
chenmodus  war  nicht  die  Rede. 
Aber  früher  oder  später  wird 
uns  vielleicht  ein  Leser  ein 
80  Zeichen-Programm  mit  die¬ 
ser  Möglichkeit  einschicken?! 

Nochmals 
»Graphics  Basic« 

Zu  Ihrem  Artikel  über  »Gra¬ 
phics  Basic«  in  Ausgabe  12/84 
habe  ich  einige  Fragen: 

1.  Wo  kann  man  Graphics  Ba¬ 
sic  beziehen  und  wieviel  kostet 
diese  Erweiterung  genau? 

2.  Kann  man  die  anderen 
Basic-Befehle  (zum  Beispiel  PO- 
KEs  Für  Listschutz)  einsetzen? 

3.  Wieviele  Farben  sind  mit 
Graphics  Basic  realisierbar? 

4.  Kann  man  mit  dem  Window- 
Befehl  den  Bildschirm  in  ver¬ 
schiedene  Aktivitätszonen  wie 
bei  Dallas  Quest  (Oben  Grafik, 
unten  Text,  der  unter  der  Grafik 
verschwindet)  aufteilen? 

5.  In  wieviele  Aktivitätszonen 

kann  man  den  Bildschirm  unter¬ 
teilen?  Ulrich  Reiter 

Die  Firma  Ariolasoft,  die  das 
Programm  ursprünglich  vertrei¬ 
ben  wollte,  konnte  sich  nicht  da¬ 
zu  entschließen,  das  Programm 
auf  den  deutschen  Markt  zu 
bringen.  Vielleicht,  weil  die 
Herstellerfirma  »HES«  wegen 
Bankrott  versteigert  wurde. 

Mit  anderen  Worten:  Graphics 
Basic  ist  leider  nicht  mehr  über 
den  Fachhandel  zu  beziehen. 
Nach  Auskunft  von  Ariolasoft 
werden  lediglich  nuch  die  vur- 
bestellten  Exemplare  ausgelie¬ 
fert,  ein  späterer  Verkauf  ist  aus¬ 
geschlossen. 

Zu  2.:  Man  kann  die  anderen 
Basic-Befehle  ohne  Schwierig¬ 
keiten  einsetzen. 

Zu  3.:  Alle 

Zu  4.:  Das  geht  mit  den  Befeh¬ 
len  ifTEXT  TROM  x  TO  y«  und 
»GRAPHICS  FROM  x  TO  y«. 

Zu  5.:  Mehr  als  drei  Aktivitäts¬ 
zonen  sind  leider  nicht  möglich. 

Aus  dem  Takt  geraten? 

Sie  schrieben  in  Ihrer  Turbo- 
Pascal-Story  in  einer  älteren 
Ausgabe,  daß  der  Z-80  des 
CP/M-Moduls  mit  2  MHz  getak¬ 
tet  ist.  Ist  das  ein  Fehler  Ihrer¬ 
seits,  oder  hat  Commodore  das 
CP/M-Modul  verbessert? 

Dirk  Müller 

Der  Fehler  liegt  bei  uns,  und 
Commodore  hat  nichts  verbes¬ 
sert  (sowas  kann  man  von  Com¬ 
modore  erfahrungsgemäß  nicht 
erwarten),  Die  Produktion  des 
CP/M-Moduls  wurde  schon  vor 
einiger  Zeit  eingestellt.  Es  ist  da¬ 
her  ratsam,  alles  was  mit  CP/M 


und  dem  C  64  zu  tun  hat  am  be¬ 
sten  zu  vergessen. 

Das  CP/M-Modul  soll  unbestä¬ 
tigten  Berichten  zufolge  außer¬ 
dem  nicht  mit  den  neuesten  C  64- 
Versionen  Zusammenarbeiten. 
Interessant  wird  das  Thema 
CP/M  allerdings  wieder  mit 
dem  C  128,  der  einen  Z-80-Pro- 
zessor  mit  4  MHz  Taktfrequenz 
fest  eingebaut  hat. 

ROM-Listings  gesucht 

Wo  kann  man  Schaltpläne  zur 
Floppy  1541  und  zum  Drucker 
MPS-802  erhalten?  Bietet  je¬ 
mand  ein  kommentiertes  ROM- 
Listing  des  MPS-802-Betriebssy- 
stems  an?  Gibt  es  irgendwo 
kommentierte  Listings  von  Si¬ 
mons  Basic,  Exbasic,  Assem¬ 
blern  etc.?  Manfred  Grebler 

Schaltpläne  zu  Commodore 
Geräten  kann  Ihnen  nur  Com¬ 
modore  selbst  beziehungsweise 
Ihr  Commodore-Händler  be¬ 
schaffen.  Ein  kommentiertes  Li- 
süng  von  Simons  Basic  finden  Sie 
beispielsweise  im  Commodore 
64-Buch,  Band  5,  »Ein  Leitfaden 
durch  Simons  Basic«  (Markt  & 
Technik). 

Hi-Eddi  mit  C  1525? 

Das  Programm  Hi-Eddi  (Aus¬ 
gabe  1/85)  ist  einfach  toll.  Aber 
ich  habe  ein  Problem.  Das  Hi- 
Print-Programm  läuft  nicht  auf 
meinem  Grafik-Drucker  C 1525. 
Alle  Versuche,  es  entsprechend 
abzuändern,  sind  bei  meinen 
geringen  Programmierkennt¬ 
nissen  fehlgeschlagen. 

Andreas  Neuner 

In  der  nächsten  64'er  finden 
Sie  Druckerroutinen  für  MPS  801 
und  802. 

Vlzawrite-Hilte  gesucht 

Seit  einiger  Zeit  verarbeite  ich 
meine  Texte  mit  einer  engli¬ 
schen  Version  von  Vizawrite. 
Mit  ein  paar  Kunstgriffen  läßt 


sich  dieses  Programm  ganz  gut 
handhaben.  Es  gibt  aber  einen 
Schönheitsfehler:  Auf  dem  Bild¬ 
schirm  erscheinen  nicht  die 
deutschen  Umlaute,  und  meine 
bisherigen  Versuche,  selbst 
Bildschirmzeichen  zu  definie¬ 
ren,  schlugen  fehl,  da  diese  von 
Vizawrite  wieder  überschrie¬ 
ben  werden.  Wer  kennt  eine 
nicht  allzu  komplizierte  Lösung 
für  mein  Problem? 

Bertram  Hafner 


Der  VC  20  User  Club  » Byte 
Sprinter«  sucht  noch  Mitglie¬ 
der.  Manfred  Beier 

Info:  VC  20  User  Club  -Byte  Sprinter-,  Man¬ 
fred  Beier,  Narzissenweg  3, 1044  Karst  I. 

8-Zoll-Floppy  für  C  64? 

Ich  benötige  für  meinen  C  64 
einen  Massenspeicher  mit  we¬ 
sentlich  höherer  Kapazität  als 
sie  die  1541  bietet. 

Joachim  Kaluza 

Eine  Möglichkeit  wäre  die 
SFD  1001  von  Commodore.  Sie 
hat  eine  Speicherkapazität  von 
rund  1000  KByte.  Zusätzlich  ist  ei¬ 
ne  IEEE  488-Schnittstelle  erfor¬ 
derlich  (siehe  64’er,  3/85). 

CBM-Gehäuse  gesucht 

Ich  möchte  meinen  C  64  wie 
in  der  64'er  Ausgabe  8/84  be¬ 
schrieben  in  ein  CBM-Gehäuse 
der  3000 /4000er  Serie  einbau¬ 
en,  konnte  aber  bislang  immer 
noch  keins  bekommen.  Wel¬ 
cher  Leser  kann  mir  helfen? 

Jörg  Stegemann 


Ich  suche  ein  Interface  zum 
Anschluß  der  Typenradschreib¬ 
maschine  TA  Gabriele  8008  an 
den  C  64.  Ausgabe  3/84 

Oskar  Greifenberger  jun. 
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TA  Gabriele  8008 
am  C  64 
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Dieser  Brief  wurde  mit  einer 
TA  8008  in  Verbindung  mit  dem 
iffextomat«  von  Data  Becker  ge¬ 
schrieben.  Damit  dürfte  die  Fra¬ 
ge  von  Herrn  Greifenberger  jun. 
beantwortet  sein.  Das  Interface 
gibt  es  bei  der  Firma  Daum  Elek¬ 
tronik,  Kagenhof  3,  830!  Veits¬ 
bronn.  Die  Typenbezeichnung 
lautet:  Schnittstelle  VC  8008.  Ich 
habe  die  Schnittstelle  im  Novem¬ 
ber  1984  für  289  Mark  gekauft. 

Dieter  Seifried 

Welches  Betriebssystem? 

Wie  kann  ich  feststellen,  ob 
mein  1526-Drucker  mit  dem  al¬ 
ten  oder  mit  dem  neuen  Be¬ 
triebssystem  ausgerüstet  ist ? 
Ausgabe  3/85.  Günter  Reuter 

Welches  Betriebssystem  ein¬ 
gesetzt  ist,  kann  man  sehr  ein¬ 
fach  feststellen,  indem  man  ei¬ 
nen  Drucker-Selbsttest  durch¬ 
führt  (Gerät  mit  festgehaltener 
Papiervorschub-Taste  einschal- 
ten).  In  der  ersten  gedruckten 
Zeile  erscheint  die  Bezeichnung 
»REV.«  mit  einer  Zahl  dahinter. 
Ist  diese  Zahl  »1.0«,  dann  ist  das 
alte  Betriebssystem  eingesetzt; 
bei  »7.0«  ist  es  das  neue. 

Ob  der  Drucker  im  1526-  oder 
im  1526-Modus  arbeitet,  kann 
man  feststellen,  wenn  man  ihm 
einen  Text  über  die  Sekundär¬ 
adresse  7  schickt.  Wird  der  Text 
gedruckt,  so  ist  der  Drucker  im 

1525- Modus.  andernfalls  im 

1526- Modus.  Ist  der  Drucker  in 
der  1525-Betriebsart,  dann  kann 
man  ihn  bei  neuem  Betriebssy¬ 
stem  wie  folgl  auf  den  1526- 
Modus  umstellen: 

1.  Gerät  öffnen  (Achtung,  Ga¬ 
rantiefrist  beachten) 

2.  Das  IC  mit  der  Bezeichnung 
»U4D«  suchen  (steht  auf  der  Lei¬ 
terplatte  neben  dem  IC) 

3.  Pin  16  des  IC  auf  Masse  le¬ 
gen 

Der  Drucker  arbeitet  jetzt  im 
1526-Modus.  Hendrik  Hartje 


Fragen  Sie  doch 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 
Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen. 
Viel  mehr  Fragen  ergeben 
sich  bei  Computer-Interes¬ 
senten,  die  noch  keine  fe¬ 
sten  Kontakte  zu  Händlern, 
Herstellern  oder  Compu¬ 
terclubs  haben.  Sie  können 
der  Redaktion  Ihre  Fragen 
schreiben  oder  Probleme 
schildern  (am  einfachsten 
auf  der  Karte  »Lesermei¬ 
nung«).  Wir  veranlassen,  daß 
sie  von  einem  Fachmann  be¬ 
antwortet  werden.  Allge¬ 
mein  interessierende  Fra¬ 
gen  und  Antworten  werden 
veröffentlicht,  die  übrigen 
brieflich  beantwortet. 


Laden  mit  Bild? 

Während  der  C  64  ein  Pro¬ 
gramm  von  Kassette  lädt,  zeigt 
er  normalerweise  kein  Bild  auf 
dem  Monitor  an.  Nun  habe  ich 
aber  an  einigen  Maschinen¬ 
sprache-Programmen  gesehen, 
daß  es  doch  möglich  ist.  ein 
Bild  während  des  Ladens  ste¬ 
hen  zu  lassen.  Ist  dieser  Effekt 
auch  in  Basic  zu  erzielen  oder  ist 
dazu  die  Kenntnis  von  Maschi¬ 
nensprache  notwendig? 

Dieter  Kurbjuhn 

Vom  Basic  aus  ist  das  nicht 
möglich.  Da  der  Videochip  und 
der  Prozessor  abwechselnd  auf 
den  selben  Datenbus  zugreifen, 
kann  es  bei  Ladevoiyaiiyen  von 
Kassette  zu  Zeitproblemen  kom¬ 
men,  die  das  System  zum  Ab¬ 
sturz  bringen  könnten  Um  das 
zu  verhindern,  schaltet  das  Be¬ 
triebssystem  während  der  Dau¬ 
er  des  Kassettenzugriffs  den  Vi¬ 
deochip  einfach  aus,  wodurch 
natürlich  das  Bild  verschwindet. 

Um  das  zu  verhindern,  darf 
man  nicht  auf  die  vorhandenen 
Betriebssystemroutinen  zugrei¬ 
fen  —  wie  es  das  Basic  automa 
tisch  macht,  sondern  muß  sich 
eigene  Laderoutinen  schreiben. 

Das  allerdings  ist  nur  in  Ma¬ 
schinensprache  möglich: 

Assembler  für  »lllegals«? 

Ich  habe  von  einigen  Maschi¬ 
nenbefehlen  gehört,  die  die 
CPU  65xx  versteht,  obwohl  sie 
in  keinem  Handbuch  zu  finden 
sind.  Hat  jemand  nähere  Infor¬ 
mationen  darüber  oder  gibt  es 
schon  einen  Assembler  dafür? 

Klaus  Heinz 

Ir.  der  Ausgabe  3/84  des  64 'er- 
Magazins  haben  wir  eine  Be¬ 
schreibung  dieser  illegalen  Op- 
codes  gebracht.  Weitere  Beiträ¬ 
ge  zu  diesem  Thema  sind  in  Vor¬ 
bereitung. 

Bei  der  Anwendung  dieser 
vom  CPU-Herstelier  nicht  unter¬ 
stützten  Opccdes  ist  aber  Vor¬ 
sicht  geboten:  Während  die  »le¬ 
galen«  Befehle  unter  Garantie 
auch  bei  späteren  Prozessorver¬ 
sionen  funktionieren,  ist  das  bei 
den  »illegalen«  nicht  unbedingt 
der  Fall.  Unter  Verwendung  sol¬ 
cher  Codes  geschriebene  Ma¬ 
schinenprogramme  sind  daher 
nicht  immer  auf  Prozessoren  der 
gleichen  Familie  (zum  Beispiel 
vom  6502  zum  8502  des  C  128) 
übertragbar, 

Wo  gibt’s  ausländische 
Computermagazine? 

Ich  würde  gerne  auch  auslän¬ 
dische  Computermagazine  le¬ 
sen.  Deshalb  meine  Frage:  Wie 
beziehungsweise  wo  bekommt 
man  englischsprachige  Com¬ 
putermagazine? 

Roland  Rechinger 


Englische  und  amerikanische 
Zeitschriften  gibt  es  in  jeder  grö¬ 
ßeren  Stadt  im  Bahnhofsbuch¬ 
handel  zu  kaufen.  Manche  die¬ 
ser  Läden  erhalten  diese  Zeit¬ 
schriften  allerdings  oft  mit  er¬ 
heblicher  Verspätung  (manch¬ 
mal  bleiben  auch  die  Lieferun¬ 
gen  aus  den  USA  ganz  aus). 
Wenn  Sie  also  an  einem  ständi¬ 
gen  Konsum  dieser  Blätter  inter¬ 
essiert  sind,  sollten  Sie  ein  Abo 
in  den  USA  oder  England  bestel¬ 
len.  Informationsreiche  Zeit¬ 
schriften  sind  Compute!.  Com- 
putes  Gazette,  Computer  Ga¬ 
mes,  Electronic  Games,  Perso¬ 
nal  Software  (USA)  sowie  Com- 
modore  Horizons,  Your  Compu¬ 
ter,  Computer  &  Video-Games 
(England). 

Copyright-Problem 

Darf  ich  eigentlich  Pro¬ 
grammteile.  die  im  64'er  abge¬ 
druckt  sind,  für  meine  eigenen 
Programme  benutzen  und  diese 
dann  wieder  einschicken? 

Rene  Frehner 

Da  der  Verlag  Markt  &  Tech¬ 
nik  das  Copyright  an  diesen  Pro¬ 
grammen  besitzt,  dürfen  Sie 
auch  einzelne  Programmteile 
nur  verwenden,  wenn  das 
schriftliche  Einverständnis  von 
Markt  &  Technik  vorliegt,  falls 
Sie  Ihr  Programm  einem  an¬ 
deren  Verlag  anbieten. 

Schicken  Sie  Ihr  Listing  aber 
an  uns  ein,  dürfen  Sie  dieses  Ein¬ 
verständnis  natürlich  immer  vor¬ 
aussetzen. 

Generell  dürfen  Sie  einem 
Verlag  Listings  nur  dann  anbie¬ 
ten,  wenn  alle  Rechte  an  dem 
Programm  bei  Ihnen  liegen,  das 
heißt  in  der  Regel,  wenn  Sie  es 
selbst  geschrieben  haben.  Falls 
das  Programm  nur  eine  umge¬ 
schriebene  Version  eines  ande¬ 
ren  ist,  oder  falls  einzelne  Routi¬ 
nen  aus  anderen  Quellen  stam¬ 
men,  müssen  Sie  das  unbedingt 
im  Anschreiben  erwähnen, 
sonst  kann  das  unangenehme 
Folgen  haben. 

Falls  Sie  das  Programm  je¬ 
doch  ausschließlich  für  Ihren 
privaten  Gebrauch  verwenden, 
dann  brauchen  Sie  sich  um  sol¬ 
che  Dinge  keine  Gedanken  zu 
machen.  Es  entspricht  aber  ei¬ 
ner  guten  Programmierer-Tradi¬ 
tion  und  auch  der  allgemeinen 
Fairneß,  bei  aus  anderen  Pro¬ 
grammen  entnommenen  Routi¬ 
nen  die  Original-Quelle  und  aen 
Namen  des  Autoren  der  Routine 
anzugeben. 

Modulbereich  nutzen? 

Wie  kann  man  beim  VC  20  mit 
24  KByte  den  geänderten  Zei¬ 
chensatz  in  den  Modulbereich 
(SA000-SBFFF)  verlegen  ?  Wel¬ 
cher  Wert  muß  dazu  in  die  Spei¬ 
cherstelle  36869  gePOKEt  wer¬ 
den  ?  Muß  dazu  auch  der  Bild¬ 
schirmspeicher  verlegt  wer¬ 
den?  Oliver  Berger 


Die  Bits  0  bis  3  aus  Adresse 
36869  (Register  5  des  VIC)  be¬ 
stimmen  die  Lage  des  Zeichen¬ 
generators  im  Speicher,  und 
zwar  nach  einem  recht  kompli¬ 
zierten  Schema,  bei  dem  einige 
Bits  der  generierten  effektiven 
Startadresse  des  Zeichenspei¬ 
chers  immer  auf  Null  sind,  Lei¬ 
der  gehören  auch  Bit  13  und  14 
der  Zeichenspeicher-Adresse 
zu  diesen  Null-Bits.  Dadurch  ist 
der  Speicherbereich  ab  $AO00 
(=  1010  0000  0000  0000  bmär) 
nicht  als  Zeichengenerator- 
Adresse  einstellbar  Auch  der 
Biidschirmspeicher  läßt  sich 
beim  besten  Willen  nicht  in  die¬ 
sen  Adreßbereich  verlegen.  In 
der  Ausgabe  1/85  des  64'er- 
Magazms  finden  Sie  Im  VC 
20-Kurs  eine  ausführliche  Be¬ 
schreibung  dieser  Problematik. 

Hier  gibt’s  Lightpens 

Wo  bekomme  ich  einen  an¬ 
schlußfertigen  Lighlpen  für 
den  C  64? 

Ausgabe  2/85 

Markus  Lucassen 

Lightpens  mit  Demonstrations- 
Software  in  Simons  Basic  gibt's 
bei  mir  für  50  Mark  auf  Bestel¬ 
lung.  Anwendungsprogramme 
für  das  Zeichnen  auf  dem  Bild¬ 
schirm  sind  m  Vorbereitung. 

Werner  Backes 
Info:  Werner  Backes,  Talstr.  IS,  6693  Tholey 

Die  Firma  Softline  bietet  den 
»Tech-Sketch«-Lightpen  in  ver¬ 
schiedenen  Versionen  ab  159 
Mark  an.  von  Stack  Computer 
Services  gibt  es  den  »Stack«- 
Lightpen.  Beide  Lightpens  wer¬ 
den  inklusive  komfortabler 
Grafik-Software  geliefert.  In  un¬ 
serem  Testbericht  in  der  Ausga¬ 
be  4/85  können  Sie  sich  genauer 
über  den  Tech-Sketch  informie¬ 
ren 

Into:  Sotllme,  R.  Al veides,  Schwarawaldslr. 
8a.  7602  Oberkirch 

Stack  Computer  Services  Limited,  290-298 
Derby  Roaa.  Bcotle.  Meiseyside.  England 


Wollen  Sie  antworten? 

Wir  veröffentlichen  auf 
dieser  Seite  auch  Fragen,  die 
sich  nicht  ohne  weiteres  an¬ 
hand  eines  guten  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmie¬ 
rers  beantworten  lassen.  Das 
istvor  allem  derFall,  wennes 
um  bestimmte  Erfahrungen 
geht  oder  um  die  Suche  nach 
speziellen  Programmen. 
Wenn  Sie  eine  Antwort  auf 
eine  hier  veröffentlichte  Fra¬ 
ge  wissen  —  oder  eine  ande¬ 
re,  bessere  Antwort  als  die 
hier  gelesene,  dann  schrei¬ 
ben  Sie  uns.  Antworten  publi¬ 
zieren  wir  in  einer  der  näch¬ 
sten  Ausgaben.  Bei  Bedarf 
stellen  wir  auch  den  Kontakt 
zwischen  Lesern  her. 
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Fernschreiber  am  C  64? 

Wer  hat  eine  Schaltung,  um  ei¬ 
nen  C  64  an  einen  Fernschreiber 
anzuschließen  ?  Wer  kennt  Lite¬ 
ratur,  in  der  dies  beschrieben 
wird?  Am  besten  wäre  eine 
Schaltung,  mit  der  man  auch 
noch  Lochstreifen  vom  Fern¬ 
schreiber  in  den  Rechner  einie¬ 
sen  kann.  Bemd  Alef 


Fragen  zum  C  16 

Ich  habe  mir  erst  kürzlich  den 
C 16  zugelegt,  und  habe  zu  die¬ 
sem  einige  Fragen: 

1.  Mir  ist  aufgefallen,  daß  die 
Speicherkapazität  des  C  16  un¬ 
ter  Verwendung  von  hochauflö¬ 
sender  Grafik  um  rund  10  KBy¬ 
tes  verringert  wird.  Woran  liegt 
das  und  wie  kann  man  es  verhin¬ 
dern? 

2.  Der  C  16  hat  eine  recht  ge¬ 
ringe  Speicherkapazität.  Gibt 
es  eine  Sppichererweitcrung? 

3.  Zur  Zeit  gibt  es  noch  sehr 
wenig  Software  und  Literatur 
zum  C 16.  Werden  im  64'er  künf¬ 
tig  auch  Artikel  über  den  C  16 
veröffentlicht?  Wird  Data 
Becker  Bücher  für  den  C 16  ver¬ 
öffentlichen? 

4.  Da  Joysticks  und  Datasette 
1S30  nicht  kompatibel  zum  C 16 
sind,  hätte  ich  gerne  gewußt, 
ob  es  Interfaces  oder  Stecker 
zum  Anschluß  der  Datasette 
1S30  und  der  « alten «  Joysticks 
geben  wird?  Andre  Bremer 

Zu  1.  Da  die  Grafik  ja  auch  in 
irgendeinem  Speicherbereich 
liegen  muß,  ist  es  logisch,  daß 
dieser  Platz,  wenn  schon  kein  ei¬ 
gener  Grafikspeicher  vorhan¬ 
den  ist,  das  Basic-Ram  benutzt 
und  verkleinert.  Dabei  werden  8 
KByte  für  die  Hires-Grafik  und  2 
KByte  für  den  Farbspeicher  ver¬ 
braucht,  Verhindern  kann  man 
das  nur  dadurch,  daß  man  ein¬ 
fach  keine  hochauflösende  Gra¬ 
fik  benutzt. 


C  64-Speicher  puffern? 

Ich  möchte  den  RAM-Spei¬ 
cher  des  C  64  puffern,  um  Da¬ 
tenverluste  beim  Abschalten  zu 
vermeiden.  Wer  kann  mir  sa¬ 
gen,  wie  das  zu  bewerkstelli¬ 
gen  ist?  Erwin  Rieks 

Bisher  haben  wir  leider  kei¬ 
nen  Schaltplan  oder  eine  Be¬ 
zugsquelle  für  eine  derartige 


Zu  2.  Eine  16-KByte-Speicher- 
erweiterung  wird  derzeit  von 
der  Firma  Jeschke  angeboten. 
Eine  64-KByte-Erwei!erung  ist 
über  Kingsoft  zu  beziehen.  Die 
Firma  Roßmöller  entwickelt  der¬ 
zeit  eine  32-KByte-Erweiterung 
mit  zusätzlichen  EPROM-Steck- 
plätzen. 

Zu  3.  und  4,  Data  Becker  müs 
sen  Sie  schon  selbst  fragen.  Im 
64'er  wird  der  C  16  entspre¬ 
chend  seiner  Verbreitung  auf 
dem  Markt  berücksichtigt.  Ei¬ 
nen  Selbstbau-Stecker  zum  An¬ 
schluß  der  »alten*  Datasette  an 
den  C  16  haben  wir  bereits  ge¬ 
bracht,  den  entsprechenden 
Adapter  für  Joysticks  finden  Sie 
als  Bauanleitung  in  dieser  Aus¬ 
gabe. 

Sie  sehen  also,  wir  haben  die 
C  16-Besitzer  nicht  vergessen 
und  werden  auch  in  Zukunft  am 
Ball  bleiben  —  wie  bei  allen  ak¬ 
tuellen  Commodore-Compu- 
tem. 

Info:  RoBmäller  GmbH,  Finkenweg  1.  5309 
Meckenheim 

Klaus  leschke  Hard  &  Software,  Im  Birken¬ 
feld  3a  6233  Kelkheim 
Kingaolt  Fritz  Schäler,  Schnackebusch  4, 
3106  Roetgen 

»Load  Error« 
bei  Datasette? 

Ich  habe  folgendes  Problem 
mit  meiner  Datasette:  Sie  macht 
andauernd  »?  LOAD  ERROR« 
trotz  Kassettenwechsel.  Mit 
meiner  Datasette  ist  alles  in 


Schaltung  gefunden.  Eine  Firma 
aus  den  USA,  die  bereits  für  den 
Apple  II  eine  64-KByte-Karte  an¬ 
bietet,  auf  die  bei  emem  Reset 
der  Inhalt  des  gesamten  Spei¬ 
chers  gezogen  wird,  will  diese 
Karte  (Name:  »Wild  Card«)  auch 
für  den  C  64  anbieten.  Wann  und 
ob  diese  Erweiterung  in 
Deutschland  erhältlich  ist,  ist  je¬ 
doch  noch  völlig  ungewiß. 


Ordnung.  Man  hat  mir  nun  ge¬ 
sagt,  daß  vielleicht  etwas  mit 
meinem  Mikroprozessor  im  C 
64  nicht  stimmt.  Kann  es  tatsäch¬ 
lich  daran  liegen?  Ronny  Gaab 

Leider  kann  rnan  bei  so  allge¬ 
meinen  Angaben  nur  vage  Ver¬ 
mutungen  über  die  Fehlerursa¬ 
che  anstellen.  Tritt  der  Lesefeh¬ 
ler  nur  bei  fremden  Program¬ 
men  auf  oder  auch  bei  selbst  ab¬ 
gespeicherten?  Wurde  die  Ab¬ 
speicherung  mit  VERIFY  über¬ 
prüft,  und  mit  welchem  Ergeb¬ 
nis?  Können  nur  vereinzelt  Pro¬ 
gramme  nicht  gelesen  werden 
oder  funktioniert  gar  nichts 
mehr? 

Jedenfalls  ist  es  sehr  unwahr¬ 
scheinlich,  daß  der  Fehler  am  C 
64  liegt  (an  der  CPU  kann  es 
schon  gar  nicht  liegen,  wenn  der 
Computer  sonst  einwandfrei 
funktioniert). 

Die  häufigste  Fehlerursache 
ist  ein  verschmutzter  oder  ver¬ 
stellter  Tbnkopf  an  der  Dataset¬ 
te.  Reinigen  Sie  Tonkopf,  Band¬ 
führung  und  Andruckrolle  von 
Zeit  zu  Zeit  mit  einem  in  Spiritus 
getränkten  Wattestäbchen-  Die 
korrekte  Einstellung  des  Ton¬ 
kopfes  kann  Ihr  Fachhändler 
vornehmen,  wenn  Sie  sich  selbst 
daranwagen  wollen,  sollten  Sie 
entsprechende  Fachliteratur  zu 
Rate  ziehen  (zum  Beispiel  das 
Cassetten-Bucn  von  Data 
Becker). 

Bei  der  Aufzeichnung  denken 
Sie  bitte  unbedingt  immer  an 
das  VERIFY,  daß  nach  jedem 
Abspeichern  auf  Kassette 
durchgeführt  werden  sollte.  Ver¬ 
wenden  Sie  keine  Billig-Kasset- 
ten,  aber  auch  keine  Chromdi¬ 
oxid  oder  Reineisen-(»Metall«)- 
Bänder.  C  90  und  C  120-Kasset- 
ten  sollten  Sie  ebenfalls  vermei¬ 
den.  Lassen  Sie  am  Anfang  und 
am  Ende  jeder  Kassette  minde¬ 
sten  10  bis  20  Sekunden  Band 
frei,  da  diese  Bandstellen  durch 
das  ständige  Anschlägen  beim 
Umspulen  besonders  starken 
mechanischen  Belastungen  aus¬ 
gesetzt  sind.  Achten  Sie  darauf, 
daß  das  Band  in  der  Kassette  frei 
beweglich  ist  (glatte  Spulen¬ 
wickel),  eventuell  ein  paar  Mal 
vollständig  vor-  und  zurückspu¬ 
len,  Beachten  Sie  schließlich 
den  obersten  Programmierer- 
Grundsatz:  Von  jedem  wichtigen 
Programm  eine  Sicherheitsko¬ 
pie  anfertigen. 


Falls  Sie  jedoch  auch  mit  ei¬ 
nem  akkugepufferten  Zusatz¬ 
speicher  zufrieden  sind,  ist  viel¬ 
leicht  das  Xtend  64-Modul  von 
Roßmöller  das  richtige  für  Sie. 
Dieses  Modul  erweitert  denC  64 
wahlweise  um  32  KByte  RAM 
(akkugepuffert)  oder  128  KByte 
EPROM.  EPROM  und  RAM  kön¬ 
nen  auch  gemischt  eingesteckt 
werden. 


Ordnungs-Probleme 

Ich  nehme  an  einem  Femkurs 
für  Basic  teil  und  erhalte  jeweils 
ein  paar  Lehrbriefe  mit  Übungs- 
(programmier-Jaufgaben.  Seit 
ich  nun  eine  Diskettenstation 
habe,  speichere  ich  diese 
Übungsprogramme  auf  Disket¬ 
te  ab.  Nun  habe  ich  aber  ein 
fürchterliches  Durcheinander 
auf  meinen  Disketten.  Daher  ha¬ 
be  ich  mit  meinen  jetzigen  Fä¬ 
higkeiten  ein  Disketten-Verwal- 
tungsprogramm  geschrieben, 
mit  dem  ich  die  gewünschte 
Übungsaufgabe  auf  Anhieb  fin¬ 
den  kann.  Wenn  ich  allerdings 
die  Übung  geladen  und  korri¬ 
giert  habe,  ist  natürlich  an¬ 
schließend  mein  Verwaltungs¬ 
programm  nicht  mehr  im  Spei¬ 
cher,  so  daß  ich  es  immer  wie¬ 
der  nachladen  muß,  was  recht 
viel  Zeit  kostet  (immerhin  63 
Blöcke).  Was  kann  ich  dagegen 
tun?  Gibt  es  einen  Speicher,  in 
dem  ich  mein  Verwaltungspro¬ 
gramm  ablegen  und  jederzeit 
wieder  hervorrufen  kann,  ohne 
es  umständlich  wieder  von  Dis¬ 
kette  laden  zu  müssen  ?  Wie  ge¬ 
lange  ich  in  diesen  Speicher 
und  wie  funktioniert  das  Ganze? 

Christian  Wüger 

Ein  solcher  Speicher  ist  vom 
Betriebssystem  her  nicht  vorge¬ 
sehen,  kann  aber  auf  der  Ma¬ 
schinenspracheebene  durch¬ 
aus  realisiert  werden.  In  unse¬ 
rem  Tips  &  Tricks-Sonderheft 
haben  wir  das  »Multi-Programm- 
System«  abgedruckt,  mit  dem  es 
möglich  ist,  bis  zu  31  (!)  Basic- 
Programme  gleichzeitig  im  Spei¬ 
cher  zu  halten. 

Eine  viel  einfachere  Methode 
ist  es  jedoch,  für  jede  Diskette 
eine  Karteikarte  mit  den  Pro¬ 
grammnamen  anzulegen.  Diese 
Karte  können  Sie  in  der  Disket- 
tenhütle  mit  unterbringen.  Wenn 
Sie  dann  noch  von  vorneherein 
für  Ordnung  sorgen,  indem  Sie 
jeweils  iogisch  irgendwie  zu¬ 
sammengehörende  Programme 
auf  einer  Diskette  zusammenfas¬ 
sen  (also  beispielsweise 
Übungsaufgaben  zu  Lektionen 
1-5  auf  Diskette  1)  und  dies  auf 
dem  Diskettenaufkleber  ver¬ 
merken,  werden  Sie  nie  Proble¬ 
me  mit  dem  Suchen  nach  Pro¬ 
grammen  haben  und  können 
den  Computer  für  sinnvollere 
Dinge  als  die  Verwaltung  der 
Verwaltungssoftware  einsetzen. 


Leser  fragen  - 
Willi  Brechtl  antwortet 

Hallo  liebe  Leser,  hier  bin  ich  wieder, 
um  Eure  Fragen  zu  beantworten. 


Ich  werde  mich  hauptsächlich 
um  Leserbriefe  kümmern,  die 
nicht  in  das  sachliche  Einerlei 
des  Leserforums  passen.  Zum 
Beispiel  Fragen,  die  sich  aus 
dem  einen  oder  anderen  Grund 
nur  ganz  subjektiv  beantworten 
lassen.  Oft  genug  tauchen  auch 
Probleme  auf,  die  sich  nicht  mit 
einem  kurzen  Antwortsatz  ab¬ 
handeln  lassen.  Und  wenn 


selbst  eine  längere  Antwort  im 
Rahmen  des  Leserforums  nicht 
mehr  ausreichen  würde,  dann 
ist  das  ganz  klar  ein  Fall  für  Willi 
Brechtl. 

Also:  Wenn  Sie  als  Anfänger 
Probleme  mit  Computer,  Soft¬ 
ware  oder  Handbuch  haben, 
dann  wenden  Sie  sich  in  Zukunft 
doch  einfach  vertrauensvoll  di¬ 
rekt  an  mich. 
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Welcher  Drucker  ist 
der  richtige? 

Einen  Drucker  müßte  man  haben,  aber  welchen? 

Ein  vielschichtiges  und  verwirrendes  Angebot  macht  die 
Entscheidung  für  ein  Druckermodell  nicht  gerade  ein¬ 
fach.  Wir  stellen  Ihnen  die  wichtigsten  Typen  vor  und 
sagen  Ihnen,  worauf  Sie  beim  Kauf  achten  müssen. 


Die  papierlose  Gesellschaft 
wird  es  auch  in  absehbarer  Zu¬ 
kunft  nicht  geben.  Menschen 
möchten  die  Resultate  ihrer  Arbeit 
nicht  nur  auf  der  flüchtigen  Anzeige 
eines  Monitors  sehen.  Vielmehr 
wird  jedem  Computerbesitzer 
schon  nach  kurzer  Zeit  bewußt,  daß 
ein  Drucker  die  wohl  sinnvollste  Er¬ 
gänzung  seines  Computersystems 
ist.  Der  Anwendungsbereich  eines 
Druckers  ist  dabei  enorm  vielfältig. 
Im  industriellen  Bereich  dienen  sie 
als  Ausgabedrucker  in  Rechenzen¬ 
tren,  erstellen  Briefe,  bedrucken 
Flugscheine  und  Fahrkarten,  ferti¬ 
gen  aber  auch  die  Originale  für  so 
komplexe  Erzeugnisse  wie  Telefon¬ 
bücher,  Bedienungs-  und  Verkaufs¬ 
unterlagen.  Im  häuslichen  Bereich 
haben  Drucker  mittlerweile  eben¬ 
falls  emen  weiten  Aufgabenkom¬ 
plex  übernommen.  Sie  dienen  hier 
als  Listingdrucker,  zur  Daten-  und 
Texlverarbeitung,  fertigen  Grafiken 
an  und  protokollieren  Meßabläufe. 
Drucker  statt  Schreibmaschine 
Der  enorme  Erfolg  des  Commo- 
dore  64  hat  eine  interessante  Ent¬ 
wicklung  in  Deutschlands  Haushal¬ 
ten  eingeleitet:  Immer  mehr  Com¬ 
puterbesitzer  bearbeiten  ihren  pri 
vaten  Schriftverkehr  nicht  mehr  mit 
der  Schreibmaschine,  sondern  mit 
ihrem  C  64,  einem  Textverarbei- 
tungsprogramm  und  einem  Druk- 
ker.  Eine  verständliche  Entwick¬ 
lung,  denn  die  Vorteüe  sind  enorm. 
Es  darf  korrigiert,  umgestellt,  er¬ 
setzt,  neu  formatiert  mid  modifiziert 
werden  —  schlechte  Zeiten  für  Tipp- 
Ex.  Trotzdem  ist  dieser  Themen¬ 
komplex  mcht  ohne  Probleme.  Den 
für  die  gewünschte  Aufgabe  richti¬ 
gen  Drucker  zu  finden  ist,  in  Anbe¬ 
tracht  der  Typen-  und  Modellviel¬ 
falt,  ein  umfangreiches  Unterfan¬ 
gen. 

Druckverfahren 

Erstes  Unterscheidungsmerkmal 
eines  Druckers  ist  sein  Druckver¬ 


fahren.  Man  unterscheidet  zwi¬ 
schen  mechanischen  (impact)  und 
nichtmechanischen  (nonimpact) 
Druckern.  Zu  den  mechanischen 
Druckern  zählen  sowohl  Drucker 
mit  festen  Typen  (auf  Kugelkopf, 
Hammer  oder  Rad),  als  auch  Matrix¬ 
drucker,  die  ein  zu  druckendes  Zei¬ 
chen  aus  Einzelpunkten  zusammen¬ 
setzen.  Nichtmechanische,  an¬ 
schlagfreie  Drucker  sind  beispiels¬ 
weise  Laserdrucker,  Thermo¬ 
drucker  oder  Tintenstrahldrucker. 
Ein  wesentlicher  Vorteü  von  mecha¬ 
nischen  Druckern  gegenüber  an¬ 
schlagsfreien  Druckern  ist  die  Mög¬ 
lichkeit,  direkt  Durchschläge  herzu¬ 
stellen. 

Vom  Arbeitsprinzip  her  lassen 
sich  die  Drucker  in  serielle  Drucker, 
die  Zeichen  für  Zeichen  nacheinan¬ 
der  auf  das  Papier  bringen  (Matrix¬ 
drucker)  und  Parallel-  oder  Zeilen¬ 
drucker,  die  eine  ganze  Zeile  auf 
einmal  erstellen,  unterteüen  Im 
Heimbereich  haben  sich  in  den  letz¬ 
ten  Jahren  im  wesenüichen  nur  vier 
verschiedene  Druckertypen  durch¬ 
gesetzt:  Die  Matrixdrucker  dank  ih¬ 
rer  Flexibilität,  die  Typenrad¬ 
drucker  mit  ihrem  schönen  Schrift¬ 
bild,  die  Thermodrucker,  weil  sie 
preiswert  und  leise  sind  und  seit 
neuestem  auch  die  Tintenstrahl¬ 
drucker,  die  viele  Vorteile  in  sich 
vereinigen.  Leider  kann  man  mit 
Thermo-  und  Tintenstrahldruckem 
keine  Durchschläge  erzeugen. 

Die  Matrixdrucker 

Seriell  arbeitende  mechanische 
Matrixdrucker  drucken  Zeichen  als 
eine  matrixförmige  Anordnung  von 
Punkten  (Büd  1).  Der  Druckkopf  be¬ 
steht  aus  einer  senkrecht  zur  Druck- 
zeüe  stehenden  Reihe  von  dünnen 
Rohren,  die  je  eine  Nadel  enthalten. 
Die  Nadeln  werden  je  nach  Form 
des  zu  druckenden  Zeichens  von 
Elektromagneten  angestoßen  und 
bringen  über  das  Farbband  einen 
Punkt  auf  das  Papier  (Bild  2),  Der  Na- 


Bild  1 .  Die  Punktmatrix 
eines  Druckzeichens.  Hier  eine  9x5-Matrix 


delkopf  bewegt  sich  dabei  entlang 
der  Zeile  und  druckt  die  Zeichen 
entsprechend  der  im  Drucker  ge¬ 
speicherten  Informationen.  Die  die¬ 
sen  Zeichen  zugrundeliegende  Zei¬ 
chenmatrix  hängt  vom  verv/endeten 
Druckermodell  ab.  Viele  Drucker 
verfügen  sogar  über  mehrere  sol¬ 
cher  Zeichensätze.  Die  Qualität  des 
resultierenden  Schriftbildes  ist  di¬ 
rekt  von  der  verwendeten  Zeichen 
matrix  und  indirekt  von  der  Nadel¬ 
zahl  abhängig.  Es  leuchtet  ein.  daß 
beispielsweise  eine  senkrechte  Li¬ 
nie  mit  einer  bestimmten  Länge  aus 
9  Punkten  zusammengesetzt,  we¬ 
sentlich  besser  aussieht,  als  eine 
gleich  lange  aus  5  Punkten. 

Mit  verschiedenen  Maßnahmen 
versuchen  die  Druckerhersteller 
das  Schriftbild  ihrer  Modelle  zu  ver¬ 
bessern.  So  gibt  es  Drucker  mit  zwei 
hintereinander  angeordneten  Na- 
delreihen,  damit  auch  die  Zwi¬ 
schenräume  zwischen  den  Punkten 
mit  Druckfarbe  gefüllt  werden  kön¬ 
nen.  Ein  anderes  Verfahren  läßt  ei¬ 
ne  Zeile  zweimal  drucken,  wobei 
beim  zweiten  Druckvorgang  der 
Kopf  zum  Ausfüllen  der  Zwischen¬ 
räume  etwas  versetzt  wird.  Solche 
Maßnahmen  gehen  natürlich  auf  Ko¬ 
sten  der  Geschwindigkeit.  Die 
Druckgeschwindigkeit  eines  Ma¬ 
trixdruckers  hängt  hauptsächlich 
von  der  Geschwindigkeit  der  auslö¬ 
senden  Elektromagneten  und  der 
Anzahl  der  zu  betätigenden  Nadeln 
ab.  Druckgeschwindigkeit  zwischen 
etwa  60  und  180  Zeichen  pro  Sekun¬ 
de  sind  üblich;  es  gibt  aber  auch 
Matrixdrucker,  die  mit  bis  zu  600 
Zeichen  pro  Sekunde  arbeiten.  Die 
meisten  der  modernen  Matrix¬ 
drucker  arbeiten  mit  einer  Druck¬ 
wegoptimierung,  bei  der  freie  Flä¬ 
chen  auch  in  der  Druckzeüe  selbst 
übersprungen  werden.  Mit  der 
Druckwegoptimierung  läßt  sich  die 
Druckgeschwindigkeit,  je  nach  An- 
wendungsfall,  beträchtlich  erhö- 
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hen.  Einige  Matrixdrucker  ermögli¬ 
chen  die  Ansteuerung  jeder  einzel¬ 
nen  Nadel  (Einzelnadelsteuerung). 
Auf  diese  Weise  läßt  sich  jeder 
Punkt  auf  der  Papierfläche  be¬ 
drucken.  Diese  Funktion  dient  ins¬ 
besondere  zur  Ausgabe  von  Grafi¬ 
ken,  aber  auch  zum  Druck  von 
selbstdefinierten  Zeichen.  Man 
spricht  bei  dieser  Funktion  auch  von 
der  Grafikfähigkeit  emes  Druckers. 

Den  Nachteil  früherer  Druckerge¬ 
nerationen,  ein  Druckbild  zu  üefern, 
bei  dem  jeder  einzelne  Nadelan¬ 
schlag  sichtbar  ist,  haben  neueste 
Entwicklungen  überwunden.  Sie 
bieten  eine  sogenannte  Near  Letter 
Quality  (NLQ)  an,  die  dem  Vergleich 
mit  dem  Schriftbild  einer  Schreib¬ 
maschine  durchaus  standhält  (Bild 
3). 

Die  Typenraddrucker 

Manchen  sicher  schon  von  seiner 
Schreibmaschine  her  bekannt  ist 
das  Typenradprinzip.  Die  Druckty¬ 
pen  sind  auf  elastischen  Armen 
(Speichen)  eines  Typenrades  aus 
Metall  oder  Kunststoff  befestigt. 
Durch  Drehung  wird  das  Rad  in  die 
richtige  Druckposition  gebracht. 
Dann  schlägt  ein  Hammer  die  Ty¬ 
pen  gegen  Farbband  und  Papier. 


unüberhörbaren  Kategorie  an.  Trotz¬ 
dem  gibt  es  Unterschiede,  die 
hauptsächlich  auf  die  Bauart  (Dämp¬ 
fung,  Rollenmaterial)  zurückzufüh¬ 
ren  sind.  Leider  beherrschen  die 
Typenraddrucker  keine  Grafik  wie 
die  Matrixdrucker.  Sie  sind  viel¬ 
mehr  auf  die  Zeichen  ihres  Typenra¬ 
des  begrenzt  und  können  keine  be¬ 
liebigen  Punktmuster  auf  dem  Pa¬ 
pier  drucken.  Einfache  Grafiken  mit 
diesen  Zeichen  sind  dafür  nur  ein 
unzureichender  Ersatz.  Größter 
Vorteil,  neben  dem  Schriftbild,  ist 
die  Vielfalt  der  verfügbaren  Schrif¬ 
ten.  Durch  einfaches  Wechseln  des 
Typenrades  steht  ein  völlig  neuer 
Zeichensatz  zur  Verfügung.  Andere 
Sprachen,  wissenschaftliche  Zei¬ 
chen  und  viele  Sonderzeichen  ste¬ 
hen  für  die  meisten  Typenrad¬ 
drucker  zur  Auswahl.  Eine  Sonder¬ 
form  des  Typenraddruckers  ist  die 
Schreibmaschine  mit  eingebauter 
Schnittstelle  zum  Computer.  Im  Ge¬ 
gensatz  zum  Typenraddrucker  hat 
die  Schreibmaschine  ein  eigenes 
Tastenfeld,  über  das  sie,  auch  ohne 
Computer,  bedient  werden  kann. 
Diesen  Vorteil  muß  man  allerdings, 
bei  gleichem  Leistungsniveau  auch 
mitbezahlen. 


Papier  haften.  Thermodrucker  sind 
relativ  preisgünstige  und  vor  allem 
sehr  leise  Drucker.  Leider  stehen 
die  Unterhaltskosten  im  umgekehr¬ 
ten  Verhältnis  zu  den  Anschaffungs¬ 
kosten.  Sowohl  das  Spezialpapier 
als  auch  das  wärmeempfindliche 
Farbband  sind  ziemlich  teuer.  Die 
Grafikfähigkeiten  der  Thermo¬ 
drucker  sind,  durch  das  Matrixprin¬ 
zip,  durchaus  gut. 

Die  Tintenstrahldrucker 
Auch  Tintenstrahldrucker  arbei¬ 
ten  nach  dem  Matrix-Verfahren, 
doch  läßt  sich  mit  ihnen  ein  Zeichen- 
feld  wesentlich  feiner  rastern,  als 
mit  mechanischen  Matrix-Druk- 
kem:  Auf  eine  Länge  von  etwa  ei¬ 
nem  Millimeter  passen  mehr  als 
zehn  Farbtröpfchen;  mit  einer  zu¬ 
sätzlichen  Überlappung  der  Punkte 
erreicht  man  ein  Druckbild,  das  sich 
von  dem  einer  Schreibmaschine 
kaum  mehr  unterscheidet.  Es  gibt 
verschiedene  Versionen  von  Tinten- 
strahldruckem.  In  einer  Ausführung 
sind,  wie  beim  Nadeldrucker,  meh¬ 
rere  Röhrchen  senkrecht  überein¬ 
ander  angeordnet,  durch  die  Tinte 
auf  das  Papier  gelangt.  Bei  anderen 
Verfahren  wird  ein  aus  einer  Düse 
austretender  Tintenstrahl,  durch 


Fühiungsplällchen 


Bild  2.  Schematischer  Aufbau  eines 
Nadel-Matrixdruckkopfs 


Hit  der  NLQ-Schrift  CNear  Letter 
Quality}  besitzen  die  Star-Drucker 
SG-10,  SD-10  und  SR-10  einen  bisher 
unerreichten  Qualitätsstandard.  Die 
NLQ-5chrift  ist  durchaus  mit  der 
Qualität  eines  Typenraddruckers  zu 
vergleichen,  allerdings  bleiben  die 
Uorteile  eines  Matrixdruckers  ganz 
erhalten . 

Bild  3.  Mit  der  NLQ-Schriftart 
reichen  Nadel-Matrixdrucker  an  die 
Qualität  von  Typenraddruckern  heran. 


Obwohl  in  der  Zwischenzeit  auch 
die  Matrixdrucker  über  gute  Druck¬ 
qualitäten  verfügen,  ist  das  Schrift¬ 
bild  eines  guten  Typenraddruckers 
bisher  unerreicht.  Die  Domäne  der 
Typenraddrucker  liegt  demzufolge 
auch  in  derTaxtverarbeitung.  Dabei 
sind  solche  Drucker  relativ  lang¬ 
sam.  Preiswerte  Modelle  arbeiten 
mit  Druckgeschwindigkeiten  um  20 
Zeichen  pro  Sekunde,  die  professio¬ 
nellen  Geräte  schaffen  teilweise 
über  hundert  Zeichen  in  der  Sekun¬ 
de.  Auch  bei  den  Typenrad¬ 
druckern  läßt  sich  die  Druckqualität 
noch  durch  verschiedene  Maßnah¬ 
men  verbessern.  Eine  solche  Maß¬ 
nahme  ist  der  Doppeldruck,  bei 
dem  jedes  Zeichen  zweimal  ange¬ 
schlagen  wird,  oder  die  Schatten 
schrift,  die  jedes  Zeichen  zweimal, 
aber  etwas  versetzt,  druckt.  Auch 
die  Typenraddrucker  gehören  der 


Die  Thermodrucker 

Diese  anschlagsfreien  Drucker 
verwenden  ein  wärmeempfindli¬ 
ches  Spezialpapier,  das  beispiels¬ 
weise  mit  einer  Wachsschicht  über¬ 
zogen  sein  kann.  Der  Druckkopf  be¬ 
steht  aus  einer  Matrix  von  Wider 
ständen,  die  heute  üblicherweise 
auf  einem  Siliziumchip  integriert 
sind.  Dieser  Druckkopf  ist  in  ständi¬ 
gem  Kontakt  mit  dem  Papier.  Zum 
Drucken  werden  die  Widerstände 
der  Matrix  selektiv  erhitzt  und 
schmelzen  dabei  die  Oberfläche 
des  Spezialpapiers  weg,  so  daß  die 
darunter  befindliche  Farbe  als 
Punkt  sichtbar  wird.  Ein  anderes 
Prinzip  arbeitet  mit  normalem  Pa¬ 
pier,  bei  dem  die  wärmeempfindli¬ 
che  Schicht  auf  dem  Farbband  auf¬ 
gebracht  ist.  Durch  Erhitzen  des  Wi¬ 
derstandes  löst  sich  diese  Schicht 
vom  Farbband  und  bleibt  auf  dem 


elektrische  oder  magnetische  Fel¬ 
der  auf  die  entsprechende  Stelle 
des  Papiers  abgelenkt.  Ein  beson¬ 
derer  Vorteil  der  Tintenstrahl¬ 
drucker  ist  ihr  geringer  Geräusch¬ 
pegel.  Die  Druckgeschwindigkeit 
mancher  Tintenstrahldrucker  reicht 
bis  über  300  Zeichen  pro  Sekunde. 
Eine  Chance,  die  Tintenstrahl¬ 
drucker  gegenüber  anderen 
Druckverfahren  für  die  Zukunft  bie¬ 
ten,  ist  der  Mehrfarbendruck. 

Druckerauswahl  —  ein 
Entscheidungsproblem 

Nun  kennen  Sie  die  wesentlich¬ 
sten  Druckerarten  Damit  ist  aber 
bei  weitem  noch  nicht  geklärt,  wel¬ 
cher  Drucker  für  welchen  Zweck 
der  geeignetste  ist.  Stellen  wir  uns 
zunächst  den  idealen  Drucker  vor: 
Er  wäre  so  leise  wie  ein  Tintenstrahl- 
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drucket-,  grafikfähig  und  schnell  wie 
em  Matnxdrucker,  hätte  das  Schrift¬ 
bild  eines  Typenraddruckers,  könn¬ 
te  Durchschläge  anfertigen  und  hät¬ 
te  den  Preis  eines  Thermodruckers. 
Leider  gibt  es  dieses  Gerät  nicht. 
Die  Entscheidung  für  einen  be¬ 
stimmten  Drucker  ist  also  immer  ein 
Kompromiß,  bei  dem  die  gestellten 
Anforderungen  am  besten  erfüllt 
werden.  In  Tabelle  1  haben  wir  für 
Sie  einige  Merkmale  zusammenge¬ 
stellt,  anhand  derer  Sie  sich  das  An¬ 
forderungsprofil  Ihres  Druckers  zu¬ 
sammenstellen  können.  Die  dort 
verwendeten  Begriffe  wollen  wir 
hier  zunächst  erläutern: 

—  Art  der  Schnittstelle 
Es  gibt  Drucker,  die  direkt  an  den 
seriellen  Bus  des  C  64  beziehungs¬ 
weise  VC  20  anschließbar  sind.  Zu 
diesen  Druckern  gehören  selbst¬ 
verständlich  die  Commodore- 
Drucker.  Einige  andere  Drucker¬ 
hersteller  bieten  mittlerweile  eben¬ 
falls  Drucker  mit  dieser  Schnittstelle 
an.  Diese  Drucker  sind  in  der  Regel 
auch  in  ihren  Steuerungsbefehlen 
an  das  Commodore-Basic  angepaßt 
und  beherrschen  den  Zeichensatz 
des  C  64/VC  20.  Andere  Drucker 
sind  mit  einer  Schnittstelle  ausge¬ 
stattet,  die  nicht  direkt  an  einen 
Commodore-Computer  anschließ¬ 
bar  ist.  Hier  haben  sich  hauptsäch¬ 
lich  zwei  Standards  gebildet.  Zum 
einen  ist  das  die  serielle  RS232C- 
(V.24)  und  zum  anderen  die  Centro- 
nics-Schnittstelle.  Drucker  beider 
Schnittstellenarten  sind  trotzdem  an 
den  C  64/VC  20  anschließbar,  aller¬ 
dings  nur  wenn  ein  Interface  ver¬ 
wendet  wird.  Dieses  Interface  über¬ 
nimmt  die  Aufgabe,  die  vom  Compu¬ 
ter  kommenden  Zeichen  so  aufzube¬ 
reiten,  daß  der  Drucker  sie  richtig 
verarbeiten  kann.  Solche  Interfaces 
können  entweder  in  den  Drucker 
eingebaut,  oder  zwischen  Compu¬ 
ter  und  Drucker  geschaltet  werden. 
Es  ginge  zu  weit,  alle  Besonderhei¬ 
ten  zu  beschreiben.  Zusammenge¬ 
faßt  läßt  sich  aber  sagen,  daß  ein  In¬ 
terface  mindestens  über  einen  Line¬ 
arkanal  (Daten  ohne  Wandlung 
übertragen),  eine  wählbare  CBM- 
ASCII-Codewandlung  und  eine  Um- 
schaltmöglichkeit  zwischen  Groß- 
und  Kleinschreibung  wie  bei  den 
Commodore-Druckern  verfügen 
sollte  (Sekundäradresse  7).  Letztere 
Funktion  ist  besonders  dann  wich¬ 
tig,  wenn  fertige  Softwarepakete  wie 
Dateiverwaltung  und  Textverarbei¬ 
tung  verwendet  werden  sollen, 
denn  diese  Programme  verwenden 
meist  den  Groß-/Kleinschrift-Mo- 
dus.  In  vielen  Fällen  reicht  es  bereits 
aus,  zwischen  Computer  und 


□  Grafikfähigkeit 

LI  Zeichensätzc  (CBM,  internationale 
Zeichen) 

□  Art  der  Schnittstelle  (CBM,  RS232, 
Centronics) 

□  Druckgeschwindigkeit:  in  Zeichen 
pro  Sekunde 

□  Bidirektionaler  Druck  mit  Druckweg- 
optimicrung 

~ Papierarten:  Thermo.-  Rollen-,  Traktor- 
,  Einzelblattpapier 

□  Sonderfunktionen:  siehe  Tabelle  2 

□  Interface  für  Commodore  verfügbar? 

□  Lebensdauer  des  Druckkopfes:  in 
MTBF-Stunden  =  Mean  Time  between 
Failure 

C  Bedienungsfreundlichkeit:  Druckta¬ 
sten  für  Zeilen-  und  Seitenvorschub,  Er¬ 
reichbarkeit  der  DIL-Schalter  zur  Aus¬ 
wahl  einiger  Dauerfunktionen 

□  Servicefreundlichkeit 

□  Größe  des  Pufferspeichers: 

□  Geräuschpegel 

□  Bedienungsanleitung:  Umfang,  in 
deutscher  Sprache 

□  Preis:  Welche  Zusatzeinrichtungen 
sind  im  Preis  eingeschlossen?  Zum  Bei¬ 
spiel  ein  Interface 

Tabelle  I.  Das  Leistungs-  und 
Anforderungsprofil  hilft 
bei  der  Druckerwahl 


1.  Schriftarten 

□  Korrespondenzdruck 

□  Fettdruck 

□  Doppeldruck 

□  Eliteschrift 

H  Proportionalschrift 

□  Picaschrift 

□  vergrößerte  Schrift 
G  Unterstreichfunktion 

G  NLQ-Schrift  (Near  Letter  Quality) 

□  Sub-  und  Superscript  (Hoch-  und 
Tiefstellen) 

□  Kursivschrift 

C  komprimierte  Schrift 
C  Mischfunktion  verschiedener  Schrift¬ 
arten 

C  reverser  Druck 
L  doppelt  hoher  Druck 

2.  Sonderfunktionen 

□  Grafikfähigkeit  mit  verschiedenen 
Punkt  dichten 

□  Emstellen  des  Zeilenvorschubes 

□  Seitenvorschub 

n  Festlegen  der  Papierlänge 

□  Horizontale  und  vertikale  Tabs 

□  Vorwärtsschritt  um  mehrere  Zeilen 

l  i  Setzen  des  linken  und  rechten  Ran¬ 
des 

□  Rückwärtsschritt 

U  ladbarer  Zeichensatz 
C  internationaler  Zeichensatz 
G  Papierendeerkennung 

□  programmierbarer  Druckerreset 

□  Abschalten  des  bidirektionalen 
Drucks 

I  .  Rückwärtstransport  des  Papiers 
G  Reduzierung  der  Druckgeschwindig¬ 
keit  zur  Geräuschminderung 

Tabelle  2.  Schriftarten  und 
Sonderfunktionen  bestimmen  den 
Ausstattungskomfort  eines  Druckers 


Drucker  ein  einfaches  Kabel  zu  le¬ 
gen  und  die  Anpassung  der  Daten¬ 
ausgabe  im  Computer  vorzuneh¬ 
men.  Viele  Interfaces  sind  nach  die¬ 
sem  Prinzip  aufgebaut,  man  erkennt 
sie  an  der  immer  notwendigen  Soft¬ 
ware.  die  zusätzlich  geladen  werden 
muß. 

—  Grafikfähigkeit 

Ein  Drucker  ist  immer  dann  grafikfä¬ 
hig,  wenn  er  in  der  Lage  ist,  Daten 
als  Bitmuster  zu  interpretieren.  Fast 
alle  Matrixdrucker  verfügen  über 
diese  Fähigkeit.  Diese  Funktion  ist 
beispielsweise  dann  unumgänglich, 
wenn  Hardcopies  eines  Grafikbild¬ 
schirmes  ausgedruckt  werden  sol¬ 
len. 

—  Zeichensatz 

Der  Zeichensatz  ist  verantwortlich 
für  das  Aussehen  und  die  Zusam¬ 
mensetzung  der  Druckzeichen.  Vie¬ 
le  Drucker  verfügen  über  internatio¬ 
nale  Zeichensätze  (zum  Beispiel  mit 
deutschen  Umlauten)  oder  über 
den  gleichen  Zeichensatz  wie 
Commodore-Computer.  Sollen  bei¬ 
spielsweise  viele  Prograinmlislings 
ausgedruckt  werden,  ist  der  CBM 
Zeichensatz  inklusive  der  reversen 
Steuerzeichen  notwendig. 

—  Schriftbild 

Das  Schriftbild  ist  das  wesentlichste 
Kriterium  für  einen  Drucker.  Wich¬ 
tig  sind  vor  allem  echte  Unterlängen 
und  die  Punktdichte.  Eine  hohe 
Punktdichte  läßt  die  Zeichen  so  er¬ 
scheinen,  als  ob  sie  nicht  mehr  aus 
verschiedenen  Punkten,  sondern 
aus  einer  ununterbrochenen  Linie 
bestehen.  Ein  weiteres  Kriterium  ist 
die  Möglichkeit  der  Schriftbeein¬ 
flussung.  Tabelle  2  gibt  Aufschluß 
über  verschiedene  Methoden  der 
Schriftgestaltung,  Wichtigster  Punkt 
ist  das  Vorhandensein  einer  Propor¬ 
tionalschrift,  bei  der  die  Zeichenzwi- 
schenraurne  so  gewählt  werden, 
daß  ein  harmonisches  Schriftbild 
entsteht.  Krönung  der  Schriftarten 
ist  eine  Near  Letter  Quality-Schrift. 

—  Geschwindigkeit 

Vergleichen  Sie  bei  diesem  Punkt 
vor  allem  die  Geschwindigkeit  bei 
verschiedenen  Schriftarten.  Aller¬ 
dings  gilt:  Je  höher  die  maximale 
Druckgeschwindigkeit,  desto  schnel¬ 
ler  sind  auch  die  Geschwindigkeit 
bei  verschiedenen  Schriftarten. 

—  Papierarten 

Welche  Papierarten  kann  der 
Drucker  verwenden.  Es  gibt  Emzel- 
blätter  (wie  bei  der  Schreibmaschi¬ 
ne)  Rollenpapier  (besonders  billig), 
Traktor-Endlospapier  (meistver- 
wendet)  und  Spezialpapier  (für 
Thermodrucker). 

Fortsetzung  auf  Seite  150 
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Vergleich:  Drucker  unter  700  Mark 

lohnt  sich  der  Kauf  eines  Billigdruckers?  Wir  haben  sieben  Drucker  der  unteren 
Preisklasse  getestet  und  wollen  Ihnen  eine  Antwort  auf  diese  Frage  geben. 


Billige  Drucker  gibt  es  eigent¬ 
lich  nicht.  Selbst  einfachste  Mo¬ 
delle  bewegen  sich  oft  auf  ei¬ 
nem  Preisniveau,  das  über  dem  des 
C  64  liegt.  Der  Kauf  des  ersten 
Druckers  will  also  wohl  überlegt 
sein,  denn  mit  dem  falschen 
Drucker  sind  schnell  einige  hundert 
Mark  verloren.  Dabei  ist  es  keines¬ 
wegs  gleichgültig,  für  welches  Mo¬ 
dell  einer  Preisgruppe  man  sich  ent¬ 
scheidet,  denn  Leistungen  und 
Schriftbild  sind  oft  von  Gerät  zu  Ge¬ 
rät  stark  unterschiedlich.  Auch  sollte 
man  sich  vor  dem  Kauf  genauestens 
über  die  Vor-  und  Nachteile  der  ver¬ 
schiedenen  Konstruktionsprinzi¬ 
pien  klar  werden.  Wir  haben  für  Sie 
einige  Low-Cost-Drucker  mit  Prei¬ 
sen  bis  zu  700  Mark  getestet. 

Bunt  gemischt 

Zum  Test  standen  sieben  Geräte 
verschiedenster  Bauarten,  die  sich 
in  zwei  Gruppen  einteilen  lassen. 
Die  erste  Gruppe  verwendet 
schmales,  12  Zentimeter  breites  Pa¬ 
pier.  Die  zweite  Gruppe  setzt  sich 
aus  Druckern  zusammen,  die  mit 
normal  breitem  Papier  (21  Zentime¬ 
ter)  arbeiten.  Uns  kam  es  beim  Test 
vor  allem  darauf  an,  den  jeweiligen 
Drucker  in  dem  Anwendungsgebiet 
zu  testen,  für  das  er  konstruiert  wur¬ 
de.  Es  ist  sinnlos,  einen  mit  schma¬ 
lem  Papier  arbeitenden  Drucker  auf 
seine  Fähigkeiten  bei  der  Textverar¬ 
beitung  hin  zu  testen.  Niemand  wird 
auf  die  Idee  kommen,  Briefe  im  For¬ 
mat  eines  besseren  Kassenzettels  zu 
verschicken.  Besonders  wichtig  war 
für  uns  die  Handhabungsfreund¬ 
lichkeit  und  natürlich  das  Zusam¬ 
menspiel  mit  dem  C  64.  Die  Qualität 
des  Handbuches  wurde  besonders 
berücksichtigt,  da  preiswerte 
Drucker  in  der  Regel  von  Einstei¬ 
gern  benutzt  werden. 

Kleiner  Epson  ganz  groß 

Was  zunächst  wegen  seiner  kom¬ 
pakten  Maße  wie  ein  verkleinertes 
Modell  aussieht,  erweist  sich  in  der 
Praxis  schnell  als  ein  recht  vielseiti 
ges  und  zuverlässiges  Werkzeug. 
Der  Epson  P-40  (Bild  1)  ist  ein  Klein¬ 
drucker  mit  einer  Papierbreite  von 
11,2  Zentimetern,  der  ursprünglich 
für  den  HX-20  Hand-Held-Computer 
entwickelt  wurde.  Er  arbeitet  nach 
dem  Thermo-Prinzip  und  ist  deswe- 
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gen  extrem  leise.  Im  flachen  Gehäu¬ 
se  präsentiert  er  sich  wie  eine  ver¬ 
kleinerte  Ausgabe  des  bekannten 
FX-80-Druckers.  In  der  Tat  teilt  der 
P-40  mit  seinem  großen  Bruder  nicht 
nur  die  Centronics-Schnittstelle, 
sondern  auch  einige  Steuerbefehle. 
Für  einen  Drucker  dieser  Preisklas¬ 
se  ungewöhnlich  sind  Befehle  zum 
Einstellen  der  verschiedenen 
Schriftarten  (Bild  2)  wie  komprimier¬ 
ter  (80  Zeichen)  und  gedehnter  (40 
Zeichen)  Schrift.  Wer  das  gut  struk¬ 
turierte  und  umfangreiche  Hand¬ 
buch  studiert,  stößt  sogar  auf  zwei 
Befehle  für  einfache  und  doppelte 
Grafik,  die  den  Befehlen  der  »gro¬ 
ßen«  Brüder  entsprechen.  Ganz  er¬ 
staunlich  ist  auch  der  eingebaute 
Zeichengenerator.  Er  bietet  die 
Möglichkeit  zwischen  verschiede¬ 
nen  internationalen  Zeichensätzen 
zu  wählen,  unter  anderem  auch  ei¬ 
nem  deutschen.  Dieser  Zeichensatz 
enthält  96  ASCII-Zeichen,  inklusive 
der  Groß-  und  Kleinschreibung. 
Trotz  seines  guten  Konzeptes  ist  der 
Betrieb  des  P-40  am  C  64  nicht  ohne 
Probleme.  In  jedem  Fall  wird  ein  zu¬ 
sätzliches  Interface  notwendig,  das 
mindestens  50  Mark  kostet.  Für  eine 
riesige  Auswahl  solcher  Schnittstel¬ 
len  ist  allerdings  gesorgt:  Da  der 
P-40  über  die  gleiche  Befehlssyntax 
wie  seine  »großen  Brüder«  verfügt, 
können  alle  für  die  RX-80/FX-80  kon¬ 
struierten  Schnittstellen  verwendet 
werden.  Mittels  Batterien  kann  er 
auch  ohne  Netzteil  betrieben  wer¬ 
den.  Insgesamt  ist  der  P-40  ein  ge¬ 
lungenes  Gerät,  bei  dem  es  aller¬ 
dings  am  rechten  Einsatzgebiet 
fehlt.  Für  eine  Textverarbeitung  ist 
sein  Papier  zu  schmal  und  als  Li- 
stingdrucker  fehlt  ihm  der  Commo- 
dore-Zeichensatz.  Mit  einem  Preis 
von  448  Mark  (ohne  Interface)  ist  der 
P-40  auch  etwas  teuer. 

Doppeltes  Lottchen 

Der  Brother  HR-5  (Bild  3)  ist  ein 
Thermo-Transfer-Drucker,  den  es  in 
zwei  verschiedenen  Ausführungen 
gibt.  An  einem  »C«  hinter  dem  Na¬ 
men  erkenntlich,  stellt  sich  die  di 
rekt  an  den  C  64  anschließbare  Ver¬ 
sion  vor.  Ein  eingebautes  Interface 
sorgt  für  alle  Anpassungen,  die  für 
den  Betrieb  am  C  64  wichtig  sind. 
Beim  HR-5  ohne  »C«  stehen  zwei 


Schnittstellen,  Centronics  parallel 
oder  V.24  (RS232C)  zur  Verfügung. 
Das  Druckverfahren  des  HR-5C  ist 
etwas  ungewöhnlich.  Während  des 
Druckes  fährt  der  Druckkopf  am 
stillstehenden  Farbband  entlang 
und  preßt  es  gegen  das  Papier.  Da¬ 
bei  werden  die  angesteuerten 
Punkte  auf  dem  Druckkopf  erwärmt 
und  die  Farbpartikel  bleiben  auf 
dem  Papier  hängen.  Nach  dem 
Druck  einer  Zeile  hält  der  Druck¬ 
kopf  an  und  es  wird  mit  verhältnis¬ 
mäßig  lautem  Geräusch  das  Farb¬ 
band  weitergespult.  Da  der  Druck 
bidirektional  abläuft,  wird  die  näch¬ 
ste  Zeile  in  der  Regel  von  rechts 
nach  links  gedruckt.  Beim  HR-5C 
können  zwei  verschiedene  Papier¬ 
sorten  verwendet  werden.  Neben 
dem  Druck  auf  normalem  Papier  mit 
Farbband  (Bild  4)  kann  der  Drucker 
auch  direkt  auf  Thermopapier 
drucken.  Man  hat  also  die  Wahl  zwi¬ 
schen  teurem  Farbband  und  billi¬ 
gem  Papier  oder  teurem  Thermopa¬ 
pier.  Der  HR-5C  ist  zum  Betrieb  mit 
vier  Monozellen  vorgesehen.  Wahl¬ 
weise  kann  auch  ein  Netzgerät,  das 
aber  mit  40  Mark  extra  bezahlt  wer¬ 
den  muß,  verwendet  werden.  Diese 
Anschaffung  ist  aber  ratsam,  denn 
bei  einer  Leistungsaufnahme  von  6 
Watt  sind  Batterien  natürlich  schnell 
erschöpft.  Sehr  viel  Fingerfertigkeit 
verlangt  das  Einstellen  der  unter 
der  Führungsstange  und  dem  Steu¬ 
erriemen  verborgenen  DIL-Schal- 
ter  und  das  Einlegen  der  Farbband¬ 
kassette.  Das  eingebaute  Interface 
wurde  in  wesentlichen  Punkten  an 
die  Steuerung  der  Commodore- 
Drucker  angepaßt.  Mit  der  Sekun¬ 
däradresse  0  erfolgt  der  Ausdruck 
im  Normalmodus  (Großbuchstaben 
und  Grafikzeichen).  Mit  der  Sekun¬ 
däradresse  7  erreicht  man  den  Zei¬ 
chensatz  mit  großen  und  kleinen 
Buchstaben.  Zu  den  Fähigkeiten  des 
HR-5C  gehört  auch  der  Druck  von 
reversen  und  vergrößerten  Zei¬ 
chen.  Das  umfangreiche  Handbuch 
erleichtert  die  Einarbeitung  in  den 
HR-5C. 

Der  IIR-5C  ist  mit  einem  Preis  von 
499  Mark  sicherlich  kein  schlechter 
Kauf  für  alle,  denen  es  auf  problem¬ 
losen  Anschluß  und  niedrigen  Ge¬ 
räuschpegel  ankommt.  Drei  Dinge 
sind  es  aber,  die  den  sonst  guten 
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Auf  Herz  und  Nieren  werden  die  Testkandidaten  überprüft 


Eindruck  des  HR-5C  schmälern:  Die 
relativ  hohen  Unterhaltskosten,  die 
niedrige  Druckgeschwindigkeit  (10 
bis  30  Zeichen  pro  Sekunde)  und  die 
unpraktische  Handhabung. 

Die  Hausmarke 

Seikosha  und  Commodore- 
Drucker  sind  zwei  Worte  für  den 
gleichen  Begriff.  Drucker  dieser 
Firma  haben  den  C  64,  und  vorher 
den  VC  20,  auf  weiten  Strecken  ihrer 
Entwicklung  begleitet.  Seikosha  war 
auch  die  erste  Firma,  die  außer 
Commodore  selbst,  direkt  an  den 
seriellen  Port  des  C  64  anschließba¬ 
re  Drucker  anbot.  Kein  Wunder, 
denn  die  Commodore  1525-  und 
MPS  801-Drucker  werden  eigentlich 
von  Seikosha  produziert  (nur  das 
Gehäuse  stammt  von  Commodore). 
So  kommt  es  auch,  daß  einige  unse¬ 
rer  Testkandidaten  auffällige  Ähn 
lichkeiten  besitzen.  Wir  haben  den 
MPS  801  und  den  Seikosha  GP500A 
miteinander  verglichen.  Die  Mecha¬ 
nik  beider  Drucker  ist  identisch  und 


auch  beim  Gehäuse  bestehen  kaum 
Differenzen.  Der  Unterschied  liegt 
im  Verborgenen,  denn  der  MPS  801 
wurde  mit  den  gleichen  Steuerbe¬ 
fehlen  wie  der  seit  langem  bekann¬ 
te  1525  (baugleich  mit  Seikosha 
GP100VC)  ausgestattet.  Dazu  aber 
später  mehr.  Betrachten  wir  zu¬ 
nächst  den  GP500A  (Bild  5).  Mit  ei¬ 
ner  Centronics-Schnittstelle  ausge¬ 
stattet,  ist  der  GP500A  nicht  direkt 
an  den  C  64  anschließbar.  Es  wird 
deshalb  notwendig,  zusätzlich  ein 
Interface  anzuschaffen.  Einziger 
Vorteil  dieses  Druckers  gegenüber 
dem  MPS  801  wäre  der  vorhandene 
deutsche  Zeichensatz.  Von  dem 
kann  der  C  64-Besitzer  aber  wenig 
Gebrauch  machen,  denn  das 
Schnftbüd  (Bild  6)  ist  eigentlich  nicht 
ausreichend.  Der  GP500A  kann  kei¬ 
ne  Unterlängen  drucken.  Buchsta¬ 
ben  wie  »p«  oder  »y«  werden  immer 
angehoben,  was  einem  harmoni¬ 
schen  Textbild  nicht  gerade  zuträg¬ 
lich  ist.  Wer  ihn  zum  Programmieren 
verwenden  möchte,  stößt  recht  bald 


auf  die  Grenzen.  Außer  einer  ver¬ 
größerten  Schrift  und  einem  Grafik¬ 
modus  sind  kaum  Sonderfunktionen 
vorhanden.  Der  GP500A  kostet  598 
Mark. 

Dem  GP500A  ähnlich  ist  der 
GP50A.  Er  ist  ebenfalls  ein  Nadel- 
Matrixdrucker,  bei  dem  die  Papier¬ 
breite  allerdings  halbiert  wurde. 
Auch  er  verfügt  nur  über  eine 
Centronics-Schnittstelle.  Das  Haupt¬ 
einsatzgebiet  dieses  Druckers  wäre 
das  eines  preiswerten  (398  Mark) 
Protokolldruckers  beim  Program¬ 
mieren.  Dazu  fehlt  ihm  aber  der 
Commodore-Zeichensatz.  Da  er  die¬ 
se  Fähigkeit  erst  zusammen  mit  ei¬ 
nem  Interface  erlangt,  geht  leider 
einiges  vom  Preisvorteil  verloren. 
Die  Handbücher  zu  den  beiden 
Druckern  sind  ziemlich  kurz  gehal¬ 
ten  und  nicht  auf  das  Commodore- 
Basic  abgestimmt. 

Die  Problemlosen 

Der  MPS  801  (Bild  7)  ist  eine  Wei¬ 
terentwicklung  des  1525  (baugleich 
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Bild  1.  Epson  P-40,  ein  Thermo-Drucker 


EPSON 

PARI ERBREITE:  11  ZENTIMETER 
ZEICHENMflTRIX:  5  X  9 
DRUCK  GES  CH  l'J  I ND I GKE  IT:  4@ 

ZEICHEN  PRO  SEKUNDE 

GRAFIKFAEHIG:  JA,  ZWEI  PL#TDICHTEN 

DOPPELTE  BREITE 

UERSCH I EDENE  ZE I LENABST HEMDE 

KOMPRIMIERTE  SCHRIFT 

HERUORGEHOBENE  SCHRIFT 

DEUTSCH  UMLAUTE: 

BöUAäöüß  (Schriftbild  verkleinert) 


Bild  2.  Klein,  aber  mit  Leistungen  der  Großen  ausgestattet  -  der 
Epson  P-40 


BROTHER  HR  5  THERMOTRANSFERDRUCKER 
PAPIERBREITE:  21  ZENTIMETER 
ZEICHENMATRIX:  9X9 
DRUCKGESCHW I ND I GKE I T  30 
ZEICHEN  PRO  SEKUNDE 
GRAFIKFAEHIG:  JA,  ZWEI  PUNKTDICHTEN 
D  O  R  REl_T  R  E3  R  EITE 
VERSCHIEDENE  ZE I LENABSTAENDE 
KOMPRIMIERTE  SCHRIFT 
HERVORGEHOBENE  SCHRIFT 
IJNTERSTR I CHENE  SCHR I CT 

ELITE  SCHRIFT  MIT  DEM  HR-5 
DEUTSCH  UMLAUTE: 
aöu'‘äoüß 


(Schriftbild  verkleinert) 


Bild  3.  Brother  HR-5,  ein  Thermo-Transfer-Drucker 


Bild  4.  Gute  Leistung  und  fast  nicht  zu  hören  —  der  Brother  HR-5 


Bild  5.  Seikosha  GP500A,  der  Nachfolger  des  GP100 


DER  SEIKOSHA  CP  5@ÖH 
VERUEGT  UEBER  EINE  PflPIERBREITE 
VON  21  ZENTIMETERN 
ER  BESITZT  EINE  5X8  ZEICHENMfiTRIX 
UND  EINE  DRUCKGESCHWINDIGKEIT  VON  50 
ZEICHEN  PRO  SEKUNDE 
DER  QP500R  IST  GRAFIKFAEHIG 
DOPPELTE  SCHR  X  FTBRE  I  TSE! 
DURCH  CHR*<  1  -T  > 


(Schriftbild  verkleinert) 


Bild  6.  Schriftprobe  vom  MPS  801  und  GP500A 
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mit  Seikosha  GP100VC,  der  vom 
GP500C  abgelöst  wurde).  Alle  Steu¬ 
erzeichen  und  Sekundäradressen 
des  C  64  entsprechen  denen  des 
Druckers.  Der  Unterschied  liegt  im 
etwas  modernisierten  Gehäuse  und 
einer  anderen  Druckmechanik  (die 
des  Seikosha  GP500A).  Das  Farb¬ 
band  wurde  gegenüber  dem  1525- 
Drucker  verkleinert  und  direkt  auf 
dem  Druckkopf  in  einer  kleinen 
Kassette  untergebracht.  Durch  die 
neue  Mechanik  ist  der  MPS  801  et¬ 
was  schneller  als  sein  Vorgänger 
geworden,  er  schafft  jetzt  50  Zeichen 
pro  Sekunde  gegenüber  30  Zeichen 
pro  Sekunde  beim  1525.  Leider  ha¬ 
ben  diese  Neuerungen  ihren  Preis, 
der  MPS  801  kostet  698  Mark,  bietet 
aber  nur  wenig  Vorteile  gegenüber 
dem  1525.  Er  eignet  sich  vor  allem 
als  Grafik-Drucker  oder  zum  Listen 
eigener  Programme.  Für  die  Text¬ 
verarbeitung  gilt  das  gleiche  wie  für 
den  Seikosha  GP500Ä.  Die  Zeichen¬ 
darstellung  erreicht  leider  keine 
Briefqualität  (Bild  6). 

Der  billigste  für  den  C  64  erhältli¬ 
che  Drucker  ist  der  1520  (Bild  8).  Ge¬ 
nau  genommen  ist  der  1520  eigent¬ 
lich  gar  kein  Drucker,  sondern  ein 
Plotter.  Mit  einer  Papierbreite  von 
11,5  Zentimetern  ist  der  1520  in  der 
Lage,  mit  seinen  vier  Farbminen  so¬ 
wohl  Grafiken,  als  auch  Programmli- 
stings  auszudrucken.  Der  1520-Prin- 
ter/Plotter  ist  im  wesentlichen  ein 
XY-Plotter,  der  mit  kurzen  Kugel¬ 
schreiberminen  arbeitet.  Er  'wird 
durch  Schrittmotoren  angetrieben 
und  ermöglicht  präzises  Zeichnen 
mit  einer  Auflösung  von  0,2  Millime¬ 
tern  und  einer  Geschwindigkeit  von 
14  Zeichen  pro  Sekunde.  Wie  alle 
Commodore-Drucker  wird  auch 
der  1520  über  Sekundäradressen 
gesteuert.  Beim  Auslisten  von  Pro¬ 
grammen  übersetzt  der  1520  alle 
Grafik-  und  Steuerzeichen  in  unter¬ 
strichene  Buchstaben.  Nach  einer 
kurzen  Eingewöhnungszeit  sind  sol¬ 
che  Programmlistings  sogar  deutli¬ 


cher  zu  lesen,  als  die  mit  dem  MPS 
801  erstellten.  Da  der  1520-Plotter/ 
Printer  mittlerweile  für  weniger  als 
300  Mark  erhältlich  ist,  lohnt  seine 
Anschaffung  auch  dann  noch,  wenn 
schon  ein  Matrixdrucker  vorhanden 
ist.  Die  Programmierung  der  Plotter¬ 
funktionen  stellt  für  sich  alleine  be¬ 
trachtet  schon  eine  interessante  Auf¬ 
gabe  dar.  Erwägt  man  den  1520  als 
Protokolldrucker  bei  Meßvorgän¬ 
gen  einzusetzen,  gibt  es  kaum  eine 
preiswertere  Alternative.  Die  Hand 
bücher  sind  in  der  für  Commodore 
typischen  Kürze  gehalten,  trotzdem 
erklären  sie  die  wichtigsten  Funktio¬ 
nen  ausführlich  genug. 

Der  leise  Star 

Der  Star  STX  80  (Bild  9)  ist  der  lei¬ 
stungsfähigste  Drucker  dieses  Te¬ 
stes.  Als  Thermo-Drucker  konstru¬ 
iert,  ist  er  fast  nicht  zu  hören.  Der 
STX  80  schafft  im  bidirektionalen 
Druck  bis  zu  60  Zeichen  pro  Sekun¬ 
de.  Alle  Buchstaben  haben  Unter¬ 
länge  und  sogar  deutsche  Umlaute 
sind  vorhanden.  Schade,  daß  der 
STX  80  nur  mit  Spezialpapier 
drucken  kann,  denn  sonst  wäre  er 
der  einzige  auch  zur  Textverarbei¬ 
tung  ersetzbare  Drucker.  Sein 
Schriftbild  erfüllt  die  Mindestanfor¬ 
derungen.  Seine  wahren  Fähigkei¬ 
ten  zeigt  der  STX  80  wenn  er  mit 
dem  Star-Interface  an  den  C  64  an¬ 
geschlossen  wird.  Büd  10  zeigt  die 
umfassenden  Möglichkeiten,  die 
dem  Programmierer  dann  zur  Ver¬ 
fügung  stehen.  Die  Befehle  des  In 
terfaces  erlauben  sogar  einwand¬ 
freie  Lislings  in  Klarschrift  (Steuer¬ 
zeichen  werden  übersetzt). 

Mit  einem  Preis  von  595  Mark  oh¬ 
ne  Interface  bietet  der  STX  80  viel 
für  sein  Geld.  Er  ist  der  ideale 
Drucker  für  alle,  die  gehobene  An¬ 
sprüche  stellen,  denen  aber  Nadel- 
Matrixdrucker  zu  laut  sind,  Sein 
größter  Nachteil  sind  die  relativ  ho¬ 
hen  Kosten  für  das  Spezialpapier. 


Das  Handbuch  für  den  Drucker  und 
das  Interface  können  als  gelungene 
Produktbeschreibung  bezeichnet 
werden. 

Lohnt  es  sich? 

Der  Test  hat  gezeigt,  daß,  trotz  ei¬ 
niger  Lichtblicke,  bei  Low-Cost 
Druckern  nach  wie  vor  große  Ab¬ 
striche  an  Qualität  und  Leistungsfä¬ 
higkeit  gemacht  werden  müssen. 
Keines  der  getesteten  Geräte  erfüllt 
alle  an  einen  Drucker  zu  stellenden 
Anforderungen  in  ausreichendem 
Maße.  Die  schwierigste  Hürde,  die 
Eignung  zur  Textverarbeitung,  ha¬ 
ben  eigentlich  alle  Testkandidaten 
dieser  Preisklasse  nicht  nehmen 
können.  Entweder  reicht  die  Quali¬ 
tät  der  Schrift  für  heutige  Ansprüche 
kaum  aus,  oder  die  Papierbreite  be¬ 
ziehungsweise  Papierart  behindert 
eine  sinnvolle  Anwendung.  Trotz¬ 
dem  haben  Low-Cost-Drucker  ihren 
Markt,  denn  bei  Preisen  von  300 
Mark  aufwärts,  sind  sie  die  oft  einzi¬ 
gen  erschwinglichen  Alternativen. 
Dennoch  sollte  jeder  prüfen,  ob  er 
nicht  doch  zwei-  oder  dreihundert 
Mark  mehr  anlegen  kann.  Ab  zirka 
800  Mark  gibt  es  heute  schon 
Drucker,  deren  Schriftbild  und  Lei¬ 
stungsfähigkeit  weit  über  denen  der 
getesteten  Geräte  liegt.  Der  Wie¬ 
derverkaufswert  eines  Druckers 
sinkt  wegen  der  vielen  mechani¬ 
schen  Teile  schneller,  als  bei  einem 
rem  elektronischen  Gerät  wie  ei¬ 
nem  Computer.  Drucker  sollte  man 
lieber  eine  »Nummer  zu  groß«  kau¬ 
fen,  denn  mit  steigenden  Program¬ 
mierfähigkeiten  wachsen  meist 
auch  die  Ansprüche 

(Arnd  Wängler/hm) 
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ALLE  6RBFIKZEICHEN 


(Schriftbild  verkleinert) 


Bild  9.  Star  STX  80,  ein  leistungsfähiger  Thermodrucker 


Bild  10.  Das  Schriftbild  des  vielseitigen  und  leisen  Star  STX  30 
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Supenlrucker  mit 
frechem  Preis 

Kaum  vier  Jahre,  nachdem  Star  mit  dem  Gemini  10 
sein  Debüt  auf  dem  Peripherie-Markt  gab,  wurden 
auf  der  CES  in  Las  Vegas  die  Drucker  einer  neuen 
Generation  vorgestellt.  SG,  SD  und  SR  heißen  die 
Modelle,  die  mit  außergewöhnlichen  Leistungen  und 
günstigen  Preisen  neue  Maßstäbe  setzen. 


Bild  3.  Der  kleinste  (SD-10)  der  neuen  Star-Reihe  ist  keine  Srhönheit,  aber  leistungsfähig 


Star  setzt  mit  den  Druckern  SG-10, 
SD-10  und  SR-10  einen  neuen 
Standard.  Die  neue  Star-Gene¬ 
ration  weist  Leistungen  auf,  wie  sie 
sonst  nur  von  wesentlich  teureren 
Geräten  her  bekannt  sind.  Dabei 
sind  alle  drei  Geräte  nach  dem  glei¬ 
chen  Konzept  konstruiert.  Dieses 
Konzept  versucht,  durch  hohe  Flexi¬ 
bilität,  allen  erdenklichen  Anforde¬ 
rungen  gerecht  zu  werden.  Von  ei¬ 
nem  modernen  Drucker  wird  heute 
erwartet,  daß  er  über  verschiedene 
Zeichensatze  verfügt,  eine  Reihe 
von  Schriftarten  beherrscht,  voll  gra¬ 
fikfähig  ist  und  bei  niedrigem  Ge¬ 
räuschpegel  trotzdem  schnell 
druckt.  Darüber  hinaus  steigen  die 
Ansprüche  an  das  Schriftbild.  Gera¬ 
de  bei  Briefen  werden  Schriftquali¬ 
täten  verlangt,  die  mit  denen  eines 
Typenraddruckers  vergleichbar 
sind.  Alle  diese  Anforderungen 
wurden  bei  der  Konstruktion  der 
neuen  Druckergeneration  von  Star 
berücksichtigt.  Jedes  Modell  ver¬ 
fügt  über  einen  enormen  Reichtum 


verschiedenster  Schriftarten  (Bild  1) 
und  Steuerbefehle,  mit  denen  jeder 
Text  abwechslungsreich  aufbereitet 
werden  kann.  Alle  Modelle  beherr¬ 
schen  sechs  Grafikmodi  mit  Auflö 
sungen  zwischen  8  x  60  und  8  x  240 
Punkten  pro  Inch  (1  Inch  =  2,54  Zen¬ 
timeter)  und  verschiedene  Zeichen¬ 
sätze.  Eine  bisher  wenig  bekannte 
Neuerung  ist  die  Definition  von  so¬ 
genannten  »Makros«. 

Diese  Befehle  sind  nichts  anderes 
als  selbst  definierte  Steuerbefehle, 
in  denen  mehrere  Druckfunktionen 
zusammengefaßt  werden.  So  ge¬ 
nügt  es,  beispielsweise  eine  be¬ 
stimmte  Schriftart  einmal  zu  definie¬ 
ren,  durch  Aufruf  des  Makros  steht 
diese  Schrift  dann  jederzeit  zur  Ver¬ 
fügung.  Auch  die  Druckgeschwin¬ 
digkeit  der  Testkandidaten  kann 
sich  sehen  lassen.  Sie  reicht  von  120 
Zeichen  pro  Sekunde  beim  SG-10 
über  160  beim  SD-10  bis  zu  200  Zei¬ 
chen  pro  Sekunde  beim  SR-10.  Man 
kann  diese  Werte  auch  als  relative 
Druckgeschwindigkeit  bezeichnen, 


denn  die  tatsächliche  Geschwindig¬ 
keit  ist  noch  von  einigen  anderen 
Punkten  abhängig.  So  verkürzen 
beispielsweise  die  Druckwegopti¬ 
mierung  (siehe  Grundsatzartikel  in 
dieser  Ausgabe)  und  auch  eine  ho¬ 
he  Geschwindigkeit  des  Papier¬ 
transports  die  Zeit,  nach  der  ein 
Schriftstück  fertig  gedruckt  ist.  Die 
drei  Testkandidaten  glänzen  hier 
mit  sehr  guten  Werten,  denn  sie  sind 
alle  druckwegoptimiert  und  trans¬ 
portieren  das  Papier  mit  10  (SD/SG) 
bis  12  (SR)  Zeilen  pro  Sekunde.  Die¬ 
se  Geschwindigkeiten  gelten  natür¬ 
lich  nur  für  den  Normalschrift- 
Modus,  dessen  Aussehen  etwa  dem 
des  Epson  FX-80  entspricht.  Jede 
Veränderung  der  Schrift  wirkt  sich, 
wie  bei  allen  Druckern  dieses  Kon- 
struktionspnnzips,  allerdings  auf 
die  Schreibgeschwindigkeit  aus. 

Typenraddrucker 

eingebaut 

Bislang  ließen  sich  mit  der  Propor- 
tionalschrift  die  besten  Schriftbilder 
erzeugen.  Bei  der  neuen  Star- 
Generation  wurde  der  ebenfalls 
vorhandene  Proportional-Modus 
durch  eine  besondere  Drucktech¬ 
nik  erweitert.  Sie  nennt  sich  NLQ- 
Schrift.  Die  drei  Buchstaben  NLQ 
stehen  dabei  für  »Near  Letter  Quali¬ 
ty«  oder  auf  gut  deutsch  für  Briefqua¬ 
lität  oder  Schönschrift.  Hinter  die¬ 
sem  Zauberwort  versteckt  sich  ein 
Zeichensatz,  dem  eine  17  x  11-Zei- 
chenmatrix  zugrunde  liegt.  Der 
Druckkopf  fährt  dabei  nicht  nur  ein¬ 
mal,  sondern  zweimal  über  die  Zeile 
und  setzt  jedes  Zeichen  aus  zwei  Tei¬ 
len  zusammen.  Diese  entweder 
über  einen  gut  erreichbaren  Schal¬ 
ter  (wie  alle  anderen  Schalter  auch) 
oder  aber  softwaregesteuert  ein¬ 
stellbare  Schrift  setzt  in  dieser  Preis¬ 
klasse  Maßstäbe  der  Druckqualität 
bei  Matrixdruckern,  wie  sie  bisher 
nur  von  Typenraddruckern  bekannt 
waren  (Bild  2).  Zwar  mit  deutlich  ver¬ 
langsamter  Druckgeschwindigkeit, 
aber  dennoch  schneller  als  die  mei¬ 
sten  Typenraddrucker,  kann  das 
Resultat  dieser  Neuerung  als  kleine 
Sensation  bezeichnet  werden. 

Endlich  wird  es  möglich  mit  ein 
und  demselben  Gerät  sowohl 
schnelle  Listings,  hochaullösende 
Grafiken  und  Schriftstücke  mit  Brief¬ 
qualität  zu  erstellen.  Damit  aber 
nicht  genug  der  Besonderheiten. 
Ein  2  KByte  qroßer  Pufferspeicher, 
der  entweder  zum  Speichern  eige¬ 
ner  Zeichensätze  oder  als  Eingabe¬ 
puffer  dient,  sorgt  dafür,  daß  wirk¬ 
lich  jedes  nur  erdenkliche  Zeichen 
gedruckt  werden  kann.  Wer  will, 
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entwirft  so  seine  eigenen  Zeichen¬ 
sätze  (beispielsweise  andere  Schrif¬ 
ten  oder  wissenschaftliche  Zeichen) 
bis  hin  zu  ägyptischen  Hyrogly- 
phen.  Als  Papier  kann  bei  allen 
Funktionen  entweder  Einzelblatt 
oder  Endlospapier  verwendet  wer¬ 
den. 


Drei  (un)gleiche  Brüder 

Alle  drei  Drucker  der  neuen  Ge¬ 
neration  sind  sich  sehr  ähnlich.  Ei¬ 
gentlich  sind  es  sogar  sechs  Brüder 
denn  alle  drei  Geräte  sind  auch  un¬ 
ter  der  Bezeichnung  SG-15,  SD-15 
und  SR-15  erhältlich.  Sie  sind  dann  in 
der  Lage,  Papier  in  einer  Breite  von 
bis  zu  38  Zentimetern,  gegenüber  25 
Zentimetern  bei  den  lOer-Versionen 
zu  verarbeiten.  Trotzdem  sind  Un¬ 
terschiede  auch  zwischen  den  ein¬ 
zelnen  Geräten  vorhanden,  die  un¬ 
terschiedliche  Preise  rechtfertigen. 
Wichtigstes  Unterscheidungsmerk¬ 
mal  ist  die  Druckgeschwindigkeit. 
Daneben  gibt  es  Verschiedenheiten 
im  technischen  Aufbau.  Das  kleinste 
Modell  arbeitet  mit  Farbbandrollen, 
die  beiden  größeren  verwenden 
Farbbandkassetten.  Der  Traktoran¬ 
trieb  ist  bei  den  beiden  kleineren 
Modellen  anders  konstruiert  als 
beim  Spitzenmodell  SR-10.  SD-10  und 
SG-1C  verwenden  Traktorräder,  die 
über  der  Druckwalze  angeordnet 
sind.  Beim  SR-10  ist  der  Antrieb  für 
Endlospapier  in  die  Druckwalze  in¬ 
tegriert.  Der  Vorteil  dieses  Konzep¬ 


tes  ist  zum  einen  die  flachere  Bauart 
und  zum  anderen  eine  komfortable¬ 
re  Handhabung  bei  der  Papierjusta- 
ge  und  -entnähme.  Zusätzlich  vdrd 
der  beim  SR-10  ebenfalls  vorgese¬ 
hene  automatische  Papiereinzug 
möglich.  Außer  zwei  zusätzlichen 
Tasten  für  Druckunterbrechung 


und  Papiervorschub  ist  der  beim 
SK-1U  mögliche  Rückwärtstransport 
des  Papiers  letzter  großer  Unter 
schied  zu  den  kleinen  Brüdern. 

Anschluß  sichergestellt 

Die  Anschlußfähigkeit  an  mög¬ 
lichst  viele  Computertypen  ist  eines 
der  Hauptmerkmale  der  neuen 
Star-Generation.  Zum  Anschluß  an 
den  IBM-PC  wurde  sogar  ein  eige¬ 
ner  IBM-Modus  installiert.  Die  Kon¬ 
strukteure  haben  sich  weiterhin  ent¬ 
schieden,  die  Drucker  serienmäßig 
mit  einer  Centronics-Schnittstelle 
auszustatten  und  Interfaces  für  ver¬ 
schiedene  Computer  als  Option  (RS 
232,  Apple,  Commodore,  1EEE-488, 
Atari)  anzubieten.  Wir  haben  natür¬ 
lich  das  völlig  neu  überarbeitete 
Commodore-Interface  getestet.  Das 
Interface  wird  am  seriellen  Bus  des 
C  64  und  an  der  Centronics-Schnitt- 
stelle  des  Druckers  angeschlossen. 
Das  Interface  wurde  so  konstruiert, 
daß  es  die  Vorteile  aller  Commodo- 
re-Drucker  (Grafikfähigkeit  des 
MPS  801,  Textformatierung  des  MPS 
802)  vereinigt  und  zusätzlich  die  Fä¬ 
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Bild  1. 

Die  Schriftvielfalt  der  Star-Drucker 


Mit  der  NLQ-Schrift  CNear  Letter 
Quality)  besitzen  die  Star-Drucker 
SG-10,  SD-10  und  SR-10  einen  bisher 
unerreichten  Qual i tätsstandard .  Die 
NLQ-Schrift  ist  durchaus  mit  der 
Qualität  eines  Typenraddruckers  zu 
vergleichen,  allerdings  bleiben  die 
Uorteile  eines  Matrixdruckers  ganz 
erhalten . 


Bild  2. 

Mit  der  NLQ-Schrift 
wird  Typenrad- 
Qualität  erreicht 


higkeiten  des  Star-Druckers  selbst 
nicht  einschränkt.  Sogar  Hardcopy- 
Routinen  wie  sie  von  Supergrafik  64 
und  Simons  Basic  verwendet  wer¬ 
den,  funktionieren,  ohne  daß  eine 
spezielle  Maßnahme  vor  dem 
Druck  ergriffen  werden  muß.  Auch 
alle  anderen  Programme,  die  mit 
der  Grafik  der  MPS  801-Drucker  ar¬ 
beiten,  funktionieren  einwandfrei. 
Trotzdem  braucht  der  Anwender 
nicht  auf  die  Vorteile,  über  die  der 
Drucker  selbst  verfügt,  zu  verzich¬ 
ten.  Der  einmal  eingestellte  deut¬ 
sche  Zeichensatz  bleibt,  neben  al¬ 
len  Commodore-Grafikzeichen,  in 
vollem  Umfang  erhalten.  So  können 
Programmlistings  und  Briefe  mit 
deutschen  Umlauten  hintereinan¬ 
der  ausgedruckt  werden,  ohne  daß 
auch  nur  ein  Sonderbefehl  notwen¬ 
dig  wird. 

Als  positiv  ist  der  Weg  zu  beurtei¬ 
len,  der  bei  der  Darstellung  der 
Commodore-Steuerzeichen  in  ei¬ 
nem  Programmlistmg  gewählt  wur¬ 
de.  Das  Interface  übersetzt  alle 
Steuer-Codes  in  ähnlicher  Weise 
wie  die  in  diesem  Heft  abgedruck¬ 
ten  Programmlistings.  Die  Steuerzei¬ 
chen  werden  als  Klarschriftüberset¬ 
zung  des  jeweiligen  Zeichens  aus¬ 
gedruckt. 

Die  neue  Referenz 

Die  Leistungsmarken  der  neuen 
Star-Drucker  sind  derzeit  noch  un¬ 
übertroffen.  Mit  einem  Preis  von 
1 195  Mark  dürfte  der  SG-10  (Bild  3) 
die  derzeit  wohl  beste  Empfehlung 
für  den  Commodore  64  sein.  Der 
SD-10  mit  einem  Preis  von  1 595  Mark 
bietet  dem  Anwender,  bei  sonst 
gleicher  Leistung,  eine  um  40  Zei¬ 
chen  pro  Sekunde  gesteigerte 
Druckgeschwindigkeit.  Er  ist  des¬ 
halb  auch  für  größere  Tbxtmengen 
geeignet.  Der  SR-10  liegt  mit  einem 
Preis  von  2 150  Mark  sicher  schon  et¬ 
was  außerhalb  des  Heim-Bereichs. 
Mit  semen  überlegenen  Fähigkei¬ 
ten  und  der  sehr  hohen  Druckge¬ 
schwindigkeit  von  200  eps  ist  dieses 
Gerät  wahrscheinlich  der  haupt¬ 
sächlich  kommerziellen  Verwen¬ 
dung  Vorbehalten.  Die  neue  Star- 
Generaüon  ist  zukunftsorientiert.  Sie 
paßt  sowohl  zum  C  64  als  auch  zum 
neuen  C  128.  Durch  das  in  jeder 
Hinsicht  gelungene  Interface  wer¬ 
den  die  neuen  Slar-Drucker  sogar 
zu  den  besten  »Commodore-Druk- 
kern«,  die  es  bisher  gab.  Der  SG-10 
ist  dank  seiner  Flexibilität  und  der 
einmaligen  NLQ-Fähigkeit  unsere 
neue  Referenz  in  dieser  Preisklasse. 

(Arnd  Wängler/aa) 
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Zu  neuen  Horizonten 

Centronics  ist  nicht  nur  eine  Schnittstelle,  sondern 
auch  ein  Drucker-Hersteller.  Mit  dem  H80A  stellen 
wir  einen  Drucker  der  gehobenen  Klasse  vor. 


Als  die  Techniker  von  Centro¬ 
nics  für  ihre  Drucker  eine  pa¬ 
rallele  Schnittstelle  entwarfen, 
konnten  sie  noch  nicht  wissen,  wel¬ 
chen  Erfolg  ihre  Arbeit  haben  wür 
de.  Mittlerweile  hat  sich  die 
Centronics-Norm  neben  der  RS 
232-Schnittstelle  weltweit  durchge¬ 
setzt.  Zum  Glück  wurde  _  diese 
Schnittstelle  von  anderen  Herstel¬ 
lern  akzeptiert  und  ein  Schnittstel- 
lenchaos  verhindert.  Kompromißlos 
haben  die  Konstrukteure  des  Hori- 
zon  versucht,  die  Leistungen  des 
Druckers  den  Ansprüchen  der  Kun¬ 
den  anzupassen.  Dazu  gehören  na¬ 
türlich  mehrere  Schriftarten,  Grafik¬ 
fähigkeit  und  Bedienungsfreund¬ 
lichkeit,  Für  die  Textverarbeitung 


war  überraschend:  Zwei  vorsorglich 
bereitgelegte  Stoppuhren  waren 
überflüssig,  denn  der  Horizon 
schlug  den  Epson  um  Längen.  Als 
der  Horizon  die  letzte  Zeile  druckte, 
lag  der  Epson  fast  eine  Seite  zurück. 
Trotzdem  stimmen  die  Geschwin¬ 
digkeitsangaben  in  beiden  Handbü¬ 
chern.  Der  Unterschied  erklärt  sich 
aus  dem  schnelleren  Papiertrans¬ 
port  und  der  optimalen  Druckkopf¬ 
bewegung  des  Horizon. 

Der  Horizon  ist  ein  vielseitiger 
Drucker,  der  die  verschiedensten 
Papierarten  verarbeiten  kann.  Vor¬ 
gesehen  sind  Einzelblatteinzug  und 
Endlospapier  mit  Traktorantrieb. 
Der  Traktor  ist  hinter  der  Druckwal¬ 
ze  versenkt  und  gut  zugänglich.  Das 


arten,  Formatsteuerungen  (Tabs,  lin¬ 
ker  und  rechter  Rand,  Zeilenabstän¬ 
de)  und  für  den  Grafikbetrieb  ste¬ 
hen  zur  Verfügung.  Es  sind  sogar 
vier  verschiedene  Grafik-Modi  mit 
Punktdichten  von  60  bis  240  Punkten 
pro  Inch  (1  Inch  =  2,54  Zentimeter) 
vorhanden. 

Zum  Laden  eines  eigenen  Zei¬ 
chensatzes  mit  9  x  11  Punkte- 
Zeichenmatrix  besitzt  der  Horizon 
einen  2  KByte  großen  Pufferspei¬ 
cher.  Da  der  Speicher  auf  insgesamt 
8  KByte  erweitert  werden  kann,  be¬ 
steht  sogar  die  Möglichkeit,  eigene 
Zeichensätze  in  NLQ-Qualität  zu 
programmieren.  Der  Horizon  ver¬ 
fügt  über  Leistungen,  mit  denen  er 
allen  Ansprüchen  gerecht  wird:  Es 
stehen  viele  mischbare  Schriftarten 
zur  Verfügung.  Sogar  eine  Propor- 
tional-Schrift,  bei  der  alle  Zeichen¬ 
abstände  automatisch  ausgeglichen 
werden. 

Anschluß  an  den  C  64 

Der  Horizon  wurde  so  konstruiert, 
daß  er  mit  möglichst  vielen  Compu¬ 
tern  zusammenarbeitet.  Möchte 


DER  CENTRONICS  H80A  NLQ-DRUCKER 

DIES  IST  DIE  NORMALSCHRIFT  MIT  160  CPS 

DER  H80A  VERFUEGT  AUCH  UEBER  NLQ-CHARACTERS 
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DER  IT AL  I C-CH  AR  ACTE  R—$ET  HIRP  HEUIG  GEBRAUCHT 
MAL  SEHEN  HIE  GUI  ME  KOMPRIMIERTE  SCHRIFT  IST 
BRE I T ,  BRE I T ,  BRE I T 
UNTERSTRICHENES  WIRD  DEUTLICHER 


Eine  Auswahl  der  verschiedenen  Schriftarten  des  Horizon 


Der  Centronics  H80A  Horizon  -  überzeugende  Qualität 


spendierte  Centronics  dem  Horizon 
eine  spezielle  Schriftart.  Sie  nennt 
sich  Near-Letter-Quality-(NLQ-) 
Schrift  und  stellt  das  von  Matrix¬ 
druckern  bisher  gewohnte  Schrift¬ 
bild  in  den  Schatten.  Die  NLQ 
Schrift  (Schönschriftmodus)  des  Ho¬ 
rizon  basiert  auf  einer  23  x  9  Zei¬ 
chenmatrix.  Da  der  Horizon  ein 
9-Nadel -Matrixdrucker  ist,  druckt 
er  im  NLQ-Modus  immer  zweimal 
über  eine  Zeile.  Beim  zweitonmal  je¬ 
doch  leicht  versetzt,  um  eine  höhere 
Auflösung  zu  erreichen.  Trotzdem 
bleibt  der  Horizon  ein  sehr  schnel¬ 
ler  Drucker.  Das  Handbuch  nennt 
eine  Geschwindigkeit  von  160  Zei¬ 
chen  pro  Sekunde  im  Normalmo¬ 
dus.  Das  ist  genau  der  gleiche  Wert 
wie  er  vom  Epson  FX-80  erreicht 
wird.  Wer  von  den  beiden  ist  aber 
tatsächlich  schneller?  Wir  haben 
die  Probe  gemacht.  Beide  Drucker 
hatten  unter  gleichen  Bedingungen 
(Vizawrite  64,  Kabelinterface)  den 
gleichen  Text  von  vier  Seiten  Länge 
auszudrucken.  Das  Testergebnis 


Konstruktionsprinzip,  Papier  um  die 
Druckwalze  zu  schieben  statt  es  zu 
ziehen,  hat  zwei  Vorteile:  Zum  einen 
läßt  sich  das  Papier  leicht  justieren, 
zum  anderen  kann  es  direkt  ober¬ 
halb  des  Druckkopfes  abgerissen 
werden,  Im  hinteren  Teil  des 
Druckergehäuses  ist  eine  Vertie¬ 
fung  zum  Einlegen  einer  Endlos- 
Papierrolle  angebracht. 

Wie  bei  fast  allen  Druckern  kön¬ 
nen  auch  beim  Horizon  viele  Druck¬ 
funktionen  mit  Hilfe  von  Schaltern 
eingestellt  werden.  Auf  insgesamt 
drei  DIL-Leisten  (DIL = Dual  in  Line) 
besitzt  der  Horizon  genau  20  Schal¬ 
ter.  Neben  den  üblichen  Funktionen 
wie  Auto-Line-Feed  und  den  interna¬ 
tionalen  Zeichensätzen,  wird  hier 
die  Art  der  Schrift  eingestellt,  die 
beim  Einschalten  zur  Verfügung  ste¬ 
hen  soll 

Der  Horizon  wird,  wie  die  meisten 
Drucker,  mit  ESC-Befehlen  und  Steu¬ 
erzeichen  programmiert.  Ein  reich¬ 
haltiges  Spektrum  verschiedener 
Befehle  zur  Einstellung  der  Schrift- 


man  ihn  an  einen  C  64  anschließen, 
kommt  man  um  die  Anschaffung  ei¬ 
nes  Interfaces  nicht  herum.  Will 
man  in  den  Genuß  der  Commodore- 
Grafikzeichen,  reverser  Schrift  und 
der  Steuerzeichen  in  einem  Pro- 
grammlisting  kommen,  wird  die  An¬ 
schaffung  eines  Hardware-Interfa¬ 
ces  notwendig.  Ein  solches  Interfa¬ 
ce  wird  bereits  von  der  Firma  Wie¬ 
semann  angeboten. 

Rundum  gelungen 

Mit  seiner  hohen  Druckgeschwin¬ 
digkeit  bei  relativ  niedrigem  Ge¬ 
räuschpegel  (60  dBA)  ist  der  Horizon 
ein  echter  Profi.  Der  größte  Nachteil 
des  Horizon  ist  sein  relativ  hoher 
Preis  von  2050  Mark.  Dazu  kommen 
die  Kosten  für  ein  Interface.  Dafür  ist 
der  Horizon  aber  auch  ein  hochwer¬ 
tiges  Qualitätsprodukt,  das  seinem 
Besitzer  gute  Dienste  leistet. 

(Arnd  Wängler/hm) 

Info:  Centronics  Data  Computer,  Lyoner  Str  44-48.  6000 
Frankfurt  71  Tel  (069)  6666748 
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Beeindruckend:  D-80X 

Gute  Drucker  müssen  nicht  teuer  sein.  Der  D-80X 
überrascht  durch  sehr  gute  Schriftqualität  und  viele 
Anschlußmöglichkeiten  nei  günstigem  Preis. 


Eigentlich  ist  der  Matrixdrucker 
D-80X  (Bild  1)  ein  alter  Bekann¬ 
ter.  Schon  kurz  nach  der  ersten 
Druckprobe  war  sich  die  Redaktion 
einig:  »Dieses  Schriftbild  hatten  wir 
doch  schon  mal!«.  Eine  nähere  Un¬ 
tersuchung  der  Druckmechanik 
schaffte  Klarheit.  Sowohl  der  Druck¬ 
kopf,  als  auch  der  Druckmechanis¬ 
mus  sind  mit  dem  des  Commodore 
MPS  802  identisch.  Die  Ähnlichkeit 


und  einer  IEC-seriellen  Schnittstel¬ 
le.  Eine  RS232  kann  nachträglich 
eingebaut  werden.  Das  bedeutet, 
daß  der  D-80X  ohne  zusätzliche  Er 
Weiterungen  sowohl  an  die  »großen« 
CBM-Serien.  als  auch  an  den  seriel¬ 
len  Bus  des  C  64  direkt  anschließ¬ 
bar  Ist.  Einzige  Maßnahme  ist  das 
Umlegen  eines  DiL-Schalters.  Der 
Platz  dieser  Schalter  ist  allerdings 


empfehlenswert,  diese  Schalter 
gleich  ab  Werk  an  der  Gehäuse¬ 
rückseite  anzubringen. 

Der  Anschluß  an  den  C  64  ist  so 
problemlos  wie  bei  einem  CBM- 
Drucker;  das  mitgelieferte  Kabel 
wird  einfach  an  das  Diskettenlauf¬ 
werk  oder  direkt  am  Computer  an¬ 
geschlossen. 

Welche  Leistungen  kann  der  Pro¬ 
grammierer  von  einem  mit  899  Mark 
relativ  preisgünstigen  Drucker  er¬ 
warten?  Eignet  er  sich  für  Grafikaus¬ 
druck  und  Textverarbeitung  glei¬ 
chermaßen?  Beim  D-80X  ist  es 
leicht,  diese  Fragen  mit  einem  deut 
liehen  »Ja«  zu  beantworten.  Neben 
dem  vom  MPS  802  bekannt  guten 
Schriftbild  mit  echten  Unterlängen 


ist  schnell  erklärt,  wenn  man  etwas 
hinter  die  Kulissen  der  Elektronik- 
Branche  schaut.  Dort  ist  es  durchaus 
üblich,  Teile  großer  Zubehörliefe- 
ranten  (meist  in  Fernost)  einzukau¬ 
fen,  in  eigene  Entwicklungen  einzu¬ 
bauen  und  das  Ganze  dann  mit  neu 
em  Namen  zu  verkaufen.  So  wird 
beispielsweise  das  1341-Laufwerk 
von  Alps-Elektronik,  die  auch  Alpi¬ 
ne  Autoradios  fertigen,  an  Commo¬ 
dore  geliefert.  So  ist  eine  gewisse 
Verwandtschaft  von  MPS  802,  De- 
cam  D-80X,  Mannesman  Tally  und 
Shinwa  SP-80  zu  erkennen.  Damit 
soll  aber  nicht  gesagt  sein,  daß  es 
keine  Unterschiede  zwischen  die¬ 
sen  Druckern  gibt.  Im  Gegenteil,  ein 
Mercedes  mit  Bosch-Zündung  ist  ja 
auch  etwas  anderes  als  ein  Golf  mit 
Bosch-Zündung.  Die  Druckmecha¬ 
nik  setzt  nur  den  Rahmen  des  Mög¬ 
lichen.  Der  Charakter  eines 
Druckers  wird  aber  erst  durch  die 
Firmware,  der  eingebauten  Softwa¬ 
re  auf  EPROMs,  bestimmt. 

Hier  liegt  die  Stärke  des  D  80X.  Er 
wurde  in  Richtung  größter  Flexibili¬ 
tät  konstruiert  und  programmiert. 
Dabei  hatten  die  Entwickler  ein 
scharfes  Auge  für  das  Marktge¬ 
schehen.  Schon  das  Handbuch  mit 
Beispielen  in  Commodore-Basic 
zeigt,  wo  der  D-80X  die  größten  Ab¬ 
satzchancen  hat.  Er  ist  in  erster  Linie 
für  die  Commodore-Compirer  kon¬ 
struiert  worden.  Dies  belegen  seine 
Schnittstellen.  Der  D-80X  ist  mit  ins¬ 
gesamt  vier  Schnittstellen  ausgestat¬ 
tet,  von  denen  drei  eingebaut  smd 
und  über  DIL-Schalter  eingestellt 
werden.  Je  nachdem  wie  diese 
Schalter  eingestellt  sind,  belegt  der 
D-80X  die  eingebaute  Centronics- 
Buchse  mit  einer  anderen  Schnitt¬ 
stellennorm.  Es  kann  gewählt  wer¬ 
den  zwischen  normaler  Centronics- 
Schmttstelle  mit  ASCII  oder  CBM 
Zeichensatz,  einer  IEEE-488  Parallel 


Bild  1.  Der  D-80X  ist  für  Einzelblätter  und  Endlospapier  geeignet 


Por  Hatri  «druck  er-  D  88X 
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Der  Fettdruck  hebt  wichtiges  hervor 
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Bild  2.  Die  Sonderfunktionen  des  D-80X 
beinhalten  das  Beste  der  Commodore- 
und  Epson-Drucker.  (Verkleinerte  Schrift) 


eine  Zumutung.  Um  sie  zu  errei¬ 
chen,  muß  zuerst  der  Gehäuse¬ 
deckel  abgeschraubt  werden.  Nach 
längerem  Suchen  findet  man  die 
beiden  Schalter  an  entlegenen 
Ecken  der  Hauptplatine.  Es  wäre 


bietet  der  D-80X  viele  Sonderfunk¬ 
tionen  und  Schriftarten  (Bild  2). 

Von  jedem  das  Beste 

Die  Konstrukteure  haben  bei  der 
Programmierung  des  D-80X  die  Fle¬ 
xibilität  der  Hardware  fortgeführt. 
Alle  wichtigen  Sonderfunktionen 
wie  Unterstreichen,  Schriftarten,  Ta¬ 
bulatoren  und  Formatsteuerungen 
werden  durch  ESC-Befehle  einge¬ 
stellt.  Die  Syntax  und  Bedeutung  der 
Befehle  entspricht  dabei  im  wesent¬ 
lichen  denen  der  Epson-Drucker. 
Zusätzlich  wurden  spezielle  Codes 
zum  Einstellen  Commodore-spezifi- 
scher  Funktionen  definiert.  Der  re- 
verse  Druck  wird  beispielsweise 
durch  den  CHR$-Code  18  erreicht. 
Das  entspricht  genau  dem  Wert,  der 
auch  auf  dem  Bildschirm  für  reverse 
Zeichen  sorgt.  Möchte  man  nun  eine 
Zeile  revers  ausdrucken,  genügt  es, 

Fonsetsung  au!  Seite  30 
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Matrixdrucker 

Ständig  steigt  das  Ange¬ 
bot  von  Matrixdruckern 
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Drucker 


Fortsetzung  von  Seite  25 

innerhalb  der  Anführungsstriche  ei¬ 
ner  PRINT-Zeile  auf  die  Tasten 
CTRL  und  9  zu  drücken.  Einfacher 
geht  es  wirklich  nicht  mehr.  Auf  ähn¬ 
liche  Weise  werden  Doppeldruck, 
Fettschrift,  komprimierte  Schrift, 
Groß-  und  Kleinschrift  sowie  Sub- 
und  Superscript  eingestellt. 

Volle  Grafikfähigkeit 

Im  Gegensatz  zum  MPS  802  ist  der 
D-80X  voll  grafikfähig.  Er  besitzt  so¬ 
gar  zwei  verschiedene  Punktdich¬ 
ten.  Im  ESC  K-Modus  arbeitet  dieser 
9-Nadel-Matrixdruckei  mit  640 
Punkten  pro  7.5  Zeilen,  beim  ESC 
L-Modus  sind  es  sogar  1 280  Punkte 
pro  7,5  Zeilen.  Ein  lange  gehegter 
Wunsch  vieler  Programmierer  wird 
erfüllt,  ja  sogar  übertroffen:  Der 
D-80X  besitzt  auch  im  Commodore- 
Zeichensatz  die  deutschen  Umlaute. 
Dafür  mußte  zwar  auf  einige  Grafik¬ 
zeichen  verzichtet  werden,  der  Ver¬ 
lust  fällt  aber  normalerweise  kaum 
auf.  Leider  entsprechen  die  Stellen, 
an  denen  die  Umlaute  einprogram¬ 
miert  wurden,  nicht  denen  der 
Standard-ASCII-Tabelle.  Es  kann 
deshalb  leicht  zu  Problemen  mit  ver¬ 
schiedenen  Textverarbeitungspro¬ 
grammen  kommen,  die  keine 
Code-Zuweisung  erlauben. 

Hier  wäre  es  vorteilhaft,  wenn  man 
nicht  nur  bei  der  Centronics-Schnitt- 
stelle,  sondern  auch  bei  der  seriel¬ 
len  IEC-Schnittstelle,  zwischen 
ASCII-  und  Commodore-Zeichen- 
satz,  wählen  könnte.  Wünschens¬ 
wert  wäre  auch  ein  Linearkanal,  bei 
dem  alle  Daten  an  den  Drucker  oh¬ 
ne  irgend  eine  Umwandlung  über¬ 
mittelt  werden. 

Vorbildlich  und 
konkurrenzlos 

Trotz  einiger  kleiner  Schwächen 
ist  der  Decam  D-80X  der  zur  Zeit  in¬ 
teressanteste,  direkt  an  den  C  64  an¬ 
schließbare  Drucker  unter  900 
Mark.  Für  den  erstaunlich  niedri¬ 
gen  Preis  erhält  man  einen  vielseiti¬ 
gen  Drucker,  der  sowohl  zum  Li¬ 
stingausdruck  als  auch  zur  Grafik- 
und  Ttextverarbeitung  geeignet  ist. 
Sein  ausführliches  Handbuch  er 
leichtert  auch  dem  weniger  erfahre¬ 
nen  Programmierer  das  Kennenler¬ 
nen  dieses  vielseitigen  Druckers. 
Die  vielen  eingebauten  Schnittstel¬ 
len  rüsten  den  D-80X  schon  heute 
bestens  für  kommende  Coinpuler- 
generationen.  Der  D-80X  ist  im 
wahrsten  Sinne  des  Wortes  »beein¬ 
druckend«.  (Arnd  Wängler/hm) 

Info;  Decam  GmbH,  Postfach  1232,  7505  Ettlingen,  Tbl. 
(07243)  83204,  Weis 899  Mark 
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Der  MPS  802  lernt 
deutsch 

Der  MPS  802  ist  als  zuverlässiger  Drucker  mit  anspre¬ 
chendem  Schriftbild  bekannt.  Leider  kennt  er  keine 
deutschen  Umlaute.  Unser  kleines  Programm  ändert 
das:  Der  MPS  802  lernt  deutsch. 


Die  Geschichte  des  MPS  802  ist 
interessant  und  abwechslungs¬ 
reich  wie  kaum  eine  andere. 
Entstanden  ist  er  aus  dem  CBM 
4022/4023  der  für  die  PET- 
Generation  geschaffen  wurde  und 
noch  einen  parallelen  IEC-Bus  (IE¬ 
EE  488)  besaß,  Daraus  entstand  der 
1526  (mit  serieller  Schnittstelle),  der 
mit  immer  neuen  Gerüchten  über 
seine  Fähigkeiten  und  seine  Fehler 
überraschte.  Von  emem  zweiten  Mo¬ 
dus  war  die  Rede,  und  sogar  von  ei¬ 
ner  vollen  Grafikfähigkeit,  Wie  aber 
jeder  weiß,  kann  sowohl  der  1526  als 
auch  der  MPS  802  Grafiken  nur  im 
»Zitter-Rumpel-Verfahren«  erzeu¬ 
gen.  Soll  heißen,  seine  Grafikfähig¬ 
keit  beschränkt  sich  auf  ein  einziges 
Zeichen,  das  ständig  umprogram¬ 
miert  wird.  Seit  der  Hannover- 
Messe  1984  nennt  sich  der  1526  nun 
MPS  802  (Bild  1),  ist  aber  rein  tech¬ 
nisch  gesehen  unverändert  geblie¬ 
ben.  Was  neu  ist,  ist  die  sogenannte 
Firmware,  oder  um  es  gleich  beim 
richtigen  Namen  zu  nennen,  das  Be¬ 
triebssystem.  Es  ist  müßig,  die  vie¬ 
len  Fehler  der  verschiedenen 
1526-Versionen  aufzuzählen,  beim 
MPS  802  sind  sie  jedenfalls  ausge¬ 
merzt.  Deshalb  ist  es  auch  für  jeden 
Besitzer  des  1526  empfehlenswert, 
sein  Kemal-ROM  durch  das  des 
MPS  802  zu  ersetzen,  es  funktioniert 
einwandfrei.  Der  Austausch  ist  ein 
einfaches  Unterfangen,  aber  dazu 
später  mehr.  Schauen  wir  uns  zu¬ 
nächst  emmal  die  Hardware  des 
MPS  802  an.  Gesteuert  wird  das  klei¬ 
ne  Druckwunder  durch  einen  zum 
6510  softwarekompatiblen  6504-Pro- 
zessor.  Außer  dem  6504  befinden 
sich  noch  zwei  6532-RIOT  (RAM  In¬ 
put/Output  Timer)  und  eine 
6522-V1Ä  (Variable  Interface  Adap¬ 
ter)  auf  der  Hauptplatine.  Das  Be¬ 
triebssystem  befindet  sich  iri  einem 
8-KByte-EPROM  vom  Typ  2764,  wie 
er  überall  im  Handel  erhältlich  ist. 
Im  einzelnen  ist  die  Speicherauftei¬ 
lung  des  MPS  802  in  Bild  2  darge¬ 
stellt. 

Genug  der  Theorie.  Im  prakti¬ 
schen  Betrieb  fällt  bald  schon  das 


Bild  1.  MPS  802  als  Nachfolger  des  1526 


Fehlen  der  deutschen  Umlaute 
schmerzlich  auf.  Dem  kann  abge¬ 
holfen  werden.  Nachstehend  abge¬ 
drucktes  Programm  (Listing  1)  ver¬ 
ändert  in  der  schon  vom  Hy pra  Per¬ 
fekt  (Ausgabe  4/85)  bekannten 
Overlay-Methode  das  Original-Be¬ 
triebssystem.  Dazu  müssen  wir  al¬ 
lerdings  erst  einmal  in  den  Besitz 
des  Kemals  kommen.  Lösen  Sie  die 
vier  Schrauben  des  Gehäuses  und 
nehmen  Sie  (nach  dem  Farbband) 
vorsichtig  das  Gehäuseoberteil  ab 
(Vorsicht!  Garanticvcrluct  bei  neuen 
Geräten).  Nachdem  Sie  sich  ge¬ 
merkt  haben,  wie  das  Verbmdungs- 
kabel  vom  Deckel  zur  Hauptplatine 
eingesteckt  war,  können  Sie  auch 
dieses  entfernen.  Auf  der  linken, 
hinteren  Seite  des  Druckers  ist  eine 
ebenfalls  abschraubbare  Verklei¬ 
dung  aus  Blech  angebracht  —  weg 
damit.  Jetzt  braucht  nur  noch  der 
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Bild  3.  Der  EPROM  2764  (mit  dem  silbernen  Plättchen)  muß  herausgenommen  und  neu 
programmiert  werden. 


2764-EPROM  in  der  rechten  hinte¬ 
ren  Ecke  der  Platine  (Bild  3)  geortet 
und  vorsichtig  herausgehebelt  wer¬ 
den.  Die  Besitzer  eines  EPROM- 
Programmiergerätes  wissen  jetzt  si¬ 
cherlich  schon  was  kommt  —  das 
EPROM  wird  ausgelesen  und  abge 
speichert.  Im  folgenden  wird  des¬ 
halb  davon  ausgegangen,  daß  der 
Inhalt  des  MPS  802-EPROMs  von 
$6000  bis  $7FFF  im  Speicher  des  C 
64  steht. 

Die  Zeichenmatrizen,  daß  heißt 
die  Informationen  über  das  Ausse¬ 
hen  der  einzelnen  Zeichen,  stehen 
nun  im  Bereich  von  $6400  bis  $69FF. 
Aber  in  welcher  Form?  Da  der  MPS 
802  einen  Druckkopf  mit  8  Nadeln 
besitzt,  besteht  jedes  Zeichen  aus  8 
mal  8  Punkten.  Jedes  Zeichen  belegt 
also  8  Byte.  Jedes  Byte  definiert  eine 
Spalte  des  Zeichens,  da  die  Nadeln 
im  Druckkopf  senkrecht  ange¬ 
bracht  sind.  Ist  ein  Bit  gesetzt,  so 
wird  die  entsprechende  Nadel 
beim  Druck  des  Zeichens  aktiviert. 
Steht  das  entsprechende  Bit  auf 
Null,  wird  natürlich  auch  kein  Punkt 
gedruckt.  Das  Leerzeichen  besteht 
beispielsweise  aus  acht  mal  Byte  0. 
Etwas  deutlicher  wird  das  Ganze, 
wenn  wir  uns  einmal  das  Zeichen 
»A«  genauer  anschauen.  Die  Zei¬ 
chenmatrix  für  das  A  steht  von  $6408 
bis  $640F. 

Ein  Monitor  liefert  uns  für  diesen 
Bereich  die  Werte: 

3E  50  90  90  50  3E  00  00 

Jede  Hexadezimalzahl  repräsen¬ 
tiert  die  Summe  einer  Spalte  (Bild  4). 
Man  erkennt,  welcher  Zusammen- 


iß  POKE  56,96:P0KE  33,8: CUR  <C28> 

PRINT  “  CCLR  ,  3DGWN  ,45f'ACC  JMAti  MIT  DEUTSCH 
EM  ZEICHENSATZ“  <123> 

30  PRINT : PRINT“ ORIGINAL  MPS -FERNAL  VORHER 

IM  SPEICHER“  <1BB> 

40  PRINT’VON  t60ea-»7FFF  EINLADEN  UND  NEW C 

8SPACE>E INBEBEN! * • ! “  C014> 

50  PRINT  <2»3> 

80  PRINT “LESEN  DER  DATA- ZEILEN" c  PRINT i PR IN 

T  <051 > 

100  T=B  <154> 

110  T=T+1:READ  A: IF  A=0  TH6N  24C  <202 > 

120  READ  B:  REM  ANZAh*.  DER  BYTES  <042 > 

130  READ  Pis  REM  PRUSF3UMME  <092> 

140  P2=0iPRINT"BLOC»:  -jT;  "  (2SPACE>"j  <1B7> 

130  FOR  I=A-OF  TO  O-OF-1‘0  <I2B> 

160  READ  DiPOKE  I,DiP2»P2*D  <211 > 

170  NEXT  I  <117> 

iaa  IF  PSOPl  THEN  210  <224> 

190  PRINT- 135PACE>0K-  <033> 

200  GOTO  110  <227> 

21«  PHINt-PRUEFSUMME  FALSCHi  "|P2|"  STATT 

“;P1:PRINT  <234> 

220  OET  Af:IF  A*-“"TMEN  220  <061> 

SSO  QC TO  HO  <001  > 

240  PRINTiPRINT-FERTIG! -:END  '«#•«> 

383  REM  ***  OB  HIER  DATAS  «»•  ‘200 

383  REM  **«**•*•**••*••.•  <139> 

310  REM  BLOCK  1  *•**  <I78> 

31S  RCM  •*«#»•»»•»«•••»•»  C 149> 

32«  DA 1 A  23601,8,609  <240 > 

321  DATA  0,83,163,163,165,26,0,0  <052: 

325  REM  •••«••••••••*••••  <»39> 

330  REM  •*•»  BLOCK  2  <199> 

335  REM  •••••••••••••••**  <I69> 

340  DATA  23016,24,1952  <10B> 

341  DATA  190,88, 144,144 ,90, 193,0,0, 183,66, 

66 , 66 ,66,1 90 ,0,Q,1BB,2,2,2,2,1 88  :103> 

342  DATA  0,0  <10Z> 

349  REM  -■«*•••«*••#•**•*  < 1B3> 

350  REM  *•«»  BLOCK  3  •*<•«  <220 > 

355  REM  •••••••• . «•••  <IH9> 

360  DATA  26840,32,1869  <135> 

361  DATA  4 , 170, 42 . I 70,29,2 ,0,0,20, 162 , 34, 1 

62, 28, 0,0,0,60, 138, 2, 132,62.0,0  <WI?> 

362  DATA  0,63,64.146,146.146,100.0,0  :0V/> 

369  REM  •»•»-•**••***»•*••  <203> 

370  REM  •••*  BLOCK  4  <24l> 

375  H»-M  :209> 

330  RATA  32763,1,168  <043> 

390  DATA  !6Ö  <169> 

1008  DATA  0  <13B> 


Listing  1 .  Umrüsten  des  MPS  802  auf 
den  deutschen  Zeichensatz 


10  POKE  56, 96: POKE  5S,0-.CLR  C3205 

20  PR I NT " MP5-R0M  IN  »6000-* 7F FF”  <215> 
30  FÜR  1=12*4096  TG  1+26: READ  A: 

POKE  I ,  A: NEXT  I  <009> 

40  SYS  12*4096  <16B> 

60  B  =PEE K (32763» :C =PEEK ( 253 )  <036 > 

70  0=728-8: B”R+D: IF  B'0  THEN  B-B 

4-256  <050> 

75  IF  B>255  THEN  n=B-255  <137> 

80  POKE  32763, R: PRTNT "CHECKSUM  A 

NGEPAOST ! " :  EM)  <069> 

1000  DATA  169,0,160,128,133,251, 
132,252,168,162,28,24,198,2 
32,113,251,200,208  <0B6> 

1010  DATA  251,202,208,246,105,0, 

133,253,96  <160> 


Listing  2.  Anpassung  der  Prüfsummen 


hang  zwischen  der  Hexadezimal¬ 
zahl  (Bitmuster)  und  der  gedruckten 
Matrix  besteht.  Das  Programm  aus 
Listing  1  verändert  die  vorhandene 
Zeichenmatrix  so,  daß  es  die  deut¬ 
schen  Umlaute  an  Stelle  einiger 
Grafikzeichen  zusammen  mit  der 
deutschen  Version  von  Vizawrite 
druckt.  Außerdem  werden  die  Steu¬ 
ercodes  für  Breitschrift  von  CHR$(1) 
auf  CHR$(14)  und  die  Rückstellung 
auf  Normalschrift  von  CHR$(129)  auf 
CIIR$(16)  geändert,  was  gebräuchli¬ 


$0000— $00FF 

=  Zeropage 

$0100— $01FF 

=  Prozessorstack 

$0200— $03FF 

=  I/0-Bau3teine 

$0400 — $IFFK 

=  Betriebssystem 

Bild  2. 

Die  Speicherbelegung  des  MPS  802 

cher  ist.  Wer  aber  dennoch  selber 
den  Zeichensatz  abändem  möchte, 
findet  die  einzelnen  Zeichensätze  an 
folgenden  Speicherstellen: 

Von  $6400— $6407  steht  der  Klam¬ 
meraffe.  Darauf  folgen  die  Groß¬ 
buchstaben  von  A— Z  ($6408— 
$34DF).  Ab  $34E0  kommen  die 
Sonder-  und  Grafikzeichen.  Die 
Kleinbuchstaben  beginnen  bei 
$6808  (mit  dem  kleinen  a).  Leider  hat 
der  Drucker  kein  RAM,  mit  dem 
man  eine  Veränderung  des  Zei¬ 
chensatzes  ausprobieren  könnte. 
Beim  Entwerfen  des  eigenen  Zei¬ 
chensatzes  ist  ferner  auf  folgendes 
zu  achten:  Der  Drucker  führt  nach 
dem  Einschalten  einen  Selbsttest 
durch.  Dabei  wird  auch  das  ROM 
geprüft,  indem  die  Prüfsumme  über 
den  Bereich  $6400  bis  $7FFF  ermit¬ 
telt  wird.  Listing  2  dient  in  diesem 
Fall  dazu,  die  Prüfsumme  eines  be¬ 
reits  veränderten,  im  Bereich  von 
$6000  bis  $7FFF  stehenden  ROMs 
anzupassen.  Diese  Anpassung  ist 
natürlich  nur  dann  notwendig,  wenn 
eigene  Veränderungen  vorgenom¬ 
men  wurden. 

Die  noch  verbleibenden  Arbeiten 
sind  schnell  durchgeführt.  Mit  ei¬ 
nem  EPROM-Programmiergerät 
wird  ein  2764-EPROM  mit  dem  In¬ 
halt  der  Speicherstellen  $6000  bis 
$7000  gebrannt.  Das  neue  Betriebs¬ 
system  wird  dann  anstelle  des  alten 
in  den  Drucker  eingesteckt  (Kerbe 
auf  Kerbe).  Ob  alles  programmge¬ 
mäß  abgelaufen  ist,  läßt  sich  am  ein¬ 
fachsten  mit  dem  Selbsttest  feststel¬ 
len.  Sollten  Sie  nun  unter  den  vielen 
Zeichen  tatsächlich  die  deutschen 
Umlaute  finden,  dann  dürfen  Sie 
sich  ruhig  ein  kleines  Pauschen  ge¬ 
nehmigen,  denn  Sie  haben  nun  et¬ 
was  Einzigartiges:  Den  MPS  802  in 
deutscher  Version. 

(Ernst  Schöberl/Arnd  Wängler/gk) 

WtMf  31 
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Heimvideo  mit  dem  C  64.  Leichte  Nachbearbeitung  mit  dem  Koala-Painter. 


Mit  Computer,  Kamera 
und  Video-Digitizer 
erschließen  sich  neue 
Dimensionen  —  der 
C  64  lernt  das  »Sehen«. 
Ungeahnte  Möglichkeiten 
stecken  hinter  dieser 
Technik. 

Der  Video-Digitizer  von  Köhler 
(Österreich)  ist  ein  kleines,  in 
ein  Kunststoffgehäuse  einge¬ 
bautes  Modul,  das  am  User-Port  des 
C  64  angeschlossen  wird.  Von  dort 
erhält  es  auch  seine  Stromversor¬ 
gung.  Einziger  zusätzlicher  An¬ 
schluß  ist  eine  Cinch-Buchse  auf  der 
Oberseite  des  Moduls.  Mit  einem 
entsprechenden  Kabel  wird  hier 
ein  Norm-Videosignal  (zirka  1  Vss  an 
75  Ohm,  BAS/FBAS-Signal)  einge¬ 
speist. 

An  dieser  Buchse  lassen  sich  Ge¬ 
räte  wie  beispielsweise  ein  Video¬ 
recorder  oder  eine  Videokamera 
(eventuell  unter  Zwischenschaltung 
des  Recorders)  anschließen.  Auch 
der  Videoausgang  eines  Fernseh¬ 
gerätes  ist  geeignet.  Wir  haben  das 
VD  64  mit  einer  Videokamera  und 
einem  Videorecorder  getestet. 
Videorecorder  anschließbar 
Der  C  64  wird  durch  ein  kleines 
Steuerprogramm  von  der  mitgelie¬ 
ferten  Diskette  auf  den  Empfang  der 
Bildinformationen  vorbereitet.  Die¬ 
ses  Programm  sorgt  gleich  nach 
dem  Start  für  die  automatische  Ein- 
pegelung  auf  das  ankommende  Si¬ 
gnal.  Schon  kurz  nach  diesem  Meß¬ 
vorgang  steht  das  erste  Bild  auf  dem 
Monitor.  Das  VD  64  arbeitet  extrem 
schnell  und  braucht  deshalb  zur 
Bildabtastung  kein  Standbild.  Das 
lästige  Anhalten  des  Videorecor¬ 
ders  oder  die  Montage  der  Video¬ 
kamera  auf  einem  Stativ  kann  des¬ 
halb  ganz  entfallen.  Das  Bild  wird  in 
einem  Durchlauf  (zirka  20  Millise¬ 
kunden)  abgetastet  und  in  den 
Multicolor-Modus  des  C  64  übertra¬ 
gen.  Dieser  Vorgang  dauert  nur  et¬ 
wa  0,4  Sekunden.  Damit  ergibt  sich 
für  den  Betrachter  der  Grafik  eine 


Wiederholungsrate  von  zwei  Bil¬ 
dern  pro  Sekunde.  Die  Bildabta¬ 
stung  läuft  dann  so  lange  kontinuier¬ 
lich  ab,  bis  die  Signalübertragung 
mit  der  STOP-Taste  »eingefroren« 
wird.  Das  Bild  kann  nun  durch  eini¬ 
ge  mteressante  Befehle  modifiziert 
werden.  So  verändern  die  Funküons- 
tasten  die  Farbsättigung  der  gera¬ 
de  ausgewählten  vier  Farben.  Im 
Differenzmodus  wird  der  jeweilige 
Bildinhalt  vom  vorhergegangenen 
Bild  subtrahiert.  Dadurch  treten  be¬ 
wegte  Objekte  besonders  klar  her¬ 
vor.  Sogar  eine  komplette  Invertie¬ 
rung  (jeder  helle  Punkt  wird  dunkel 
und  umgekehrt)  des  Bildes  gehört 
zu  den  Fähigkeiten  des  VD  64-Steu- 
erprogramms. 

Video  in  Multicolor 

Die  Konstrukteure  des  VD  64  ha¬ 
ben  den  Multicolor-Modus  des  C  64 
trotz  seiner  geringeren  Auflösung 
(200  x  160  Punkte)  gegenüber  dem 
High-Resolution-Modus  (200  x  320 
Punkte)  gewählt.  Dafür  stehen  ent¬ 
weder  vier  verschiedene  Graustu¬ 
fen,  oder  ersatzweise,  vier  Farben 
zur  Verfügung.  Durch  geschickte 
Auswahl  der  Farben  entstehen  be¬ 
eindruckende  Effekte.  Manche  Bil¬ 
der  sehen  wie  vom  Computer  selbst 
entworfen  aus,  andere  gleichen 
dem  Original  in  verblüffender  Wei¬ 
se,  Damit  diese  Video-Kunstwerke 
aber  auch  einen  dauerhaften  Cha¬ 
rakter  bekommen,  stehen  sowohl  ei¬ 
ne  LadeVSpeicheroption,  als  auch 
eine  Hardcopy-Routine  zur  Verfü¬ 
gung.  Die  Hardcopy  Routine  läßt  die 
Einstellung  verschiedener  Drucker¬ 
typen  zu.  Bei  der  getesteten  Version 
konnten  per  Auswahlmenü  die 
Drucker  MPS  802,  MPS  801,  Hewlett 
Packard  Ink  Jet  und  der  Commodo- 


re  4023  eingestellt  werden.  Weitere 
Anpassungen  sind  nach  Angaben 
des  Herstellers  bereits  in  Arbeit, 
Kompatibel  zu  Koala-Bildern 

Der  Clou  des  VD  64  ist  aber  das 
Format,  in  dem  er  seine  Bilder  ab¬ 
legt.  Es  entspricht  genau  dem  des 
Koala-Painter.  Hier  eröffnet  sich  ei¬ 
ne  unerschöpfliche  Palette  von  Be¬ 
arbeitungsfunktionen,  Die  Bilder 
können  nachträglich  mit  dem  Koala- 
Painter  editiert  oder  farblich  verän¬ 
dert  werden;  mit  allen  16  Farben. 
Auch  das  Mischen  verschiedener 
Bildbestandteile  erweitert  das  An¬ 
wendungsspektrum  um  ein  Vielfa¬ 
ches.  Auf  diese  Weise  können  Sie 
beispielsweise  beliebig  viele  »Zwil¬ 
linge«  ihres  Motivs  herstellen  oder 
dem  ganzen  Bild  einen  neuen  Hin¬ 
tergrund  geben.  Die  Bilder  können 
selbstverständlich  auch  in  eigene 
Programme  eingebaut  oder  mit  ei¬ 
nem  zum  VD  64  dazugehörigen  Pro¬ 
gramm  in  der  Art  einer  Diavorfüh- 
rung  gezeigt  werden. 

Der  VD  64  ist  mehr  als  nur  eine 
sinnvolle  Ergänzung  des  C  64.  Es  ist 
ein  Vorbote  einer  zukünftigen  Ent¬ 
wicklung,  in  der  fast  alle  elektroni¬ 
schen  Medien  vermehrt  miteinan¬ 
der  verknüpft  werden.  Es  ist  durch¬ 
aus  vorstellbar,  daß  die  mit  dem  VD 
64  aufgenommenen  Bilder  über  das 
Telefonnetz  übertragen  werden. 
Wie  vielfältig  die  Anwendungsge¬ 
biete  des  VD  64  sind,  läßt  sich  auf 
den  ersten  Blick  kaum  abschätzen. 
Wie  man  den  VD  64  letztendlich  ein¬ 
setzt  und  welches  Bild  Motiv  ge¬ 
wählt  wird,  ist  reizvolle  Aufgabe  des 
Anwenders. 

(Amd  Wängler/hm) 

Bezugsquelle:  Mertens.  FuchsslraBe  6A,  6231  Schvvalbach. 
Ttel.  1061 96)  83030  *  3026.  Preis  575—  »  Mehrv;ensleuer 
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Völlig  neue  Klangdimensionen  schafft  der  C  64  an 
einer  Stereoanlage.  Die  neue  Spielegeneration  mit 
ihrer  hervorragenden  Tonuntermalung  gewinnt  stark 
an  Reiz.  Zusätzlich  können  Sie  nun  Ihre  Kompositio¬ 
nen  mit  bestmöglicher  Qualität  aufzeichnen. 


Video/Audio-Buchse  des  C  64  dop¬ 
pelt  nutzen  zu  können.  Zu  diesem 
Zweck  sollten  Sie  folgende  Teile  be¬ 
sorgen: 

8polige  Klem-Geräte-Kupplung 
Spoliger  Diodensteoker 
8poliger  Klein-Geräte-Stecker 
2-  und  5adriges  abgeschirmtes  Ka¬ 
bel. 


Mit  etwa  S  Mark  läßt  sich  ein 
Anschlußkabel  bauen,  mit 
dem  Sie  den  C  64  an  Ihre 
HiFi-Anlage  anschließen  können. 
Mit  130  Watt  auf  jeder  Seite  wird 
nicht  nur  Ghostbusters  zu  einem 
neuen  Erlebnis.  Denn  Lautsprecher 
von  Fernseher  und  Monitor  (falls 
überhaupt  einer  eingebaut  ist)  ha¬ 
ben  in  der  Regel  nur  eine  beschei¬ 
dene  Tonqualität. 

Für  den  geplanten  Anschluß  wird 
der  Audio/ Video-Port  des  C  64  und 
die  DIN-Buchse  der  Stereoanlage 
oder  des  Verstärkers  hergenom¬ 
men.  Sollte  Ihr  Verstärker  nur 
Chinch-Buchsen  haben,  müssen  Sie 
die  Pins  3  und  5  des  Audio-Steckers 
einfach  durch  zwei  Chinch-Stecker 
ersetzen.  Die  Beschaltung  der  Vi¬ 
deo/Audio-Buchse  des  C  64  zeigt 
Bild  1.  Entscheidend  sind  die  Pins  2 
(Masse)  und  3  (Tonausgang).  Sollten 
Sie  einen  älteren  C  64  mit  5poligen 
Video/Äudio-Anschluß  haben,  ist 


das  kem  Grund,  das  Handtuch  zu 
werfen.  Die  Belegung  der  Pins  1  bis 
5  beider  Buchsen  stimmt  nämlich 
völlig  überein.  Die  Beschaltung  der 
DIN-Buchse  Ihrer  Stereoanlage  se¬ 
hen  Sie  ebenfalls  in  Bild  1.  Die  wich¬ 
tigen  Anschlüsse  sind  die  Pins  3 
(Wiedergabe  links),  5  (Wiedergabe 
rechts)  und  2  (Masse),  Damit  der  Mo¬ 
noausgang  des  C  64  beide  Stereo- 
Kanäle  ansteuern  kann,  wird  das 
Tonsignal  des  C  64  gleichzeitig  auf 
Pin  3  und  5  des  Stereosteckers  ge¬ 
legt. 

Aber  nun  genug  der  Theorie.  Le¬ 
gen  Sie  den  Lötkolben  schon  mal 
bereit.  Als  Bauteile  für  das  Adapter¬ 
kabel  in  Bild  2  brauchen  Sie  zwei 
5polige  Diodenstecker,  bei  denen 
die  fünf  Pins  einen  Halbkreis  bilden 
und  ein  abgeschirmtes  2adriges  Ka¬ 
bel. 

Haben  Sie  einen  Monitor  am  C  64 
angeschlossen,  müssen  Sie  einen 
Verteiler  wie  in  Bild  3  bauen,  um  die 


Die  Klein-Geräte-Kupplung  sieht 
von  vorne  aus  wie  die  Video-/Audio- 
Buchse  des  C  64.  Hat  Ihr  C  64  noch 
die  alte  5polige  Buchse,  sind  alle 
8poligen  Bauteile  durch  5polige  zu 
ersetzen. 

Haben  Sie  alle  Teile  vor  sich  auf 
dem  Tisch  liegen,  kann's  losgehen. 
Schneiden  Sie  das  Kabel  in  die  ge¬ 
wünschte  Länge  und  isolieren  Sie 
die  einzelnen  Leitungen  ab.  Die  äu¬ 
ßere  Plastikhülle  'wird  am  einfach¬ 
sten  mit  einem  scharfen  Messer  ent¬ 
fernt.  Schneiden  Sie  dazu  etwa  3  cm 
vor  Kabelende  die  Isolation  ringsum 
vorsichtig  ein,  bis  Sie  auf  die  Ab¬ 
schirmung  stoßen  und  ziehen  unter 
Drehen  die  Isolation  ab.  Jetzt  wird 
die  Abschirmung  aufgetrennt,  ver¬ 
drillt  und  die  einzelnen  Leitungen 
etwa  2  mm  weit  abisoliert, 

Bevor  Sie  sich  nun  ans  Löten  ma¬ 
chen,  müssen  noch  die  Gehäuse 
der  Stecker  auf  das  Kabel  gescho¬ 
ben  werden. 
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PIN 

Funktion 

1 

Aufnahme  links 

2 

Masse 

3 

Wiedergabe  links 

4 

Aufnahme  rechts 

5 

Wiedergabe  rechts 

1 

Helligkeit 

2 

Masse 

3 

Audio  Ausg. 

4 

Video  Ausg. 

5 

Audio  Eing. 

6 

Farbe  Auug. 

7.8 

kein  Anschluß 

Bild  1 .  Der  Video/Audio-Port  und  die 
Stereo-Buchse  von  vorne  gesehen 


Video/Audio- 
Steckers  an 
den  Computer 


Bild  2.  Die  Verbindung 
Computer  —  Stereoanlage 


Bild  3.  Diesen  Verteiler  benötigen  Sie, 
wenn  Sie  gleichzeitig  eine  Stereoanlage 
und  einen  Monitor  anschließen  möchten 

a)  Diodenstecker 

b)  8  pol.  Klein-Geräte-Kupplung 

c)  8  pol.  Klein-Geräte-Stecker 


Nun  können  Sie  die  Drähte  wie  in 
Bild  2  oder  3  beschrieben  anlöten. 
In  den  Schaltplänen  sehen  Sie  die 
Anschlüsse  von  der  Lötseite,  wie 
das  allgemein  üblich  ist.  Pin  5  der 
Video/Audio-Buchse  des  C  64  sollte 
man  mit  Vorsicht  genießen.  Es  ist 
der  Toneingang  des  C  64  und  führt 
direkt  an  den  Sound-Chip.  Wird  hier 
unvorsichtigerweise  eine  Spannung 
angelegt,  kann  sich  der  SID  schnell 
verabschieden.  Die  Verbindung 
zwischen  Pin  3  und  5  des  Audio 
Steckers  wird  am  einfachsten  mit  ei¬ 
ner  Lötbrücke  hergestellt.  Der 
Draht  wird  dazu  etwas  länger  abiso¬ 
liert  und  an  beide  Pins  angelötet.  Da 


die  Kabelabschirmung  nur  compu¬ 
terseitig  ans  Steckergehäuse  ange¬ 
lötet  werden  soll,  wurde  in  den 
Schaltplänen  darauf  verzichtet. 

Das  U-förmige  Blech  am  Stecker¬ 
ende  dient  zur  Zugentlaslung  der 
Lötstellen,  um  ein  Ausreißen  zu  ver¬ 
hindern.  Das  Kabel  wird  dazu  nach 
dem  Anlöten  einfach  mit  einer  klei¬ 
nen  Zange  in  dieses  Blech  U  einge¬ 
quetscht  und  dadurch  fest  mit  dem 
Stecker  verbunden. 

Anschluß  an  Chinch-Buchse 

Hat  Ihr  Verstärker  keinen  DIN- 
Eingang,  sondern  Chinch-Buchsen, 
dann  löten  Sie  einfach  anstelle  von 
Pin  3  und  5  im  Audiostecker  zwei 


Chinch-Stecker  (Eingang  linker  und 
rechter  Kanal)  an,  indem  Sie  das  Ka¬ 
bel  von  einem  Stecker  zum  zweiten 
weiterführen.  Masse  liegt  bei  einem 
Chinch-Stecker  immer  auf  dem  äu¬ 
ßeren  Kontakt. 

Nach  einer  Schlußüberprüfung 
des  Adapterkabels  steht  der  neuen 
Klangdimension  nichts  mehr  im  We¬ 
ge.  Bevor  Sie  aber  nun  vor  Begeiste¬ 
rung  Ihren  Lautstärkeregler  in  die 
rechte  Anschlagposition  bringen 
und  den  Staub  von  den  Lautspre¬ 
chermembranen  schütteln,  sollten 
Sie  auf  die  Uhr  sehen.  Ein  Kopfhörer 
ist  vielleicht  der  günstigere  Schall¬ 
wandler.  (hm) 


Alter  Joystick  am  C  1 6 

Inkompatibilität  bestimmt  den  C  16  —  auch  bei  den 
Joystickports.  Mit  ein  wenig  Geschick  läßt  sich 
jedoch  ein  Adapter  hersteilen. 


Beide  Stecker  erhalten  Sie  in  je¬ 
dem  guten  Elektronikfachgeschäft. 
Die  beiden  Stecker  müssen  Sie 
dann  nur  gemäß  der  Abbildung  ver¬ 
binden,  und  schon  können  Sie  alle 
anderen  handelsüblichen  Joysticks 
am  C  16  verwenden. 

(Peter  Schneider/ev) 


Ein  recht  geschickter  Schachzug 
ist  Commodore  mit  seinen  Joy¬ 
stickports  am  C  16  gelungen. 
Denn  bisher  vertreibt  nur  Commo 
dore  die  passenden  Joysticks.  Und 
diese  bestechen  nun  wirklich  nicht 
gerade  durch  ihre  mechanische 
Qualität. 

Wer  nun  einen  guten,  aber  teure¬ 
ren  Joystick,  oder  ganz  einfach  ei¬ 
nen  älteren  am  C  16  benutzen  will, 
der  benötigt  einen  Adapter.  Eine 
preiswerte  Lösung  ist  der  Selbst¬ 
bau.  Die  Herstellung  ist  recht  ein¬ 
fach: 

Sie  brauchen  nur  etwas  Kabel  und 
zwei  Stecker  sowie  einen  9-Pol- 
Canon-Stecker  für  den  Joystick  und 
einen  8  Pol  Micro-Din-Stecker  für 
den  Computer. 
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User-P6rt- 

Display 

Eine  kleine  elektro¬ 
nische  Schaltung  setzt 
den  User-Port  ins 
richtige  Licht.  Sie  zeigt 
auch,  wie  der  User- 
Port  für  Steuerungsauf¬ 
gaben  eingesetzt 
werden  kann. 

Die  Computer  VC  20  und  C  64 
haben  als  Verbindung  zur  Au¬ 
ßenwelt  an  der  Gehäuse-Rück¬ 
seite  den  User-Port.  Dieser  8  Bit 
breite  parallele  Port  besteht  aus 
acht  programmierbaren  Anschlüs¬ 
sen  PBO  bis  PB7,  die  als  Eingabe¬ 
oder  Ausgabeleitung  geschaltet 
werden  können.  Weiterhin  stehen 
noch  die  Eingabe-Handshakelei¬ 
tung  FLAG2  (CA1  beim  VC  20)  und 
die  Ausgabe-Handshakeleitung 
PA2  (VC  20:  CB2)  für  diese  acht  Lei¬ 
tungen  zur  Verfügung. 

Diese  Anschlüsse  sind  vom  User- 
Port  aus  mit  dem  universellen  Inter¬ 
face-Baustein  (VIA)  6522  direkt  ver¬ 
bunden  (VIA  =  Versatile  Interface 
Adapter).  Sie  erlauben  den  An¬ 
schluß  von  exlex  nen  Schaltungen 
und  Geräten.  Das  User-Port-Display, 
das  noch  als  universeller  Ein-/Aus- 
gabe-Adapter  verwendet  werden 
kann,  wird  an  dieser  Platinen-Stek 
kerleiste  am  besten  über  emen  Pla¬ 
tinenstecker  der  Bezeichnung  251- 
12-50-170  angeklemmt.  Die  einzel¬ 
nen  Port-Leitungen  PBO  bis  PB7  ha¬ 
ben  eine  bestimmte  binäre  Wertig¬ 
keit,  wie  in  Tabelle  1  gezeigt.  Die  Be¬ 
legung  des  User-Ports  entnehmen 
Sie  bitte  dem  Handbuch  zum  C  64. 
Die  Handshakeleitung  FLAG2  (CA1) 
kann  bei  der  Eingabe,  die  Handsha¬ 
keleitung  PA 2  (CB2)  bei  der  Ausga¬ 
be  von  Datenwörtern  als  Quittie¬ 
rungssignal  benutzt  werden. 

Die  Schaltung  des  User-Port-Displays 
Zur  Überwachung  der  logischen 
Zustände  bei  der  Programmierung 
der  einzelnen  Ports  wurde  die  in 
Bild  1  gezeigte  Schaltung  entworfen. 
Dadurch  werden  die  Eingabe-  und 
Ausgabe-Datenwörter  an  den  Ports 
PBO  bis  PB7  durch  Leuchtdioden 
(LEDs)  sichtbar  gemacht.  Gleicher¬ 
maßen  werden  die  logischen  Zu¬ 
stände  der  Handshakeleitungen  an- 
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gezeigt.  Eine  Stückliste  für  den  I/O- 
Adapter  (Input/Output)  finden  Sie 
in  Tabelle  2.  High-Pegel,  also  lo¬ 
gisch  »Ems«,  werden  durch  Leuch¬ 
ten,  Low-Pegel  (logisch  »Null«)  durch 
Verlöschen  der  entsprechenden 
LED  signalisiert. 

Die  Schaltung  besteht  aus  zehn  In¬ 
vertern  (2  x  74LS04,  Bild  2),  an  die 
über  je  einen  Widerstand  von  330 
Ohm  die  LED  an  +  5  V  angeschlos¬ 
sen  sind.  Ein  Inverter  kehrt  das  Ein¬ 
gangssignal  um.  Aus  +  5  V  werden  0 
V,  aus  0  V  werden  +  5  V. 
Spannungsversorgung  und  Aufbau 

Zur  Spannungsversorgung  für  die 
Anzeigeeinheit  wird  die  an  Pin  2 
des  User-Port  anliegende  Spannung 
von  +  5  V  benutzt.  Es  ist  darauf  zu 
achten,  daß  der  Stromverbrauch 
der  gesamten  Anordnung  100  mA 
nicht  übersteigt.  In  Fällen  größerer 
Stromentnahme  wird  ein  sepa¬ 
rates  Netzteil  erforderlich. 


Port 

Wertigkeit 

binär 

PBO 

1 

2t> 

PB1 

2 

2' 

PB2 

4 

22 

PB3 

8 

23 

PB4 

16 

2* 

PB5 

32 

23 

PB6 

64 

23 

PB7 

128 

23 

Tabelle  1 .  Die  binären  Wertigkeiten 
der  Ein-/Ausgabeleitungen 

Aufbau  der  Schaltung 

Da  es  sich  bei  dieser  Schaltung 
um  eine  relativ  einfach  aufzubauen¬ 
de  Einheit  handelt,  wurde  auf  ein 
Platmenlayout  verzichtet.  Statt  des¬ 
sen  kann  die  Schaltung  auf  eine 
Lochrasterplatte  (Rastermaß:  2,51 
mm)  aufgebaut  werden.  Die  ent¬ 
sprechenden  Verbindungen  wer¬ 
den  dann  mit  Drahtverbindungen 
ausgeführt.  Entweder  durch  Löten 
von  Drahtstücken,  oder  mit  Wire- 
Wrapping.  Bei  der  letzteren  Technik 
umwickelt  man  mit  einer  speziellen 
Maschine  die  Anschlußbeine  mit 
Kupferlackdraht  und  stellt  so  die 
Verbindungen  her.  Die  Anzeigeein¬ 
heit  und  die  13polige  Buchsenleiste 
kann  in  einem  kleinen  Gehäuse  un¬ 
tergebracht  werden.  Über  ein 
12adriges  Kabel  wird  nun  der  User- 
Port  mit  dem  Display  verbunden.  Zu¬ 
sätzlich  ist  es  sinnvoll,  die  +S-V- 
Spannung  und  die  Masse  auf  sepa¬ 
rate  Buchse  zu  legen,  um  ein  eige¬ 
nes  Netzteil  anschließen  zu  können. 
Pin  2  des  User-Ports  muß  dann  na¬ 
türlich  abgeklemmt  werden. 


Die  Programmierung 
des  User-Ports 

Wie  bereits  erwähnt,  lassen  sich 
die  acht  Port-Leitungen  als  Ein-/Aus- 
gabeleitungen  programmieren. 
Nach  dem  Einschalten  des  Compu¬ 
ters  werden  alle  Ports  automatisch 
auf  Eingabe  geschaltet.  Dies  läßt 
sich  leicht  daran  erkennen,  daß  alle 
acht  LEDs  des  User-Port-Displays 
leuchten.  Über  das  Datenrichtungs¬ 
register,  Adresse  DDRB  =  56579 
(VC  20  =  37138),  lassen  sich  die  ein¬ 
zelnen  acht  Ports  so  programmie¬ 
ren,  daß  sie  entweder  als  Ein-  oder 
Ausgabeleitung  arbeiten.  Mit  dom 
Befehl  POKE  DDRB,X  wird  die  Pro 
grammierung  vorgenommen.  Hier¬ 
bei  ist  »X«  eme  Dezimalzahl  zwi¬ 
schen  0  und  255.  Die  der  Dezimal¬ 
zahl  entsprechende  Binärzahl  er¬ 
scheint  dann  am  User-Port  an  den 
Ausgängen  PBO  bis  PB7.  ln  der  Bi¬ 
närzahl  stellt  die  logische  »0«  einen 
Eingabe-,  die  logische  »1«  einen  Aus¬ 
gabeport  dar.  Als  logische  Pegel  lie¬ 
gen  allerdings  die  invertierten  Pe¬ 
gel  an,  da  der  C  64  und  VC  20-Com- 
puter  mit  negativer  Logik  arbeitet; 
also  High-Pegel  bei  logisch  »0«  und 
umgekehrt. 

Mit  POKE  DDRB,  255  werden  alle 
acht  Ports  zu  Ausgabeleitungen,  da 
dezimal  255  in  Binärdarstellung 
11111111  ist.  Die  Programmierung  mit 
POKE  DDRB,0  ergibt  entsprechend 
00000000  und  alle  acht  Ports  sind 
Eingabeleitungen.  POKEt  man  in 
die  Speicherstelle  DDRB  die  Dezi¬ 
malzahl  240,  so  ergibt  dies  die  Binär¬ 
zahl  11110000.  Dies  bedeutet,  daß  die 
Ports  PBO  bis  PB3  Eingabeleitungen 
und  die  Ports  PB4  bis  PB7  Ausgabe¬ 
leitungen  sind.  So  lassen  sich  durch 
POKEn  einer  Zahl  zwischen  0  und 
255  in  die  Speicherstelle  DDRB  die 
jeweils  gewünschten  Ein-/Ausgabe- 
kombinationen  einstellen. 

Die  Ausgabe  von  Daten 

Nachdem  das  Datenrichtungsre¬ 
gister  auf  Ausgabe  programmiert 
ist,  können  die  Daten  über  die  Spei¬ 
cherstelle  PRB  =  56577  (VC  20:  PRB 
=  37136)  ausgeben  werden.  Der  ent¬ 
sprechende  Befehl  hierzu  lautet  PO¬ 
KE  PRB.X.  Auch  hier  kann  X  eine  De¬ 
zimalzahl  zwischen  0  und  255  sein. 
Die  entsprechende  Binärzahl  er¬ 
scheint  an  den  Ports  und  bringt  die 
dazugehörigen  LEDs  zum  Leuchten. 
High-Pegel  bedeutet  jetzt  Aufleuch¬ 
ten  der  LED.  Mit  Listing  1  kann  dies 
leicht  überprüft  werden.  In  Zeile  10 
werden  alle  Ports  PBO  bis  PB7  auf 
Ausgabe  geschaltet.  In  Zeile  20  er¬ 
folgt  die  Zahleneingabe  (Zahl  zwi¬ 
schen  0  und  255).  In  Zeile  30  wird 
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diese  Zahl  in  die  Speicherstelle  PRB 
gePOKEt  und  an  den  Ports  als  Binär¬ 
zahl  ausgegeben.  Gleichzeitig  ste¬ 
hen  diese  Signale  an  der  13poligen 
Buchsenleiste  an,  wo  Interfaces  für 
die  vielfältigsten  Schalt-  und  Kon- 
trollaufgaben  angeschlossen  wer¬ 
den  können. 

Die  Ausgabe-Handshakeleitung 

Mii  der  Ausgabe-Handshakelei¬ 
tung  PA2  (VC  20:  CB2)  kann  man  die 
Ausgabe  von  Datenwörtem  zu  Steu 
erzwecken  quittieren.  So  kann  ein 
angeschlossenes  Gerät  durch  diese 
Handshakeleitung  zur  Übernahme 
der  Daten  freigegeben  werden. 

Mit  POKE  37148,220  wird  an  Port 
CB2  des  VC  20  Low-Pegel,  mit  dem 
Befehl  POKE  37148,255  High-Pegel 
gelegt.  Beim  C  64  sind  dies  die  Be¬ 
fehle  POKE  56576,147  für  Low-Pegel 
und  POKE  56576,151  für  High-Pegel 
an  Port  PA2.  Eine  spezielle  Anwen¬ 
dung  bleibt  dem  Benutzer  überlas¬ 
sen.  Der  Befehl  kann  in  einem  Pro¬ 
gramm  an  die  Stelle  eingefügt  wer¬ 
den,  wo  er  eine  Schaltfunktion  über¬ 
nehmen  soll.  Listing  2  soll  die  Wir¬ 
kungsweise  von  CB2  und  PA2  veran¬ 
schaulichen. 

ln  Zeile  10  werden  die  Ports  auf 
Ausgabe  programmiert.  In  Zeile  20 
wird  die  auszugebende  Binärzahi 
als  Dezimalzahl  in  die  Speicherstel¬ 
le  PRB  geschrieben.  In  Zeile  30  er¬ 
folgt  dann  der  Quittungsbefehl.  In 
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Bild  2.  Die  Pin-Belegung  eines  SN  7404 


diesem  Fall  wird  ein  Low-Pegel  am 
Port  PA2  oder  CB2  ausgegeben. 
Nach  dem  Durchlauf  einer  Warte¬ 
schleife  in  Zeile  40  wird  PA2  (CB2) 
wieder  auf  High-Pegel  zurückge¬ 
setzt,  und  die  grüne  LED  leuchtet. 
Eingabe  von  Daten 

Das  Datenrichtungsregister  wird 
zu  diesem  Zweck  mit  POKE  DDRB.O 
auf  Eingabe  programmiert.  Dies 
wird  deutlich  durch  das  Aufleuch¬ 
ten  der  LED  angezeigt.  Die  entspre¬ 
chenden  Ports  können  nun  auf  Low- 
Pegel  gelegt  werden  und  bilden 
hierdurch  eine  bestimmmte  Binär¬ 
kombination.  Mit  den  LEDs  läßt  sich 
die  eingestellte  Binärzahl  anschau¬ 
lich  ablesen,  Über  den  Befehl 
PRINT  PEEK(PRB)  wird  der  logische 
Zustand  an  den  Ports  abgefragt  und 
auf  dem  Bildschirm  erscheint  die 
Zahl  189, 


Das  nachstehende  Programm  ver¬ 
deutlicht  noch  einmal  diese  Mög¬ 
lichkeit  der  Dateneingabe: 

10  POKE  DDRB.O 

20  PRINT  'Ausgabe  des  Datenwor¬ 
tes";  PEEK(PRB) 

30  GOTO  20 

In  Zeile  10  werden  die  Ports  auf 
Eingabe  programmiert.  In  Zeile  20 
werden  die  angelegten  Daten  ein¬ 
gelesen  und  auf  dem  Bildschirm  an¬ 
gezeigt. 

Die  Eingabe-Handshake-Leitung 

Mit  einem  weiteren  Befehl  kann 
der  Computer  veranlaßt  werden, 
das  Basic-Programm  anzuhalten 
und  zu  warten,  bis  eine  Dateneinga¬ 
be  erfolgt  ist.  Hierzu  ist  die  Eingabe- 
Handshake-Leitung  CA1 FLAG2  (VC 
20:  CA1)  als  Quittungssignal  vorhan- 


1 

Steckerleiste  251-12-50-170 

1 

13pol.  Buchsenleiste 

2m 

12adriges  Kabel 

2 

IS  74LS04 

8 

LED  rot  (3  mm  0) 

1 

LED  grün  (3  mm  0) 

1 

LED  gelb  (3  mm  0) 

10 

Widerstände  330  SV0.2S  W 

1 

Lochrasterplatte 

1 

Miniaturbuchse  für  +  5  V  (extern) 

1 

Miniaturbuchse  für  GND  (extern) 

1 

TEKO-Gehäuse  (Typ  2A) 

Tabelle  2.  Die  Stückliste  zum 
User-Port-Display 
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C  64/VC  20 


0  REM  LISTING  1 

3  REM  VC  20 : DDRB=37 1 38  /  C  64: DDRB=56579 
5  REM  VC  20s  PRB=37136  /  C  64t  PRB=56577 
10  POKE  DDRB , 255 
20  INPUT  "ZAHL" ; X 
30  POKE  PRB , X 
40  GOTO  20 

READY.  Listing  1.  Ausgabe  einer  Binärzahl  am  User-Port 


0  REM  LISTING  2  C  64 
5  DDRB=56579:PRB=56577 
10  POKE  DDRB, 255 
20  POKE  PRB, 127 
30  POKE  56576,147 
40  FOR  1=1  TO  100s NEXT  I 
50  POKE  56576,151 

READY. 

Listing  2a.  Demonstration  der 
Handshakeleitung  beim  C  64 


0  REM  LISTING  2  VC  20 
5  DDRB=3713Bs  PRB=37136 
10  POKE  DDRB, 255 
20  POKE  PRB, 127 
30  POKE  3714i,220 
40  FOR  1=1  TO  100: NEXT  I 
50  POKE  37148,225 

READY. 

Listing  2b.  Demonstration  der 
Handshakeleitung  beim  VC  20 


0  REM  LISTING  3 

3  INPUT  "1)  VC  20  2)  C  64" ; COMP 

5  ON  COMP  GOTO  7,9,3 

7  DDRB=37 1 38  s  PRB=37 1 36  s  X  =37 1 49  s  Y=2 1  GOTO 1 0 

9  DDRB=56579 : PRB=56577  s  X-565B9 : Y= 1 6  s  GOTO 1 0 

10  POKE  DDRB,0 

20  PRINT"WARTEN  AUF  DATENFREIGABE" 

30  WA IT  X , Y 

40  PR INT" AUSGABE  DES  DATENWORTES" ; PEEK (DRB) 


50  GOTO20 
READY. 


Listing  3.  So  einfach  ist  das  Einlesen  mit 
Handshake  von  Daten  am  User-Port 


0  REM  LISTING  4 

3  INPUT  "1)  VC  20  2)  C  64" 5  COMP 

5  ON  COMP  GOTO  7,9,3 

7  DDRB=37 1 38 s  PRB=37 1 36 : X=37149: Y=2:GOTO10 

9  DDRB=56579: PRB=56577: X=565B9: Y=16: BOTO10 

10  POKE  PRB , 0 

20  POKE  DDRB, 240 

30  PR INT "WARTEN  AUF  DATENFREIGABE" 

40  WA IT  X , Y 

50  IF  PEEK  <PRB) =1 1  THEN  POKE  PRB,16:END 
60  GOTO  50 

Listing  4.  Der  User-Port  kann  auch  gleichzeitig 
READY.  als  Ein-  und  Ausgabe-Schnittstelle  benutzt  werden 

0  REM  LAUFLICHT-DEMO 
3  INPUT  "1>  VC  20  2)  C  64"; COMP 

5  ON  COMP  GOTO  6,8,3 

6  DDRB=37 1 38 : PRB=37 136  s  YY=37 1 48 1 

7  Z  Z=255 : Z 1 =220 1  GOTO 1 0 

8  DDRB=56579 s  PRB=56577 1  YY=56576  s 

9  ZZ=151 1 Z 1  =  147«  GOTO10 

10  POKE  DDRB, 255 
20  FORX=0TO7 

30  Y=2~X 
40  POKE  PRB,Y 
50  FORI  =  lTO100t  NEXTI 
60  NEXTX 
70  POKE  PRB,0 
80  POKE  YY,ZZ 
90  FORI=lTO100s NEXTI 
100  POKE  YY , Z 1 
110  GOTO  20 

READY.  Listing  5.  Lauflicht  am  User-Port 


den.  Bei  einem  Flankenwechsel  von 
High  nach  Low  werden  die  anlie¬ 
genden  Daten  eingelesen.  Mit  Hilfe 
von  Listing  3  läßt  sich  dieser  Vor¬ 
gang  bewerkstelligen. 

In  Zeile  10  werden  die  Ports  auf 
Eingabe  programmiert.  In  Zeile  30 
'wird  das  Basic-Programm  solange 
angehalten,  bis  der  Flankenwechsel 
am  Port  FLAG?.  (CA1)  erfolgt.  Da¬ 
nach  wird  das  Programm  wieder 
fortgesetzt,  und  in  Zeile  40  das  ange¬ 
legte  Datenwort  auf  dem  Bildschirm 
angezeigt. 


1  N  4001 


Bild  3.  Zwei  Interface-Schaltungen, 
die  anstelle  der  LEDs  eingesetzt  werden 
können.  Relais  oder  Optokoppler 


Daten-Ein-  und  -Ausgabe  kombiniert 

Mit  der  Kombination  von  Daten- 
Ein-  und  Ausgabe  können  vielfältige 
Steuer-  und  Kontrollaufgaben  gelöst 
werden.  Hierbei  werden  Datenwör¬ 
ter  eingelesen,  im  Computer  verar¬ 
beitet  und  zur  Steuerung  wieder 
ausgegeben.  Listing  4  zeigt  dies  bei¬ 
spielhaft.  In  Zeile  10  wird  eine  even¬ 
tuell  bestehende  Kombination  ge¬ 
löscht.  In  20  werden  die  Ports  PB0 
bis  PB3  auf  Eingabe  und  die  Ports 
PB4  bis  PB 7  auf  Ausgabe  program¬ 
miert.  In  Zeile  40  wird  das  Pro¬ 
gramm  solange  angehalten,  bis  ein 
Flankenwechsel  von  High  nach  Low 
an  Port  FLAG 2  (VC  20:  CA1)  erfolgt. 
In  Zeile  50  wird  die  eingegebene  Bi¬ 
närkombination  mit  der  vorgegebe¬ 
nen  Dezimalzahl  11  verglichen.  Bei 
Erfüllung  dieser  Bedingung  wird 
em  Steuerbefehl  zum  Port  PB4  ge¬ 
sendet,  der  dann  irgendeine  Funk¬ 
tion  auslösen  kann.  Bei  Nichterfül¬ 
lung  der  vorgegebenen  Bedingung 
wird  in  Zeile  60  eine  Rücksprungan¬ 
weisung  zur  Zeile  50  gegeben,  Mit 
Listing  5  können  Sie  den  C  64  in  eine 
Lichtorgel  umfunktionieren. 

Ausblick 

In  Bild  3  sind  zwei  Interface- 
Schaltungen  gezeigt,  die  den  C  64 
oder  VC  20  mit  der  Außenwelt  ver¬ 
binden.  Hüten  Sie  sich  bei  Ihren 
Experimenten  vor  Netzspannung. 
Nicht  nur  der  Computer  kann  damit 
ins  Jenseits  befördert  werden. 

(Dipl.-Ing.  Richard  Kurzhals/hm) 
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Dateiverwaltung 


C  64 


Dateiverwaltungen : 

Was  Sie  beim  Kauf 
beachten  sollten 

Der  Kauf  einer  Dateiverwaltung  ist  risiko¬ 
reich.  Denn  die  Schwächen  eines  solchen 
Programms  tauchen  oft  erst  auf,  wenn 
schon  eine  große  Anzahl  von  Daten  einge¬ 
geben  wurde.  Der  Entwickler  des  »Daten¬ 
manager  64«  gibt  wertvolle  Ratschläge. 


Bevor  Sie  losziehen  und  sich  ver¬ 
schiedene  Programme  an¬ 
schauen,  erstellen  Sie  zuerst 
bitte  ein  »Mengengerüst«:  Überle¬ 
gen  Sie  sich,  wie  lang  ein  Datensatz 
Ihrer  Datei  (zum  Beispiel  eine 
Adresse)  maximal  sein  kann,  aus 
wievielen  Feldern  er  besteht  (Name, 
Vorname,  PLZ  ...)  und  wieviele  Da¬ 
tensätze  Ihre  Datei  —  planen  Sie 
großzügig  ein  oder  zwei  Jahre  vor¬ 
aus  —  aufnehmen  muß.  Seien  Sie  bei 
der  Erstellung  dieses  Mengengerü¬ 
stes  nicht  zu  knauserig.  Nichts  ist 
schlimmer,  als  nach  einem  Jahr  fest¬ 
stellen  zu  müssen,  daß  die  Datei  zu 
groß  für  die  vorhandene  Dateiver¬ 
waltung  wird. 

Sortieren  Sic  nun  die  Programme 
aus,  die  dieses  Mengengerüst  nicht 
erfüllen.  Die  Werbung  ist  dabei 
nicht  sehr  hilfreich,  da  viele  Firmen 
einen  kleinen  Trick  verwenden:  Sie 
geben  zum  Beispiel  an,  daß  Ihr  Pro¬ 
gramm  maximal  2000  Datensätze 
verwalten  kann  und  daß  ein  Daten¬ 
satz  maximal  250  Zeichen  lang  sein 
darf.  Nach  dem  Kauf  stellt  sich  dann 
oft  heraus,  daß  sich  beide  Verspre¬ 
chungen  gegenseitig  ausschließen: 
Entweder  kann  das  Programm  2000 
Datensätze  verwalten,  jedoch  nur 
mit  einer  Länge  von  70  Zeichen, 
oder  aber  es  kann  Datensätze  mit  ei¬ 
ner  Länge  von  250  Zeichen  verwal¬ 
ten,  davon  jedoch  keine  2000. 

Ein  besserer  Weg  ist  es,  sich  di¬ 
rekt  beim  Fachhandel  zu  erkundi¬ 
gen.  Angesichts  der  Programmviel¬ 
falt  für  einen  Computer  wie  den  C 
64,  sind  jedoch  nur  wenige  Verkäu¬ 
fer  in  der  Lage,  detaillierte  Auskunft 
über  einzelne  Programme  zu  ge¬ 
ben.  Als  Lösung  verbleibt  somit  nur 
ein  intensives  Studium  von  Zeit¬ 
schriften  und  den  darin  erschiene¬ 
nen  Tests. 


Nachdem  Sie  nun  diejenigen  Pro¬ 
gramme  aussortiert  haben,  die  Ihre 
(zukünftigen)  Datenmengen  nicht 
verkraften  können,  kommt  die  zwei¬ 
te  Selektionsstufe:  die  Frage  der  Da¬ 
tensicherheit.  Dieses  Kriterium  wird 
oftmals  unterschätzt.  Viele  Benutzer 
achten  nur  auf  die  Leistungsfähig¬ 
keit  eines  Programms.  Ebenso  wich¬ 
tig  ist  jedoch,  mit  welcher  Sicherheit 
und  Anwenderfreundlichkeit  diese 
Leistung  erbracht  wird. 

»Verdächtige« 
Programme  meiden 

Hören  Sie  sich  bei  Ihren  Bekann¬ 
ten  um,  und  lesen  Sie  die  Tests  in 
den  entsprechenden  Zeitschriften. 
Sollte  es  Hinweise  für  die  mangeln¬ 
de  Datensicherheit  eines  Pro¬ 
gramms  geben,  so  streichen  Sie  die¬ 
ses  unverzüglich  aus  Ihrer  Liste. 

Sollten  Sie  einen  Drucker  besit¬ 
zen,  ist  es  natürlich  selbstverständ¬ 
lich,  daß  das  jeweilige  Programm 
diesen  unterstützen  muß.  Wenn  Sie, 
zusammen  mit  einem  Interface,  den 
Drucker  eines  Fremdherstellers 
verwenden,  so  testen  Sie  die  Kom¬ 
patibilität  mit  den  in  Frage  kommen 
den  Programmen.  Sollten  Sie  keinen 
Drucker  besitzen,  erkundigen  Sie 
sich,  ob  über  den  Bildschirm  allein 
alle  Programmfunktionen  ausge¬ 
nutzt  werden  können. 

Weitere  notwendige  Eigenschaften: 

▼  Es  muß  möglich  sein,  mindestens 
ein  frei  wählbares  »Schlüssel-«  oder 
»Indexfeld«  anzugeben.  Ein  solcher 
Schlüssel  erlaubt  die  schnelle  Su¬ 
che  nach  Datensätzen  auch  bei  um¬ 
fangreichen  Dateien. 

▼  Alle  Felder  des  Datensatzes  müs¬ 
sen  bei  der  Suche  durch  »UND«  mit¬ 
einander  verknüpft  werden  können. 


Beispiel:  Selektiere  alle  Adressen 
mit  dem  Namen  »Müller«  und  dem 
Wohnort  »Mannheim«. 

♦  Selbstverständlich  muß  die  Datei 
nach  einem  frei  wählbaren  Feld  des 
Datensatzes  sortiert  werden  kön¬ 
nen. 

Universell  ist  besser 
als  speziell 

Dateiverwaltungen,  die  die  bisher 
geschilderten  Anforderungen  nicht 
erfüllen,  sollten  Sie  von  Ihrer  Liste 
streichen.  Auf  einen  weiteren  Punkt 
sollten  Sie  jedoch  noch  achten:  Spe¬ 
ziell  für  den  C  64  gibt  es  eine  Fülle 
verschiedener  Datenverwaltungen, 
mit  denen  Sie  beliebige  Arten  von 
Dateien  aufbauen  können  (Adreß- 
datei,  Schallplattendatei  etc.),  aber 
auch  Programme,  die  nur  eine  be¬ 
stimmte  Dateiart  verwalten,  meist  ei¬ 
ne  Adreßdatei  —  das  wohl  häufigste 
Anwendungsgebiet.  Selbst  wenn 
Sie  momentan  nur  eine  solche 
Adreßdatei  verwalten  wollen,  so 
überlegen  Sie  bitte,  ob  es  nicht  den¬ 
noch  sinnvoller  ist,  ein  Programm  zu 
kaufen,  mit  dem  sich  beliebige  Ar¬ 
ten  von  Dateien  verwalten  lassen. 
Betrachten  Sie  eine  eventuelle  Mehr¬ 
ausgabe  als  Investition  in  die  Zu¬ 
kunft.  Sie  wissen  heute  vielleicht 
noch  nicht,  welche  zukünftigen  Auf¬ 
gaben  Sie  für  Ihren  Computer  noch 
finden  werden. 

Die  zusätzlichen  Kriterien,  anhand 
derer  eine  Dateiverwaltung  beur¬ 
teilt  werden  kann,  sind  zu  einem  gro¬ 
ßen  Teü  abhängig  von  Ihren  persön¬ 
lichen  Ansprüchen  an  den  Komfort 
des  Programms: 

▼  Erlaubt  das  Programm  die  Ver¬ 
wendung  mehrerer  Indizes?  Durch 
Verwendung  eines  Schlüsselfeldes 
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bei  der  Suche  ist  selbst  eine  schnel¬ 
le  Selektion  bestimmter  Datensätze 
möglich.  Findet  in  dem  jeweiligen 
Schlüsselfeld  hingegen  kein  Eintrag 
statt  —  Sie  wissen  nur  noch,  da/5  die 
gesuchte  Person  in  München  wohnt, 
erinnern  sich  jedoch  nicht  an  ihren 
Namen  —  so  können  Sie  bei  sehr 
umfangreichen  Dateien  nicht  selten 
eine  Zigarettenpause  einlegen,  bis 
der  gewünschte  Datensatz  gefun¬ 
den  wird.  Daher  ist  es  vorteilhaft, 
wenn  für  mehrere  Felder  eines  Da¬ 
tensatzes  ein  solcher  Index  ange¬ 
legt  werden  kann. 

▼  Sind  außer  der  »UND«-Ver- 
knüpfung  von  Suchkriterien  noch 
weitere  Verknüpfungsmöglichkei¬ 
ten  vorhanden,  zum  Beispiel 
»ODER«  (Selektiere  alle  Personen, 
die  Müller  heißen  oder  in  Mannheim 
wohnen)? 

▼  Möglicher  weiterer  Suchkomfort 
(und  auch  bei  vielen  Programmen 
verwirklicht):  die  abgekürzte  Einga¬ 
be  von  Suchkriterien,  das  Suchen 
mit  Hilfe  von  Vergleichsoperatoren 
(> ,  < ,  >  = ,  <  =),  alle  Adressen  mit 
Postleitzahl  zwischen  4450  und 
4459))  oder  »Ma?er«  findet  »Maier« 
und  »Mayer«. 

▼  Ist  es  möglich,  außer  einem  pri¬ 
mären  Sortierkriterium  noch  ein  se¬ 
kundäres  anzugeben  oder  eventuell 
gar  noch  weiter  in  die  Tiefe  zu  sortie¬ 
ren  (Beispiel:  Sortiere  nach  »Name«. 
Sind  zwei  Namen  gleich,  sortiere 
diese  nach  »Vorname«)? 

▼  Ausdruck:  Prinzipiell  sollten  sich 
alle  Möglichkeiten  einer  Dateiver¬ 
waltung  auch  ohne  Drucker  er 
schließen  lassen.  Achten  Sie  daher 
darauf,  ob  zum  Beispiel  die  sortierte 
Ausgabe  von  Datensätzen  auch  auf 
dem  Bildschirm  möglich  ist.  Sollten 
Sie  jedoch  einen  Drucker  besitzen, 
ist  für  Sie  wichtig,  wie  frei  Sie  den 
Ausdruck  gestalten  können.  Min¬ 
destanforderungen:  Sie  müssen  an¬ 
geben  können,  ob  alle  oder  nur  spe¬ 
zifische  Felder  eines  Datensatzes 
gedruckt  werden  sollen,  ob  die  Fel¬ 
der  eines  Datensatzes  neben-  oder 
untereinander  stehen  sollen,  wie 
groß  der  Randabstand  sein  soll  etc.. 
Emige  Programme  bieten  dem  An¬ 
wender  sogar  die  Möglichkeit,  eme 
eigene,  völlig  frei  gestaltbare 
Druckmaske  zu  entwerfen.  Wichtig 
ist  auch,  einen  Datensatz  jederzeit 
vom  Bildschirm  ohne  »Verrenkun¬ 
gen«  auszudrucken. 

▼  Drei  weitere  Punkte  dürften  spe¬ 
ziell  für  kommerzielle  Anwender 
wichtig  sein: 

1.  Textverarbeitung:  Ist  es  möglich, 
mit  den  Adressen  einer  Ädreßdatei 
Serienbriefe  zu  erstellen,  oder  muß 
ein  weiteres  Programm  gekauft  wer¬ 


den,  und  gibt  es  dieses  Programm 
passend  zur  Dateiverwaltung? 

2.  Globale  Operationen,  zum  Bei¬ 
spiel  die  Änderung  der  Preise  aller 
Artikel  in  einer  Ärtikeldatei  um  10 
Prozent  in  einem  Ärbeitsgang. 

3.  Verknüpfung  von  Dateien,  zum 
Beispiel  die  Verknüpfung  von 
Adreß-  und  Lagerdatei  zum  Schrei¬ 
ben  von  Rechnungen.  Von  echten 
Datenverwaltungen  (im  Gegensatz 
zu  Datenbanken)  können  derartige 
dateiübergreifende  Verknüpfun¬ 
gen  jedoch  nicht  erwartet  werden. 

Erfüllung  des  Mengengerüstes 
und  Datensicherheit  sind  unabding¬ 
bare  Mindestanforderungen,  wo¬ 
hingegen  Suchkomfort,  Textveiai- 
beitung  etc.  weitgehend  vom 
Geschmack  (und  Geldbeutel)  des 
Einzelnen  abhängig  sind.  Ein  äu¬ 
ßerst  wichtiges  Kriterium  zur  Beur¬ 
teilung  einer  Dateiverwaltung  habe 
ich  mir  jedoch  bis  zum  Schluß  aufge¬ 
spart:  die  Zugriffsgeschwindigkeit. 
Wenn  ein  Programm  Dateien  mit  50 
Datensätzen  schnell  verwaltet,  sagt 
dies  nichts  über  die  Leistungsfähig¬ 
keit  des  gleichen  Programms  mit 
500  Datensätzen  aus.  Das  Verhalten 
bei  großen  Datenmengen  ist  ein 
sehr  komplexes  Problem,  das  von 
den  verwendeten  Datenstrukturen 
abhängt  und  sehr  unterschiedlich 
sein  kann.  Ideal  wäre  es,  wenn  jeder 
Hersteller  eines  Programms  zu  die¬ 
sem  »vollgepackte«  Demo-Dateien 
anbieten  würde,  die  ein  potentieller 
Käufer  beim  Fachhändler  testen 
kann.  Da  dies  im  Moment  jedoch  nur 
Wunschdenken  ist,  empföhle  ich  Ih 
nen  das  Studium  von  Tests  oder 
aber  das  Umhören  im  Bekannten¬ 
kreis. 

Als  letzter  Schritt  erwartet  Sie  nun 
der  Gang  zum  Fachhändler.  Bei  der 
Beurteilung  einer  Dateiverwaltung 
wird  zumeistjiur  der  Aspekt  der  Lei¬ 
stungsfähigkeit  gesehen.  Oft  be¬ 
steht  jedoch  ein  »umgekehrt  propor¬ 
tionaler«  Zusammenhang  zwischen 
der  Leistungsfähigkeit  und  der  Be¬ 
dienungsfreundlichkeit  eines  Pro¬ 
gramms.  Dies  ist  verständlich,  denn 
je  größer  die  Vielfalt  an  Funktionen 
ist,  desto  schwieriger  wird  es,  diese 
dem  Benutzer  einfach  zu  »servie¬ 
ren«.  In  vielen  Fällen  muß  sich  der 
Anwender  durch  eine  Unmenge 
von  Menüs,  Untermenüs  und  Unter- 
Untermenüs  durchkämpfen,  um  ei¬ 
ne  bestimmte  Funktion  anzuwählen. 
Nehmen  Sie  sich  daher  außer  Zeit 
noch  Ihre  Liste  mit  den  in  Frage 
kommenden  Programmen,  gehen 
Sie  zum  Händler,  und  probieren  Sie 
möglichst  viele  Funktionen  selbst 
durch.  Begnügen  Sie  sich  nicht  mit 
eventuell  vorbereiteten  Demo-Ver- 
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sionen,  sondern  bauen  Sie  selbst 
Dateien  auf.  Nur  auf  diese  Weise 
können  Sie  feststellen,  ob  ein  Pro¬ 
gramm  Ihnen  nicht  nur  von  seiner 
Leistung  her  zusagt,  sondern  auch 
vom  Bedienungskomfort.  Ein  Pro¬ 
gramm,  zu  dessen  Benutzung  das 
wcchenlange  Studium  von  Handbü¬ 
chern  notwendig  ist.  sollten  Sie  sich 
nur  dann  kaufen,  wenn  Sie  dessen 
Funktionen  auch  wirklich  benöti¬ 
gen.  (Said  Baloui/gk) 

Checkliste 

Minimalforderungen: 

□  Wieviele  Datensätze  der  von 
Ihnen  benötigten  Lange  kann 
das  Programm  verwalten  (be¬ 
achten  Sie  ein  mögliches 
Wachstum  Ihrer  Dateien  in 
späteren  Jahren)? 

□  Wieviele  Felder  darf  ein  Da¬ 
tensatz  enthalten? 

□  Werden  verschiedene  Daten¬ 
typen  unterstützt? 

LJ  Was  können  Sie  über  die  Da¬ 
tensicherheit  in  Erfahrung 
bringen? 

□  Kann  für  ein  beliebiges  Feld 
ein  Index  zur  schnellen 
Suche  erstellt  werden? 

□  Ist  ein  minimaler  Suchkomfort 
Vorhemden  (Verknüpfung  von 
Suchkriterien,  Ab  kürzen, 
Mengenoperatoren)? 

□  Können  alle  Funktionen  ohne 

_  Drucker  genutzt  werden? 

□  Wird  der  eigene  Drucker  un¬ 
terstützt? 

LJ  Ist  das  Sortieren  der  Datei 
möglich? 

□  Wie  verhält  sich  das  Pro¬ 
gramm  bei  großen  Daten¬ 
mengen  (Zugriffsgeschwin¬ 
digkeit  und  Datensicherheit)? 

□  Wie  bedienungsfreundüch  ist 
das  Programm? 

Zusätzlicher  Komfort: 

□  Welche  zusätzlichen  Such¬ 
möglichkeiten  gibt  es  (Mas- 

_  kieren,  Intervallsuche)? 

□  Können  mehrere  Schlüssel 
definiert  werden? 

□  Wie  frei  ist  die  Gestaltung 
des  Ausdrucks9 

□  Können  mehrere  Sortierkrite- 
rieri  verwendet  werden? 

□  Sind  globale  Änderungs¬ 
oder  Löschfunktionen  vorhan¬ 
den? 

□  Ist  die  Serienbrieferstellung 
möglich  oder  zumindest  der 
Zukauf  eines  geeigneten 
Textprogramms? 

□  Können  einzelne  Dateien  mit¬ 
einander  verknüpft  werden? 
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Die  wichtigsten  Begriffe  der  Dateiverwaltung 


Datensatz,  Datensatzfeld: 

Ein  Datensatz  ist  eine  Menge  zu¬ 
sammengehöriger  Informationen 
(zum  Beispiel  Daten  eines  Artikels: 
Artikelnummer,  Preis  etc.).  Die  ein¬ 
zelnen  Elemente  des  Datensatzes 
werden  Felder  genannt  (Bild  1). 
Datei: 

Eine  Menge  gleichartiger  Daten¬ 
sätze  (zum  Beispiel  alle  Artikel,  die 
Sie  führen)  wird  als  Datei  bezeichnet 
(Bild  1). 

Dateiverwaltung: 

Programm,  das  eine  Datei  verwalten 
kann,  das  heißt,  das  in  der  Lage  ist, 
vom  Benutzer  vorgenommene  An¬ 
fragen  zu  beantworten  (»Welche 
Adresse  hat  Herr  Gustav  Werner?«) 
und  den  Änderungsdienst  zu  erledi¬ 
gen  (Einträgen  neuer  Datensätze, 
Andern  von  Datensätzen,  Löschen 
von  Datensätzen). 

Benutzerschnittstelle: 

Unter  Benutzerschnittstelle  ver¬ 
steht  man  die  Art  und  Weise,  in  der 
die  Kommunikation  zwischen  Datei¬ 
verwaltung  und  Benutzer  erfolgt,  in 
der  dieser  zum  Beispiel  Anfragen 
an  das  Programm  stellt,  oder  den 
sortierten  Ausdruck  der  Datei  ver¬ 
anlaßt.  Die  zwei  gebräuchlichsten 
Arten  der  Benutzerschnittstelle  sind 
die  Menüsteuerung  und  die  Steue¬ 
rung  mit  Hilfe  von  Abfragespra¬ 
chen. 

Menüsteuerung: 

Die  Benutzung  geschieht  interaktiv, 
im  Dialog  mit  dem  Programm. 

Abfragesprachen: 

Der  Benutzer  formuliert  seine 
Wünsche  an  die  Dateiverwaltung 
mit  Hilfe  einer  eigens  dafür  zur  Ver¬ 
fügung  gestellten  Sprache;  er 
schreibt  gewissermaßen  ein  Abfra 
geprogramm. 

Datenstrukturen: 

Man  unterscheidet  logische  und 
physische  Datenstrukturen.  Logi¬ 
sche  Datenstrukturen  definieren 
die  Beziehung  der  einzelnen  Ele¬ 
mente  einer  Datei  zueinander,  phy¬ 
sische  Datenstrukturen  entscheiden 
über  die  Art  und  Weise,  in  der  die 
Daten  auf  einem  Speichermedium 
abgelegt  werden. 

Sequentieller  Zugriff: 

Zugriffsart,  bei  der  auf  die  Daten 
einer  Datei  nur  nacheinander  in  der 
Reihenfolge  der  Abspeicherung  zu¬ 
gegriffen  werden  kann.  Um  den  x- 
ten  Datensatz  zu  lesen,  müssen  erst 

die  Datensätze  1,  2 . x-1  gelesen 

werden.  Häufig  verwechselt  wer¬ 
den  »sequentieller  Zugriff«  und  »se¬ 
quentielle  Datei«:  eine  sequentielle 
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Datei  ist  eine  Datei,  deren  einzelne 
Elemente  sich  lückenlos  hinterein¬ 
ander  auf  dem  Speichermedium 
befinden  (im  Gegensatz  beispiels¬ 
weise  zur  Hashing-Datei).  Die  Art 
der  Datei  erlaubt  jedoch  noch  keine 
Schlußfolgerung  auf  die  Zugriffsart. 
Direktzugriff: 

Durch  Angabe  des  Ortes,  an  dem 
sich  ein  Datensatz  befindet  (Floppy: 
Spur  und  Sektor)  kann  auf  diesen  di¬ 
rekt  zugegriffen  werden  (Büd  2).  Ei¬ 
ne  Sonderform  des  Direktzugriffs  ist 
der  relative  Zugriff:  Hierbei  wird 
das  Speichermedium  in  »Records« 
unterteilt,  deren  Länge  beim  Aufbau 
der  Datei  festgelegt  wird  und  die 
der  maximalen  Datensatzlänge  ent¬ 
spricht.  Jeder  Datensatz  wird  in  ei¬ 
nem  solchen  Record  abgespei¬ 
chert.  Unter  Angabe  der  jeweiligen 


C  64 


Recordnummer  kann  auf  jeden  Da¬ 
tensatz  der  Datei  direkt  zugegriffen 
werden. 

Schlüssel/Index: 

Eine  Datei  wird  nach  einem  oder 
mehreren  Schlüsseln  geordnet.  Ein 
solcher  Schlüssel  ist  meist  ein  Feld 
des  Datensatzes,  zum  Beispiel  »Na¬ 
me«  oder  »Artikelnummer«. 
Schlüssel-/Indexdatei : 

Eine  Datei ,  die  zu  jedem  Datensatz 
das  Schlüsselkriterium  enthält,  nach 
dem  die  Datensätze  geordnet  sind, 
sowie  einen  Zeiger  auf  den  eigentli¬ 
chen  Datensatz  in  der  Datensatzda¬ 
tei. 

Index-sequentielle  Dotei: 

Dateiform,  bei  der  außer  der  Da¬ 
tensatzdatei  noch  eine  Schlüsselda¬ 
tei  existiert.  Da  diese  Schlüsseldatei 
von  jedem  Datensatz  nur  einen  Teil 
enthält  (zum  Beispiel  den  Namen), 
ist  sie  klein  im  Vergleich  zur  Daten¬ 
satzdatei  und  kann  dadurch  in  den 
Computerspeicher  geladen  und  in 


/•" 


DATEI 


WO.U 
GERHARD 
MEIERSTR.  3 
6700-LU 


DATENSATZ  DATENSATZ 

Bild  1.  Datei,  Datensatz  und  Datensatzfeld 


der  Reihe  nach 
gelesen) 


Bild  2.  Zugriffsverfahren:  Zwei  Methoden, 
um  den  Namen  »Srhmidt«  zu  finden 
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diesem  erheblich  schneller  als  auf 
einem  externen  Speichermedium 
durchsucht  werden  (Bild  3).  Wenn 
die  Suche  nach  einem  Datensatz 
nicht  nach  dem  Schlüssel  erfolgt, 
geht  der  Vorteil  der  schnellen  Su¬ 
che  über  die  Indexdatei  verloren; 
die  Datensatzdatei  muß  sequentiell 
durchsucht  werden  (außer  wenn 
das  Dateiverwaltungsprogramm  die 
Verwendung  mehrerer  Schlüssel 
gestattet). 

Ordnung: 

Die  Ordnung  einer  Datei  nach  ei¬ 
nem  bestimmten  Kriterium  kann 
durch  sequentielle  Reihung  ent¬ 
sprechend  der  Ordnung  (einfache 
Liste),  oder  durch  Verknüpfung  der 
Daten  über  Zeiger  (verkettete  Li¬ 
sten,  Baumstrukturen)  geschehen. 
Zeiger  (Pointer): 

Um  Ordnung  in  eine  Datei  zu  brin 
gen,  deren  Elemente  nicht  in  der 
Reihenfolge  dieser  Ordnung  abge¬ 
speichert  sind,  verwendet  man  für 


jedes  Element  der  Datei  einen  oder 
mehrere  Zeiger,  die  auf  den  Spei¬ 
cherort  des  in  der  Reihenfolge 
nächsten  oder  auch  vorhergehen¬ 
den  Elements  zeigen. 

Binäre  Suche: 

Eine  —  zum  Beispiel  alphabetisch 
oder  numerisch  —  geordnete  Datei 
läßt  sich  mit  Hilfe  der  binären  Suche 
sehr  schnell  durchsuchen:  Zuerst 
wird  auf  das  mittlere  Element  der 
Datei  zugegriffen.  Ist  das  gesuchte 
Element  größer,  anschließend  auf 
die  Mitte  der  rechten  Hälfte  der  Da¬ 
tei  und  so  weiter.  Bei  jedem  Such¬ 
schritt  wird  die  Länge  der  noch  zu 
durchsuchenden  Datei  halbiert. 
Hashing: 

Ein  Verfahren,  bei  dem  der  Ort,  an 
dem  ein  Datensatz  abgespeichert 
wird,  mit  Hilfe  eines  geeigneten  Al¬ 
gorithmus  direkt  aus  dem  Inhalt  die¬ 
ses  Datensatzes  ermittelt  wird  (zum 
Beispiel,  indem  die  Quersumme 
der  ÄSCII-Zeichen  des  ersten  Da- 


Datensatzdatei 


Nummer  Satz 


1 

Müller 

Idastr.  3 

München 

2 

Werner 

Olafweg  5 

Frankfurt 

3 

Schmidt 

Große  Str.  la 
Mannheim 

4 

Oskar 

Kleine  Str.  100 
Ludwigshafen 

Indexdütci 


Schlüssel  Zeiger 


Müller 

1 

Oskar 

4 

Weiner 

2 

Schmidi 

3 

Klein,  kann  in  den  Speicher  geladen 
und  daher  schnell  durchsucht  werden. 
Ober  den  Zeiger  wird  auf  den  Daten¬ 
satz  zugegriffen. 


Sehr  großer  Spelcherplatzbodarf  notwendig.  Damit  ist 
die  Anzahl  der  im  Speicher  stehenden  Datensätze 
sehr  gering 


Bild  3.  Suchen  bei  der  index-sequentiellen  Datei 


auf  das  jeweils  kleinere  oder  größere  Element. 


tensatzfeldes  als  Recordnummer 
beim  relativen  Zugriff  verwendet 
wird).  Hashing-Verfahren  zeichnen 
sich  durch  außergewöhnlich  schnel¬ 
len  Datenzugriff  aus.  Nachteilig  ist, 
daß  die  Daten  so  abgespeichert 
werden,  wie  sie  eingegeben  wur 
den,  und  daher  nicht  geordnet  sind. 
Baumstruktur: 

Eine  häufig  verwendete  Daten¬ 
struktur,  bei  der  jedem  Datensatz 
mehrere  Zeiger  zugeordnet  wer¬ 
den,  durch  die  die  Ordnung  der  Da¬ 
tei  hergestellt  wird;  zum  Beispiel  ei¬ 
nen  Zeiger  auf  das  »nächstgrößere« 
Element  und  einen  Zeiger  auf  das 
»nächstkleinere«  Element  (Binär- 
baum,  Bild  4). 

Sortierverfahren: 

Eine  der  häufigsten  Aufgaben  ei¬ 
ner  Dateiverwaltung  ist  die  sortieite 
Ausgabe  von  Daten.  Bei  einer 
Hashing-Datei  muß  die  Datei  in  ei¬ 
nem  solchen  Fall  unbedingt  sortiert 
werden,  da  die  Datensätze  nach  kei¬ 
ner  erkennbaren  Ordnung  abge¬ 
legt  sind.  Aber  auch  bei  einer  ge¬ 
ordneten  Datei  ist  die  Sortierung  im¬ 
mer  dann  unumgänglich,  wenn  eine 
sortierte  Ausgabe  nach  einem  ande¬ 
ren  Ordnungskriterium  gewünscht 
wird  als  jenem,  das  zum  Aufbau  zum 
Beispiel  der  Baumstruktur  verwen¬ 
det  wurde.  Es  gibt  eine  Vielzahl  von 
Sortierverfahren  (Sortieren  durch 
Auswahl,  durch  Vergleich,  durch 
Mischen,  siehe  64er,  Ausgabe  4/85 
ff,  Effektives  Programmieren). 

Interne  Sortierverfahren: 

Interne  Sortierverfahren  (zum  Bei¬ 
spiel  Quicksort)  können  immer  dann 
angewendet  werden,  wenn  sich  die 
zu  sortierenden  Elemente  im  RAM 
befinden. 

Externe  Sortierverfahren: 

Externe  Sortierverfahren  sind  not¬ 
wendig,  wenn  der  Arbeitsspeicher 
(RAM)  zu  klein  ist,  um  alle  zu  sortie¬ 
renden  Elemente  aufzunehmen.  In 
diesem  Fall  müssen  die  Elemente 
direkt  auf  dem  externen  Speicher 
(Floppy/Platte)  sortiert  werden. 
Meist  werden  mit  Hilfe  interner  Sor¬ 
tierverfahren  auf  dem  externen 
Speicher  mehrere  kleine,  vorsor¬ 
tierte  Dateien  erzeugt,  die  dann  mit 
entsprechenden  Sortierverfahren 
weiterverarbeitet  werden. 
Reorganisation  (update): 

Dateien  müssen  teilweise  aktuali¬ 
siert  werden.  Dieser  Vorgang  wird 
als  Reorganisation  bezeichnet.  Eine 
solche  Reorganisation  ist  zum  Bei¬ 
spiel  immer  dann  nötig,  wenn  der 
Benutzer  die  Struktur  der  Daten  ver¬ 
ändern  will  (zum  Beispiel  neue  Fel¬ 
der  hinzufügt  oder  löscht)  oder  es  zu 
Programmabstürzen  kam. 

(Said  Baloui/gk) 

Jrrr- 
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Dateiverwaltung 
ist  nicht  gleich  Datenbank 


Alle  reden  über  Dateiverwaltuna.  Über  die  vielfältigen  Anwendungsmöglich¬ 
keiten  und  über  Vor-  und  Nachteile  der  verschiedenen  Programme.  Wenig 
verbreitet  ist  jedoch  das  Wissen  darum,  was  eine  Dateiverwaltung  eigentlich  ist 
und  welche  Unterschiede  zu  Datenbanken  bestehen. 


Zuerst  sei  folgendes  erklärt:  ei¬ 
ne  Datenbank  ist  nicht  einfach 
eine  Art  »bessere  Dateiverwal¬ 
tung«.  Zwischen  Datenbank  und  Da¬ 
teiverwaltung  bestehen  nicht  nur 
graduelle  Unterschiede.  Beiden  ge¬ 
meinsam  ist  die  Aufgabe,  eine  Men¬ 
ge  gleichartiger  Daten,  das  heißt 
Dateien  zu  verwalten,  ob  es  sich  bei 
diesen  Daten  nun  um  Artikel,  Schall¬ 
platten  oder  Videotitel  handelt.  Das 
Verwalten  besteht  im  sogenannten 
»Änderungsdienst«,  dem  Ändern 
und  Löschen  von  Datensätzen,  dem 
Sortieren  von  Dateien  und  der  mög¬ 
lichst  komfortablen  Beantwortung 
von  Anfragen  des  Benutzers,  also 
dem  Selektieren  bestimmter  Daten¬ 
sätze  aus  der  Gesamtmenge. 

Mit  einer  leistungsfähigen  Datei¬ 
verwaltung  läßt  sich  nicht  nur  eine 
spezifische  Datei  verwalten,  son¬ 
dern  der  Benutzer  kann  beliebig 
viele  verschiedene  Dateien  aufbau¬ 
en.  Mit  einer  Datenbank  ist  es  je¬ 
doch  möglich,  mehrere  Dateien  mit¬ 
einander  zu  verknüpfen  (siehe 
Übersicht  Tabelle  1). 

Ein  Beispiel:  Stellen  Sie  sich  vor, 
Sie  seien  der  Inhaber  eines  Zei¬ 
tungsvertriebs  und  seit  kurzem  stol¬ 
zer  Besitzer  eines  Computers.  Die¬ 
sen  wollen  Sie  dazu  verwenden,  das 
Schreiben  von  Rechnungen  an  die 
Abonnenten  zu  automatisieren.  Sie 
erwerben  eine  Datenbank  wie  zum 
Beispiel  dBase  II  und  bauen  zwei 
Dateien  auf:  Eine  Kundendatei,  in 
der  Sie  Ihre  Abonnenten  führen 
(Kundennummer,  Anschrift  des  Kun¬ 
den,  abonnierte  Zeitschrift)  und  eine 
Zeitschriftendatei  (Zeitschrift,  Abon¬ 
nentenpreis).  Bisher  verlief  das 
Schreiben  von  Rechnungen  so:  Sie 
suchen  in  dem  Karteikasten  »Kun¬ 
den«  den  jeweiligen  Abonnenten, 
tragen  dessen  vollständige  An¬ 
schrift  m  die  Rechnung  ein,  merken 
sich  den  Namen  der  abonnierten 
Zeitschrift,  suchen  in  dem  Karteika¬ 
sten  »Zeitschriften«  nach  der  ent¬ 
sprechenden  Karteikarte  und  tra¬ 
gen  den  Abonnentenpreis  in  die 
Rechnung  ein.  Ein  sehr  zeitaufwen¬ 


diger  Vorgang,  wenn  die  Dateien 
groß  sind. 

Der  Datenbank  müssen  Sie  nur 
angeben:  »Suche  in  der  Kundenda¬ 
tei  nach  dem  Kunden  xyz,  merke  dir 
die  abonnierte  Zeitschrift  und  suche 
in  der  Datei  »Zeitschriften«  nach  die¬ 
sem  Titel.  Die  Datenbank  verfügt 
nun  über  alle  Informationen,  um  ei¬ 
ne  vollständige  Rechnung  auszu¬ 
drucken. 

Die  gestellte  Aufgabe  erfordert 
die  Verknüpfung  von  Kunden-  und 
Zeitschriftendatei.  Gute  Datenban¬ 
ken  sind  sogar  in  der  Lage,  mehr  als 
zwei  Dateien  gleichzeitig  zu  bear¬ 
beiten  und  somit  noch  weitaus  kom¬ 
plexere  Anfragen  zu  beantworten. 

Sollten  Sie  im  Besitz  einer  Datei¬ 
verwaltung  sein,  müssen  Sie  auf  die¬ 
se  Möglichkeiten  der  Verknüpfung 
von  Dateien  leider  verzichten.  Sie 
müssen  ebenfalls  darauf  verzich¬ 
ten,  sich  mit  Hilfe  einer  Datenbank¬ 
sprache  ein  Abfrageprogramm  zu 
schreiben,  das  genau  auf  Ihre  spe¬ 
zielle  Anwendung  zugeschnitten  ist. 
Jede  Datenbank  bietet  eine  solche 
Datenbanksprache.  Mit  Ihrer  Hilfe 
lassen  sich  immer  wiederkehrende 
Abläufe  fest  einprogrammieren.  In 
unserem  Beispiel  könnte  ein  solches 
Programm  so  aussehen:  die  Daten¬ 
bank  wartet  auf  die  Eingabe  der 
Kundennummer,  durchsucht  dar¬ 
aufhin  selbständig  Kunden-  und 
Zeitschriftendatei  nach  dem  vorge¬ 
gebenen  Schema  und  druckt  die 
Rechnung  aus;  anschließend  wird 
auf  die  Eingabe  der  nächsten  Kun¬ 
dennummer  gewartet.  Die  Arbeit 
mit  einer  Dateiverwaltung  hingegen 
geschieht  im  Dialog  mit  dem  Sy¬ 
stem.  Der  Benutzer  muß  sich  auch 
bei  immer  wiederkehrenden  Ab¬ 
läufen  durch  eine  Vielzahl  von  Me¬ 
nüs  hindurcharbeiten,  um  eine  be¬ 
stimmte  Funktion  anzuwählen. 

Diese  beiden  Merkmale  einer 
Datenbank,  das  Verknüpfen  von  Da¬ 
teien,  und  die  feste  Programmie¬ 
rung  immer  gleicher  Arbeitsabläu¬ 
fe  sind  jedoch  nur  für  den  kommer¬ 
ziellen  Anwender  interessant.  Der 


private  Benutzer,  der  seine  Adres¬ 
sen  oder  Schallplatten  verwaltet, 
wird  mit  einer  leistungsfähigen  Da¬ 
teiverwaltung  wohl  immer  zufrieden 
sein. 

Sollten  Sie  aufgrund  der  Tatsache, 
daß  Dateiverwaltungen  nicht  so  lei¬ 
stungsfähig  wie  Datenbanken  sind, 
nun  der  Ansicht  sein,  daß  die  Pro¬ 
grammierung  einer  Dateiverwal¬ 
tung  wohl  recht  einfach  sein  müßte, 
muß  ich  Sie  jedoch  enttäuschen.  Es 
gibt  unzählige  Möglichkeiten,  eine 
Dateiverwaltung  zu  erstellen,  die 
vor  allem  von  den  gewählten  Daten¬ 
strukturen  abhängen;  und  die  Aus¬ 
wahl  an  Datenstrukturen  ist  fast  un¬ 
begrenzt.  Es  gibt  Listenstrukturen, 
Baumstrukturen,  Hashing-Verfahren 
etc.  Die  Wahl  der  geeigneten  Daten¬ 
strukturen  entscheidet  über  die 
spätere  Leistungsfähigkeit  einer  Da- 
teiverwaltung  und  kann  im  Nachhin¬ 
ein  kaum  geändert  werden.  Es  ist 
meist  leichter,  ein  Programm  neu  zu 
schreiben,  als  die  verwendeten  Da¬ 
tenstrukturen  eines  fertigen  Pro¬ 
gramms  zu  ändern,  weil  Sie  sich  als 
nicht  leistungsfähig  genug  erwiesen 
haben. 

Die  meist  verv/endeten  Daten¬ 
strukturen  will  ich  kurz  näher  erläu¬ 
tern  (einige  zum  Verständnis  nötige 


Fähigkeit 

Dateiver¬ 

waltung 

Daten¬ 

bank 

Suchen 

ja 

ja 

Einträgen 

ja 

ja 

Löschen 

ja 

ja 

Ändern 

ja 

ja 

Sortieren 

ja 

ja 

Verknüpfen  von 
Dateien 

nein 

ja 

eigene 

Programmier¬ 

sprache 

nein 

ja 

Tabelle  1 .  Unterschiede  zwischen 
Dateiverwaltung  und  Datenbank 


44 


Ausgabe  5/Mai  1985 


C  64 


Dateiverwaltung 


Begriffe  wie  »binär«,  »Zeiger«  etc. 
sind  im  Lexikon  in  dieser  Ausgabe 
erläutert).  Sollte  dieser  Artikel  bei 
Ihnen  Appetit  auf  »mehr«  wecken,  so 
möchte  ich  Sie  auf  das  Buch  »Alles 
über  Datenbanken  und  Dateiver¬ 
waltung  mit  dem  C  64«,  erschienen 
bei  Data  Becker,  hinweisen.  Kom¬ 
men  wir  nun  zu  den  versprochenen 
Datenstrukturen  (Tabelle  2). 

Listenstrukturen  können  Sie  sich  als 
eine  Aneinanderreihung  von  Daten¬ 
sätzen  vorstellen,  vergleichbar  mit 
der  Anordnung  von  Daten  in  einem 
Telefonbuch.  Diese  Aneinanderrei¬ 
hung  kann  ungeordnet  oder  geord¬ 
net  sein  (meist  alphabetisch).  Ge¬ 


also  Element  für  Element,  durch¬ 
sucht  werden.  Dafür  erlaubt  sie  das 
schnelle  Einträgen  und  Löschen  von 
Datensätzen.  Da  sie  geordnet  ist, 
kann  sich  der  Benutzer  einer  sol¬ 
chen  Dateiverwaltung  jederzeit  den 
alphabetisch  nächsten  oder  vorher¬ 
gehenden  Datensatz  zeigen  lassen. 

Baumstrukturen  sind  im  Grunde  ge¬ 
nommen  nur  eine  besondere  Form 
von  geordneten  Listen,  bei  der  die 
einzelnen  Elemente,  allerdings 
durch  mehr  als  einen  Zeiger,  mitein¬ 
ander  verkettet  werden.  Zum  Einfü¬ 
gen  eines  neuen  oder  Löschen  ei¬ 
nes  alten  Elementes  müssen  nur  we¬ 


rekt  auf  den  gewünschten  Datensatz 
zugegriffen  werden.  Nachteilig  ist, 
daß  die  Daten  völlig  ungeordnet 
sind. 

Diese  kurze  Vorstellung  verschie¬ 
dener  Datenstrukturen  sollte  vor  al¬ 
lem  eines  zeigen:  Die  Wahl  einer  be¬ 
stimmten  Datenstruktur  hängt  von 
der  jeweiligen  Aufgabenstellung  ab. 
Wenn  der  entscheidende  Gesichts¬ 
punkt  bei  der  Verwaltung  von  Daten 
die  Zugriffsgeschwindigkeit  ist, 
empfiehlt  sich  das  Hash-Verfahren. 
Muß  die  Datei  jedoch  unbedingt  al¬ 
phabetisch  durchblättert  werden 
können,  so  bieten  sich  Listen-  oder 
Baumstrukturen  an. 


Struktur 

Vorteile 

Nachteile 

ungeordnete 

Liste 

einfacher  Änderungsdienst  (Block- 
nperationen  nur  zum  Löschen  nötig) 

langsame  sequentielle  Suche, 
kein  goordnotos  Blättern 

geordnete  Liste 

schnelle  binäre  Suche,  geordnetes 
Blättern 

aufwendiger  Andejungs- 
dienst  (Blockoperationen) 

verkettete  Liste 

geordnetes  Blättern,  einfacher 
Änderungsdienst  (keinerlei  Block¬ 
operanonen) 

langsame  sequentielle  Suche 

Baumstrukturen 

schnelle  binäre  Suche,  geordnetes 
Blättern,  einfacher  Änderungsdienst 
(keinerlei  Blockoperationen) 

Ilashing 

extrem  schnelle  Suche  über  Hash- 
Algorithmus,  einfacher  Änderungs- 
dienat  (keinerlei  Blockoporationon) 

kein  geordnetes  Blättern 

geordnetes  Blättern:  ausgehend  von  einem  bestimmten  Datensatz  kann  (alphabe¬ 
tisch/numerisch)  vor-  bsw.  zurückgeblättert  worden 

Blockoperationen:  Verschieben  ganzer  Datenblöcke,  zum  Beispiel  zum  Einträgen 

eines  neuen  Datensatzes 

ordnete  Listen  haben  den  Vorteil, 
daß  sie  schneller  durchsucht  wer¬ 
den  können  als  ungeordnete.  Sie 
können  die  Suche  in  einer  geordne¬ 
ten  Liste  mit  der  Suche  in  einem  Te¬ 
lefonbuch  vergleichen,  bei  der  Sie 
wohl  kaum  auf  der  ersten  Seite  mit 
der  Suche  nach  »Maier«  beginnen, 
sondern  wesentlich  effizienter  su¬ 
chen,  eben  (fast)  binär.  Problema¬ 
tisch  an  geordneten  Listen  ist  das 
Einträgen  und  Löschen  von  Daten¬ 
sätzen.  Um  einen  neuen  Datensatz 
einzutragen,  müssen  alle  alphabe¬ 
tisch  nachfolgenden  Datensätze 
verschoben  werden,  um  Platz  zu 
schaffen.  Aus  diesem  Grund  wird 
die  Ordnung  bei  verketteten  Listen 
nicht  durch  die  Reihenfolge,  son¬ 
dern  durch  Zeiger  hergestellt.  Je¬ 
des  Element  der  Liste  besitzt  einen 
solchen  Zeiger,  der  auf  den  Ort 
weist,  an  dem  der  (alphabetisch) 
nachfolgende  Datensatz  abgespei¬ 
chert  ist.  Da  die  Reihenfolge  der 
Elemente  unerheblich  ist,  kann  ein 
neu  einzutragender  Datensatz  ein¬ 
fach  an  das  Ende  der  Liste  ange¬ 
hängt  werden.  Er  muß  allerdings  ei¬ 
nen  Zeiger  auf  den  alphabetisch 
nachfolgenden  Datensatz  bekom¬ 
men,  und  der  vorhergehende  Da¬ 
tensatz  einen  Zeiger  auf  den  gerade 
neu  eingetragenen.  Eine  verkettete' 
Liste  läßt  sich  leider  nicht  binär 
durchsuchen,  sie  muß  sequentiell, 


Dateiform 

Vorteile 

Nachteile 

benötigte 

Zu  griff  Bart 

sequentielle 

Datoi 

einfache  progxammtech- 
nischo  Realisation 

Dateigroße  von  Rech- 
nerepeicherkapazität 
abhängig 

sequentieller 

Zugriff 

Index  - 

sequciUiellc 

Datei 

Datoigroäe  nur  von  der 
Kapazität  des  externen 
Speichers  abhängig 
(Floppy,  Kassette) 

schnelle  Suche  nur 
übor  don  Indox 

direkter  Zugriff 

Hashing-Datei 

Datcigröäo  nur  von  der 
Kapazität  des  externen 
Speichers  abhängig, 
extrem  schnelle  Suche 
über  Hash-Feld 

schnelle  Suche  nur 
über  Hash-Feld,  Be¬ 
schränkung  bei  der 
Wahl  der  Daienstruk 
tur  auf  Hash-Organi- 
sation 

direkter  Zugriff 

A  Tabelle  3.  Die  wichtigsten  Dateiformen 


Tabelle  2.  Vor-  und  Nachteile  der  wichtigsten  Datenstrukturen 
Handicap  für  Kassettenrecorder 

Kurz  erwähnt  werden  sollte  noch 
die  Art  des  Zugriffs  auf  Daten.  Man 
unterscheidet  hauptsächlich  den  di¬ 
rekten  und  den  sequentiellen  Zu¬ 
griff  (Tabelle  3).  Mit  einem  Kasset¬ 
tenrecorder  geht  es  nur  sequentiell: 
Um  einen  bestimmten  Datensatz  zu 
finden,  müssen  alle  in  der  Datei  vor¬ 
hergehenden  Elemente  gelesen 
werden,  Damit  ist  weder  die  index¬ 
sequentielle  Datei,  bei  der  über  ei¬ 
nen  Zeiger  direkt  auf  den  ge¬ 
wünschten  Datensatz  zugegriffen 
werden  kann,  noch  die  Hashing- 
Datei,  die  ebenfalls  direkten  Zugriff 
voraussetzt,  möglich. 

Bei  der  Floppy  gibt  es  diese  Ein¬ 
schränkungen  nicht.  Sie  hat  nur  zwei 
Grenzen;  zum  einen  die  Speicherka¬ 
pazität  und  zum  anderen  die  Ge¬ 
schwindigkeit,  mit  der  Daten  über¬ 
tragen  werden.  Und  diese  beiden 
Punkte  sind  es  auch,  die  die  Ver¬ 
wendung  von  Datenbanken  auf  dem 
C  64  fraglich  machen.  Die  Verwen¬ 
dung  mehrerer  Dateien  ist  sehr 
speicherintensiv,  und  die  Verknüp¬ 
fung  dieser  Dateien  erfordert  einen 
häufigen  Zugriff  auf  die  Diskette  und 
ist  daher  auch  ein  Zeitproblem.  In¬ 
teressant  dürften  Datenbanken 
eher  beim  neuen  PC  128  werden. 
Warten  wir’s  ab. 

(Said  Baloui/gk) 


nige  Zeiger  verändert  werden;  das 
Verschieben  von  Elementen  ist  nicht 
nötig.  Die  Suche  nach  bestimmten 
Elementen  ist  schnell,  da  der  Baum 
binär  durchsucht  wird.  Aufgrund  Ih¬ 
rer  Vorteile  gehören  Baumstruktu¬ 
ren  zu  den  beliebtesten  Datenstruk¬ 
turen. 

Hashing:  Das  sogenannte  »Hash- 
Verfahren«  hat  mit  den  bisher  ge¬ 
schilderten  Datenstrukturen  keiner¬ 
lei  Gemeinsamkeiten.  Es  beruht 
darauf,  daß  mit  Hilfe  eines  geeigne¬ 
ten  Algorithmus  direkt  aus  dem  ab¬ 
zuspeichernden  Datensatz  die 
Adresse  gewonnen  wird,  an  dem 
dieser  abgelegt  wird.  Ein  Beispiel: 
der  einfachste  denkbare  Hash- 
Algorithmus  bestünde  darin,  die 
Quersumme  der  einzelnen  ASCII- 
Werte  für  ein  einzelnes  Datensatz¬ 
feld,  zum  Beispiel  »maier«,  zu  bilden. 
Die  ermittelte  Zahl  (366)  könnte  nun 
als  Recordnummer  oder  als  Index 
für  einen  String  verwendet  werden 
(a$(366)  = 1  'maier;georg;münchen’ '). 
Bei  der  Suche  nach  einer  bestimm¬ 
ten  Adresse  wird  nun  dieser  Algo¬ 
rithmus  auf  den  Namen  angewandt, 
und  der  String  mit  diesem  Index 
oder  aber  der  jeweilige  Record  ein¬ 
gelesen.  Der  Vorteil  des  Hash- 
Verfahrens  liegt  in  der  Geschwin¬ 
digkeit:  in  den  meisten  Fällen  ist  kei¬ 
nerlei  Suche  nach  bestimmten  Da¬ 
ten  mehr  nötig,  sondern  es  kann  di- 
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Sprachen  für  Computer  (2) 

Diesmal  sollen  uns  bei  unserem  Überblick  über  die  Welt  der 
Programmiersprachen  die  modernen  Sprachen  interessieren.  Sie  erfahren, 
was  Ada  kann  und  was  man  sich  unter  Modula  oder  Lisp  vorzustellen  hat. 


Die  »klassischen«  alten  Program¬ 
miersprachen  wie  Fortran,  Co- 
bol  oder  Algol  haben  viol  mehr 
miteinander  gemeinsam,  als  man 
beim  oberflächlichen  Betrachten 
von  Programmen  in  einer  dieser 
Sprachen  erwarten  würde.  So  kön¬ 
nen  zum  Beispiel  nur  numerische 
Datentypen  verwendet  werden,  ei¬ 
ne  Einschränkung,  in  der  sich  die 
unzulänglichen  Hardwaremöglich¬ 
keiten  der  fünfziger  Jahre  wieder¬ 
spiegeln.  Tatsächlich  war  Rechen- 
zeil  und  Speicherplatz  damals  Man¬ 
gelware,  und  niemand  dachte  auch 
nur  im  entferntesten  daran,  die  teure 
Rechnerkapazität  für  andere  Dinge 
als  schwierige  numerische  Berech¬ 
nungen  einzusetzen.  Das  führte 
dann  später  in  den  sechziger  und 
siebziger  Jahren  zur  Unsitte,  rein  nu¬ 
merisch  orientierte  Sprachen  wie 
Fortran  schließlich  für  alle  mögli¬ 
chen  Zwecke  einzusetzen.  Die  Spra¬ 
che  war  halt  einmal  vorhanden,  Re¬ 
chenkapazität  verfügbar  und  so 
wurden  sogar  ganze  Textverarbei¬ 
tungsprogramme  in  Fortran  ge¬ 
schrieben,  Buchstabe  für  Buchstabe 
fern  säuberlich  als  Zahlenwert  co¬ 
diert  und  in  einem  numerischen  Da¬ 
tenfeld  abgelegt. 

Da  war  eine  Sprache  wie  Basic, 
das  1965  am  Dartmouth  College  ent¬ 
wickelt  worden  ist,  schon  ein  gewis¬ 
ser  Fortschritt.  Basic  bietet  neben 
numerischen  Datentypen  auch  noch 
Strings,  also  Zeichenketten,  als  Da¬ 
tentyp  an  und  stellt  auch  spezielle 
Operatoren  dafür  zur  Verfügung. 
Tatsächlich  ist  mit  der  Möglichkeit, 
numerische  Daten  und  Texte  zu  be¬ 
arbeiten,  schon  ein  großer  Teil  der 
(damals)  denkbaren  Computer-An¬ 
wendungen  abgedeckt.  Moderne 
Programmiersprachen  stellen  aber 
noch  weitaus  mehr  Komfort  zur  Ver¬ 
fügung.  Es  können  beliebige  eigene 
Datentypen  definiert  werden,  es 
gibt  sogenannte  »Verbundvariable«, 
zusammengesetzt  aus  mehreren  Va¬ 
riablen  verschiedener  Datentypen, 
und  schließlich  können  auch  kom¬ 
plexe  Datenstrukturen  wie  verkette¬ 
te  Listen  oder  Suchbäume  einfach 
dargestellt  werden.  Die  erste  Spra¬ 
che,  die  diese  Möglichkeiten  konse¬ 
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quent  verwirklichte,  war  Pascal,  auf 
das  schon  im  ersten  Teil  ausführli¬ 
cher  eingegangen  wurde.  Im  fol¬ 
genden  wollen  wir  uns  etwas  näher 
mit  den  Nachfolgern  von  Pascal  be¬ 
schäftigen,  aber  auch  auf  völlig  an¬ 
dersartige  Konzepte  eingehen. 

Pascal  in  Kurzform:  C 

Die  Entwicklung  der  Sprache  C  ist 
eng  verbunden  mit  der  Geschichte 
des  16-Bit-Betriebssystems  Unix, 
das  selbst  vollständig  in  C  geschrie¬ 
ben  ist.  Der  Name  dieser  Sprache 
hat  eine  verblüffend  einfache  Her¬ 
kunft.  Zur  Programmier-Unter- 
stützung  auf  Minicomputern  von  Di¬ 
gital  Equipment  wurden  um  1970 
Spezialsprachen  entwickelt,  die  ein¬ 
fach  nach  dem  Alphabet  die  Be¬ 
zeichnungen  A  und  B  erhielten.  Die 
B-Sprache  wurde  1971  dazu  benutzt, 
Unix,  das  damals  noch  in  Assembler 
geschrieben  war,  auf  einfache  Art 
und  Weise  auf  andere  Computer  zu 
übertragen.  Schließlich  erkannte 
Dennis  Ritchie,  ein  Programmierer 
bei  Bell  Labs,  die  Fähigkeiten  der 
Sprache  B,  erweiterte  und  verfeiner¬ 
te  sie  und  nannte  das  Resultat  C. 

Kurz  darauf  (1973)  wurde  Unix  auf 
C  umgeschrieben  —  das  erste  Be¬ 
triebssystem,  das  in  einer  höheren 
Programmiersprache  abgefaßt  war. 
Das  war  nur  möglich,  weil  C  ein 
strukturiertes  Sprachkonzept  bei 
gleichzeitiger  größtmöglicher  Effi¬ 
zienz  der  Programme  zur  Verfügung 
stellt.  In  C  geschriebene  Program¬ 
me  sind  einerseits  sehr  kompakt 
(geringer  Speicherbedarf),  ande¬ 
rerseits  sehr  schnell  (typischerwei¬ 
se  etwa  50  mal  so  schnell  wie  Basic). 

Programmierung  in  C  besteht  im 
wesentlichen  im  Schreiben  von 
Funktionen,  die  jeweils  Teilberei¬ 
che  des  Problems  lösen.  Die  Ge¬ 
samtlösung  ergibt  sich  dann  durch 
zweckmäßigen  Einsatz  dieser  Funk¬ 
tionen.  Dementsprechend  ist  C  ei¬ 
nerseits  stark  an  Pascal  angelehnt, 
verfügt  andererseits  aber  über  zu¬ 
sätzliche  Befehle  und  Operatoren, 
die  der  verbesserten  Ausnutzung 
der  vorhandenen  Hardware  (=  des 


Prozessors)  dienen.  So  bietet  C  spe¬ 
zielle,  an  die  Assembler-Program¬ 
mierung  angelehnte  Befehle  zum  In- 
krementieren  und  Dekrementieren 
(erhöhen/emiedrigen)  von  Varia¬ 
blenwerten  und  als  einzige  der  ver¬ 
breiteten  höheren  Programmier¬ 
sprachen  die  Option,  Variable  als 
Register-Variable  zu  deklarieren. 
Das  bedeutet,  daß  solche  Variablen 
nach  Möglichkeiten  in  internen 
Prozessor-Registern  gehalten  wer¬ 
den,  was  einen  wesentlich  schnelle¬ 
ren  Zugriff  als  bei  den  normalerwei¬ 
se  verwendeten  Speichervariablen 
ermöglicht.  An  dieser  Stelle  merken 
Sie  wahrscheinlich  schon,  daß  bei 
der  Entwicklung  der  Sprache  nicht 
unbedingt  an  den  6502-Prozessor 
gedacht  wurde,  der  mit  seinen  be¬ 
scheidenen  drei  Registern  (A,X,Y)  in 
dieser  Beziehung  nicht  gerade 
überwältigende  Möglichkeiten  bie¬ 
tet.  Allerdings  würde  sich  als 
Register-Ersatz  die  Zero-Page  an¬ 
bieten,  bei  der  der  Zugriff  ja  auch  et¬ 
was  schneller  ist.  Andererseits  wur¬ 
de  C  auch  nicht  gerade  für  64-Bit- 
Supcrprozcssorcn  konzipiert.  Der 
artige  in  Großrechnern  verwendete 
Prozessoren  verfügen  in  der  Regel 
über  eine  sehr  große  Zahl  von  Regi¬ 
stern,  und  ein  guter  Fortran-Com- 
piler  für  so  einen  Großrechner  ver¬ 
wendet  natürlich  auch  diese  Regi¬ 
ster  für  die  Programmoptimierung. 
So  wird  C  in  der  Regel  auf  16-  oder 
32-Bit-Maschinen  eingesetzt.  Bei 
den  8-Bit-Prozessoren  ist  C  prak¬ 
tisch  nur  für  den  Z80  verbreitet  (un¬ 
ter  CP/M),  allerdings  soll  eine  Ver¬ 
sion  für  den  C  64  in  Vorbereitung 
sein.  Wir  werden  Sie  im  64 'er  Maga¬ 
zin  darüber  auf  dem  laufenden  hal¬ 
ten. 

Modulare  Programmie¬ 
rung:  Modula 

Das  Grundkonzept  aller  moder¬ 
nen  Programmiersprachen  heißt 
Modularisierung  der  Programment¬ 
wicklung.  Damit  ist  gemeint,  Proble¬ 
me  nicht  mit  immensem  Aufwand  in 
umfangreichen  Programmen  zu  lö¬ 
sen  (die  ja  für  jedes  Problem  wieder 
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neu  geschrieben  werden  müssen), 
sondern  Teilaspekte  des  Problems 
in  möglichst  allgemeiner  Form  in  ei¬ 
genständigen  Toilprogrammen, 
eben  den  sogenannten  Modulen,  zu 
lösen.  Der  Vorteil  dieser  Art  der 
Software-Entwicklung  liegt  auf  der 
Hand:  Ein  Teilproblem  muß  nur  ein 
einziges  Mal  gelöst  werden;  tritt  das 
gleiche  Teilproblem  irgendwann 
einmal  wieder  bei  der  Programmie¬ 
rung  auf,  kann  man  auf  das  fertige 
Modul  zurückgreifen.  Außerdem  ist 
es  natürlich  zumeist  viel  einfacher, 
mehrere  kleinere  Probleme  zu  lö¬ 
sen  als  ein  großes.  Bei  konsequen¬ 
tem  Einsatz  der  »modularisierten 
Programmierung«  lassen  sich  Pro¬ 
gramme  somit  auf  lange  Sicht  we¬ 
sentlich  rationeller  entwickeln. 

Allerdings  gibt  es  emige  Voraus¬ 
setzungen  für  die  Modularisierung: 
Die  einzelnen  Module  müssen  über 
genau  definierte  »Schnittstellen« 
nach  »außen«  verfügen,  dannt  sie 
zweckmäßig  ausgewählt  und  einge¬ 
setzt  werden  können.  Andererseits 
darf  aber  das  »Innenleben«  der  Mo¬ 
dule  auf  keinen  Fall  irgendwelche 
Dinge  »außen«  beeinflussen.  Basic 
ist  daher  zum  Beispiel  sehr  schlecht 
für  diese  Art  der  Programmierung 
geeignet:  Unterprogramme  haben 
keine  Namen,  sondern  werden  über 
Zeilennummem  aufgerufen  (schlech¬ 
te  Dokumentation),  es  gibt  keine  Pa¬ 
rameterübergabe,  also  keine  feste 
Schnittstelle,  und  schließlich  ist  jede 
Variable,  die  im  Unterprogramm 
verändert  wird,  anschließend  auch 
im  Hauptprogxamm  verändert. 

Modula,  entwickelt  von  Professor 
N.  Wirth,  dem  Schöpfer  der  Spra¬ 
che  Pascal,  ist  eine  der  ersten  Spra¬ 
chen,  die  das  Konzept  der  Modulari¬ 
sierung,  das  zum  Teil  ja  auch  schon 
in  Pascal  enthalten  ist,  konsequent 
durchführt. 

Jedes  Modula-Programm  ist 
selbst  ein  Modul  und  kann  dement¬ 
sprechend  andere  Programme  als 
Untermodule  verwenden.  Dabei 
gibt  es  keinen  Unterschied  zwi¬ 
schen  den  Standard-Modulen,  die 
die  Sprache  dem  Benutzer  zur  Ver¬ 
fügung  stellt  und  selbstgeschriebe¬ 
nen  (Programm-)Modulen.  Jedes 
Modul  ist  in  sich  vollständig  abge¬ 
schlossen,  daß  heißt  Vereinbarun¬ 
gen  über  Datentypen,  Funktionen 
und  Variable  gelten  nur  innerhalb 
des  Moduls.  Sollen  die  in  einem  Mo¬ 
dul  getroffenen  Definitionen  ande¬ 
ren  Modulen  zugänglich  gemacht 
werden,  dann  müssen  sie  vom  Mo¬ 
dul  »exportiert«,  von  den  anderen 
Modulen  »importiert«  werden.  Da¬ 
mit  werden  alle  unerwünschten  Ne¬ 
beneffekte,  wie  sie  etwa  bei  Basic- 


Unter Programmen  häufig  auftreten 
können,  vollständig  ausgeschlos¬ 
sen. 

Selbstverständlich  sind  die  einzel¬ 
nen  Module  intern  ebenfalls  völlig 
strukturiert  aufgebaut.  Den  Befehl 
GOTO  sollte  man  als  Modula-Pro- 
grammiorer  schnellstens  vergessen; 
dafür  stehen  die  von  Pascal  gewohn¬ 
ten  Schleifenstrukturen  (FOR...TO... 
DO... END,  REPEAT...UNTIL,  WHI- 
LE...END)  zur  Verfügung,  zusätzlich 
noch  die  LOOP...EXIT...END-Schlei- 
fe,  die  alle  Befehle  zwischen  LOOP 
und  END  so  lange  durchläuft,  bis  die 
bei  EXIT  angegebene  Bedingung 
erfüllt  ist.  Diese  Schleifenstrukturen 
sind  übrigens  ohne  Ausnahme  auch 
im  Commodore  3.5-Basic  des  C  16, 
oder  im  7.0-Basic  des  C  128  vorhan¬ 
den,  ein  sicheres  Zeichen,  daß  sich 
das  Konzept  der  strukturierten  Pro¬ 
grammierung  auch  im  Bereich  der 
Basic-Heimcompuler  immer  mehr 
durchsetzt.  Leider  ist  Modula  noch 
nicht  für  Commodore-Computer  er¬ 
hältlich. 

Die  Krönung:  Ada 

Den  bisherigen  Höhepunkt  bei 
der  Entwicklung  moderner,  modu¬ 
larer  Programmiersprachen  stellt 
ohne  Zweifel  die  Sprache  Ada  dar. 

Die  Sprache  hat  ihren  Namen 
nach  der  Countess  Augasta  Ada  Lo- 
velace,  die  sich  als  erste  Frau  be¬ 
reits  im  vorigen  Jahrhundert  (!)  mit 
Algorithmen  und  Rechenmaschinen 
beschäftigte.  Bekannt  wurde  sie  in 
erster  Lime,  indem  sie  ein  »Rechen 
kalkül«  für  die  von  Charles  Babbage 
entworfene  mechanische  Rechen¬ 
maschine  entwarf.  Dieses  Kalkül 
kann  man  im  weitesten  Sinne  als  den 
ersten  Algorithmus  für  eine  Maschi¬ 
ne  bezeichnen. 

Ada  wurde  erst  in  jüngster  Zeit  im 
Auftrag  des  amerikanischen  Vertei¬ 
digungsministeriums  entwickelt 
und  baul  ebenso  wie  C  und  Modula 
auf  dem  Konzept  von  Pascal  auf.  Die 
Sprache  ist  ebenso  wie  Modula 
streng  modular  und  strukturiert  auf¬ 
gebaut,  geht  aber  von  den  Fähigkei¬ 
ten  weit  über  Modula  hinaus. 

Wie  m  Modula  gehören  praktisch 
alle  Funktionen,  insbesondere  auch 
die  Ein-/Ausgabe-Operationen  nicht 
direkt  zur  Sprache,  sondern  werden 
in  besonderen  Modulen,  den  soge¬ 
nannten  Packages  (Pakete)  bereit- 
gehalten.  Das  hat  den  Vorteil,  daß 
der  Anwender  im  Bedarfsfälle  fast 
alle  Funktionen  selber  neu  schrei¬ 
ben  kann,  wenn  ihm  die  Standard- 
Funktionen  nicht  gefallen.  Alle 
Packages,  ob  selbstgeschrieben 


oder  vom  System  bereitgestellt, 
müssen  ins  Programm,  das  seiner- 
seit  ein  Package  darstellt,  importiert 
werden.  Dies  geschieht  sehr  ein¬ 
fach  durch  Angabe  des  entspre¬ 
chenden  Paket-Namens.  Um  zum 
Beispiel  die  Standard  Routinen  für 
die  Ein-  und  Ausgabe  von  Texten  zu 
importieren,  verwendet  man  die  An¬ 
weisung: 

TEXT _ IO  IS  PACKAGE 

STANDARD _ TEXT _ IO 

Durch  diese  Angabe  werden  die 

im  Modul  STANDARD _ TEXT_IO 

enthaltenen  Funktionen  dem 
Programm-Modul  unter  dem  Na¬ 
men  TEXT_IO  bekanntgemacht. 
Das  Standard-Modul  enthalt  bei¬ 
spielsweise  die  Funktionen  WRITE 
und  READ  zum  Drucken  und  Einle¬ 
sen  von  Daten. 

Durch  die  Anweisung  USE 
TEXT.  IO  werden  dann  bei  Bedarf 
(wenn  WRITE  oder  READ  im  Pro¬ 
gramm  vorkommt)  die  entsprechen¬ 
den  Funktionen  aus  dem 

STAN  DARD _ TEXT_I  O-Modul  (das 

ja  innerhalb  des  Programms  den 
Namen  TEXT _ IO  erhalten  hat)  ent¬ 

nommen  und  ins  Programm  einge¬ 
fügt.  Will  man  aber  an  einer  be¬ 
stimmten  Stelle  nicht  die  Standard¬ 
funktion  verwenden,  sondern  eine 
selbstgeschriebene,  dann  braucht 
man  das  eigene  Modul  nur  mit 

MEIN _ TEXT  IS  PACKAGE 

EIGENE_TEXT _ IO 

anzumolden  und  im  Programm  mit 

USE  MEIN _ TEXT 

auf  die  selbstgeschriebenen  Routi¬ 
nen  umzuschalten.  Dabei  wird  die 
Ada-Fähigkeit  des  »Überladens« 
von  Funktionen  verwendet,  was 
nichts  anderes  bedeutet,  als  daß 
ein-  und  dasselbe  Schlüsselwort 
(oder  Zeichen)  je  nach  Kontext 
grundverschiedene  Funktionen  be¬ 
zeichnet.  Nach  Umschaltung  mittels 
»USE«  heißt  die  Ausgabefunktion  in 
unserem  Beispiel  zwar  immer  noch 
»WRITE«,  es  wird  aber  die  selbstge¬ 
schriebene  Funktion  aufgerufen 
und  nicht  die  Standard-Funktion. 

Natürlich  kann  man  diese  Technik 
auf  alle  möglichen  Bereiche  aus¬ 
dehnen.  Damit  wird  zusammen  mit 
der  Möglichkeit  sich  eigene  Daten¬ 
typen,  wie  in  Pascal  oder  Modula,  zu 
definieren,  ein  sehr  hoher  Grad  an 
Flexibilität  gewährleistet.  Zum  Bei¬ 
spiel  kann  man  sich  bei  Bedarf  ei¬ 
nen  Datentyp  COMPLEX  für  kom¬ 
plexe  Zahlen  definieren  und  die 
Opeialoren  » -t- «, »-«,  »*«  und »/« durch 
Überladen  auch  auf  diesen  neuen 
Datentyp  anwenden. 

Zwei  weitere  Aspekte  von  Ada 
sind  noch  besonders  erwähnens- 
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wert:  Zum  einen  existieren  sehr 
komfortable  Möglichkeiten,  Aus¬ 
nahmesituationen  im  Programm  (so¬ 
genannte  Exceptions)  ohne  Ab¬ 
bruch  unter  Kontrolle  zu  bringen.  In 
der  Regel  dient  das  zum  Abfangen 
von  Fehlerbedingungen,  die  inner¬ 
halb  eines  Programms  auftauchen 
können  (in  etwa  vergleichbar  mit 
»ON  ERROR«  oder  »TRAP*  in  Basic). 
Eine  solche  Fehlerbehandlung  ist 
bei  Compilersprachen  bislang  sehr 
selten,  für  die  Zwecke  des  amerika¬ 
nischen  Verteidigungsministeriums 
aber  natürlich  unabdingbar.  Man 
stelle  sich  nur  vor,  in  kritischen  Si¬ 
tuationen  würden  Radarstationen 
keine  Informationen  mehr  weiterge¬ 
ben  wegen  eines  »DIVISION  BY 
ZERO  ERROR« ... 

Der  zweite  zusätzliche  Aspekt  von 
Ada  ist  die  Fähigkeit,  parallele  Pro¬ 
zesse  automatisch  durchführen  zu 
können  (Multitasking).  Damit  ist  ge¬ 
meint,  daß  bestimmte  Operationen 
gleichzeitig  ablaufen  können  (sofern 
der  Computer  mit  mehreren  Prozes¬ 
soren  ausgestattet  ist,  sonst  ergibt 
sich  natürlich  nur  eine  »Pseudo- 
Gleichzeitigkeit«).  Das  bringt  natür¬ 
lich  eine  unter  Umständen  immense 
Erhöhung  der  Verarbeitungsge¬ 
schwindigkeit,  allerdings  auf  Kosten 
eines  hohen  Hardwareaufwandes. 

Wer  sich  etwas  näher  mit  Ada  be¬ 
schäftigen  will  und  einen  C  64  be¬ 
sitzt,  der  findet  im  Ada-Trainings¬ 
kurs  von  Data  Becker  (siehe  Test  in 
dieser  Ausgabe)  einen  brauchba¬ 
ren  Einstieg. 

Es  gibt  ganz  grob  eingeteilt  zwei 
grundverschiedene  Linien  unter 
den  Programmiersprachen. 

Da  sind  einmal  die  sogenannten 
Anweisungs-Sprachen,  zum  ande¬ 
ren  die  funktionalen  Sprachen.  Zu 
den  Anweisungs-Srachen  gehören 
alle  »klassischen«  Programmier¬ 
sprachen  einschließlich  Basic,  da¬ 
neben  natürlich  Pascal,  Modula, 
Ada  und  C.  Alle  diesen  Sprachen 
sind  von  Ihrer  Struktur  her  mehr 
oder  weniger  stark  an  die  Hard¬ 
ware-Organisation  der  heutigen 
Computer  angelehnt  (Befehl  holen 
—  Befehl  ausführen  —  Programm¬ 
zeiger  auf  nächsten  Befehl  setzen). 
Funktionale  Sprachen  verlangen 
demgegenüber  nicht  die  Ausfüh¬ 
rung  spezieller,  einzelner  Befehle, 
sondern  beschreiben  Strukturen 
und  büden  neue  Strukturen. 

Vertreter  dieser  Sprachen  sind 
zum  Beispiel  Lisp  (eine  listenverar¬ 
beitende  Sprache),  Snobol  (eine 
symbolische  Simulations-Sprache) 
und  eine  Unzahl  kleiner,  außerhalb 
der  Universitäten  völlig  unbekann¬ 
ten  Spezialsprachen. 
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Lisp  ist  sicherlich  der  bekannteste 
Vertreter  dieser  Sprachenklasse. 
Für  den  Laien  besteht  Lisp  in  erster 
Lime  aus  einer  Unzahl  von  öffnen¬ 
den  und  schließenden  Klammern, 
ab  und  zu  findet  sich  dazwischen 
auch  mal  ein  anderes  Zeichen.  Die 
Ursache  dafür  ist  die  funktionale 
Struktur  der  Sprache.  Es  gibt  in  Lisp 
keine  Befehle,  sondern  nur  Funktio¬ 
nen,  die  aus  primitivsten  Grundele¬ 
menten  sehr  komplexe  Strukturen 
aufbauen  können.  Ausgangspunkt 
ist  immer  die  kleinste,  unteilbare 
Lisp-Struktur,  das  Atom.  Ein  Atom 
kann  eigentlich  alles  sein,  was  man 
über  eme  Tastatur  in  einen  Compu 
ter  hineinbekommt.  Mit  (ATOM  AP¬ 
FEL)  wird  ein  »DING«  namens  Apfel 
definiert,  daß  weder  interne  Struk¬ 
tur  noch  Beziehungen  zu  irgendwel¬ 
chen  anderen  Daten  hat.  Diese  Be¬ 
ziehungen  zu  anderen  Daten  wer¬ 
den  erst  im  folgenden  durch  Funk¬ 
tionen  definiert.  Wesentliches  Ele¬ 
ment  von  Lisp  (List  Processing  Lan- 
guage)  ist  die  Fähigkeit,  Listen  zu  bil¬ 
den.  Eine  Liste  ist  eine  geordnete 
Aufzählung  von  Elementen.  Diese 
Elemente  sind  im  einfachsten  Fall 
Atome,  es  kann  sich  dabei  aber 
auch  um  andere  Listen  oder  gar  um 
Funktionen  handeln.  Mit 
(  SETQ  OBST  (APFEL  BIRNE  KIR¬ 
SCHE)) 

wird  eine  Liste  OBST  definiert,  die 
aus  den  Atomen  Apfel,  Birne  und 
Kirsche  besteht  (die  natürlich  vor¬ 
her  als  Atome  vereinbart  worden 
sind). 

Funktionale  Sprachen 

Es  gibt  jetzt  eine  Menge  vordefi- 
nierter  Funktionen,  um  diese  Listen 
weiter  zu  verarbeiten.  Es  können 
einzelne  Elemente  oder  ganze  Li¬ 
sten  zu  neuen  Listen  umgewandelt 
werden,  es  können  Bedingungen 
festgelegt  werden,  unter  denen  das 
geschieht  und  so  fort.  Dabei  können 
sehr  komplexe  Strukturen,  regel¬ 
rechte  logische  Netzwerke,  entste¬ 
hen. 

Dadurch  wird  in  gewisser  Weise 
der  in  erster  Linie  assoziativ  arbei¬ 
tende  Mechanismus  des  menschli¬ 
chen  Denkens  viel  besser  simuliert, 
als  durch  schrittweise  Abarbeitung 
von  Befehlen. 

Lisp  wird  denn  auch  mit  durchaus 
beachtenswerten  Erfolgen  bei 
praktisch  allen  KRkünstliche  Intelli- 
genz-)Projekten  eingesetzt.  Die 
Sprache  liefert  vor  allem  auf  den 
Gebieten  der  symbolischen  Daten¬ 
verarbeitung  (nicht-numerische 
Mathematik),  der  Erkennung  von 
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Mustern  und  dem  logischen  Folgern 
gute  Ergebnisse. 

Für  den  C  64  ist  Lisp  nicht  erhält¬ 
lich,  jedoch  ist  mit  Logo  eine  andere 
Sprache  verfügbar,  die  ebenfalls  Li¬ 
stenverarbeitung  unterstützt. 

Dieser  Aspekt  der  Listenverarbei¬ 
tung  ist  allerdings  bei  Logo  längst 
nicht  so  konsequent  implementiert 
wie  in  Lisp,  aber  dafür  auch  für  den 
Einsteiger  recht  schnell  zu  durch¬ 
schauen.  Bekannt  geworden  ist  Lo¬ 
go  allerdings  in  erster  Linie  durch 
die  »Turtle-Grafik«,  die  schon  zum 
Markenzeichen  dieser  Sprache  ge¬ 
worden  ist, 

Die  Turtle  (Schildkröte)  wird  in 
der  Regel  durch  ein  kleines  Drei¬ 
eck  am  Bildschirm  dargestellt,  das 
mit  Befehlen  wie  FORWARD,  BACK 
LEFT  und  RIGHT  in  alle  Richtungen 
bewegt  werden  kann.  Dabei  hinter¬ 
läßt  die  Schüdkröte  eine  sichtbare 
Linie  auf  dem  Bildschirm  und  kann 
so  zum  bequemen  Zeichnen  auch 
von  komplexen  Grafiken  eingesetzt 
werden. 

Wie  bei  Basic,  so  handelt  es  sich 
auch  bei  Logo  (übrigens  auch  bei 
Lisp)  um  einen  Interpreter,  was  ein 
sehr  bequemes  Vorgehen  beim  Pro¬ 
grammieren  erlaubt.  Alle  Pro¬ 
grammbefehle  können  auch  im  Di¬ 
rektmodus  eingesetzt  werden,  und 
so  kann  man  alle  Routinen  direkt  im 
Dialog  mit  dem  Computer  auste¬ 
sten,  ohne  das  gesamte  Programm 
wie  bei  einem  Compiler  nach  jeder 
Änderung  ständig  wieder  neu  über¬ 
setzen  zu  müssen. 

Die  einfache  Handhabung  der 
Grafik  ist  sicherlich  einer  der 
Hauptgründe,  die  speziell  beim  C  64 
für  die  Verwendung  von  Logo  spre¬ 
chen.  Wenn  Sie  sich  für  Logo  inter¬ 
essieren,  dürfen  wir  Ihnen  unseren 
Testbericht  über  das  Commodore- 
Logo  in  dieser  Ausgabe  empfehlen. 

Natürlich  ist  es  mit  den  hier  be¬ 
handelten  Sprachen  noch  nicht  ge¬ 
tan.  Es  existiert  eine  Unmenge  wei¬ 
terer  Programmiersprachen,  mit 
deren  Behandlung  man  ganze  Bü¬ 
cher  füllen  könnte.  Dieser  Bericht 
sollte  Ihnen  aber  einen  allgemeinen 
Überblick  gegeben  haben,  wo's  bei 
den  Programmiersprachen  lang 
geht. 

Speziell  für  den  C  64  wird  es  si¬ 
cher  in  naher  Zukunft  eine  Reihe 
weiterer  Sprachen  geben.  Interes¬ 
sant  wird  die  Angelegenheit  natür¬ 
lich  auch  im  Hinblick  auf  den  neuen 
Commodore  128  PC,  der  ja  die  gan¬ 
ze  Welt  der  Programmiersprachen 
unter  CP/M  zugänglich  macht.  Ganz 
sicher  werden  wir  das  Thema  »Pro¬ 
grammiersprachen«  unter  diesem 
Aspekt  nochmals  aufgreifen,  (ev) 


Ausgabe  5/Mai  1935 


Spiele-Tips 


C  64 


Infcxom-Geheimnisse  gelüftet? 


Bekannt  dürften  sie  mittlerweile  sein, 
die  Adventurespiele  von  Infocom. 
Gelöst  sind  sie  noch  lange  nicht. 

Ein  Grund,  Ihnen  Tips  dazu  zu  geben. 


Die  Infocom-Adventures  sind 
wohl  die  besten  Text-Abenteu¬ 
erspiele,  die  es  gibt.  Sie  verste¬ 
hen  in  der  Regel  einen  Wortschatz 
von  über  800  Wörtern,  akzeptieren 
ganze  Sätze  und  lesen  sich  wie  span¬ 
nende  Romane  —  kein  Wunder, 
denn  Infocom  läßt  auch  Romanauto¬ 
ren  für  sich  arbeiten.  Was  für  die  ei¬ 
nen  der  Unterschied  zwischen  Bil¬ 
derbuch  und  ausgereiftem  Roman, 
ist  für  die  Adventurefans  die  Unter¬ 
scheidung  zwischen  Grafik-  und 
Textabenteuer.  Die  Textadventures 
verbrauchen  keinen  Speicherplatz 
für  Crafiken  und  bieten  deswegen 
viel  mehr  andere  Möglichkeiten. 
Dieser  für  die  anderen  Dinge  freie 
Speicherplatz  wird  meist  ausge 
nutzt,  um  einen  enormen  Umfang  an 
Räumen,  Gegenständen  und  Aufga¬ 
ben  unterzubringen.  Und  da  die 
Infocom-Adventures  genau  dies  tun, 
sind  sie  sehr  schwer  lösbar.  Daher 
unsere  Tips. 

Tips  für  alle  Infocoms 

Als  erstes  erhalten  Sie  ein  paar  all¬ 
gemeine  Tips,  die  Sie  eigentlich  für 
alle  Infocom-Adventures  benutzen 
können. 

Der  Parser  ist,  einfach  gesehen, 
das  Stück  des  Programms,  das  die 
Eingabe  der  Sprache  steuert.  Der 
Infocom-Parser  ist  zwar  einer  der 
besten  seiner  Art;  aber  was  immer 
auch  so  toll  daran  sein  mag  —  es  ist 
zu  empfehlen,  den  Infocom-Parser 
einfach  wie  bei  einem  Zwei-Wort- 
Ad venture  anzusehen.  Das  spart 
eine  Menge  Zeit.  Mit  dem  Wort¬ 
schatz  herumprobieren  sollten  Sie 
trotzdem;  In  jedem  Infocom-Aben- 
teuer  gibt  es  Worte,  die  die  anderen 
Adventures  aus  diesem  Software¬ 
haus  nicht  haben,  und  die  manch¬ 
mal  zum  Ziel  führen  können. 

Und  noch  etwas:  Denken  Sie  nie 
daran,  was  Sie  machen  würden, 
wenn  Sie  tatsächlich  so  ein  Abenteu¬ 
er  durchleben  müßten.  Überlegen 
Sie  sich,  was  der  Autor  an  Gemein¬ 
heiten  eingebaut  haben  könnte  — 
das  führt  Sie  viel  eher  zum  Ziel. 


Beispiel  einer  Illu¬ 
stration  zum 
Infocom-Adventure 
»Susped«.  In  diesem 
Kriminal-Adventure 
gilt  ausnahmsweise 
nicht  der  Spruch  »Der 
Mörder  ist  immer  der 
Gärtner«. 


Außerdem  gibt  es  sehr  selten  zwei 
Methoden,  ein  Problem  zu  lösen. 
Speichern  Sie  also  immer  Ihr  Spiel 
ab,  bevor  Sie  mit  etwas  herumexpe 
rimentieren.  Beispiel;  Wenn  Sie  ei¬ 
nen  Gegenstand  an  einem  Ort 
falsch  benutzen  und  später  einen 
Ort  erreichen,  an  dem  Sie  den  Ge¬ 
genstand  (oder  Zauberspruch)  un¬ 
bedingt  benötigen,  müssen  Sie  den 
abgespeicherten  Spielstand  wieder 
laden  (weil  der  Gegenstand  oder 
Zauberspruch  abgenutzt  oder  ver¬ 
braucht  ist).  Es  sei  denn,  Sic  wollen 
von  vorn  beginnen. 

Gegenstände: 

Untersuchen  Sie  alle  Gegenstän¬ 
de  sehr  genau.  Viele  Dinge  können 
manipuliert  und  verändert  werden, 
andere  haben  ein  »Innenleben«,  das 
heißt  sie  können  Flüssigkeiten  oder 
andere  Gegenstände  beinhalten. 
Ein  Eigenleben  der  Objekte  ist  auch 
nie  auszuschließen;  achten  Sie  also 
auf  alles,  was  eigenständig  sein 
könnte.  Das  Schwert  aus  der  Zork- 
Serie  leuchtet  beispielsweise  blau, 
wenn  Gefahr  nahe  ist,  und  rot,  wenn 
der  Träger  des  Schwertes  verärgert 
ist.  Legen  Sie  die  Gegenstände  im¬ 
mer  ab.  wenn  Sie  sie  einmal  sinnvoll 
benutzt  haben.  In  Infocom-Adventu¬ 
res  werden  sie  meistens  kein  zwei¬ 
tes  Mal  benötigt.  Wenn  Sie  einen 
Gegenstand  mehrmals  untersu¬ 
chen,  und  keine  nähere  Beschrei¬ 
bung  folgt,  können  Sie  den  Gegen¬ 
stand  ruhig  als  unwichtig  betrachten 
und  vergessen.  Letzteres  gilt  für  alle 
Infocom-Adventures  außer  »Hitchhi¬ 
kers  Guide  to  the  Galaxy«,  das  ex¬ 
trem  von  der  Firmennorm  abweicht. 


Personen: 

Um  zu  jemandem  zu  sprechen, 
müssen  Sie  als  erstes  den  Namen 
der  Person  eingeben.  Um  beispiels¬ 
weise  den  Dieb  zu  fragen,  ob  er  Ih¬ 
nen  das  Stilett  geben  würde,  müs¬ 
sen  Sie  tippen:»Thief,  give  me  the  sti- 
letto«. 

Fragen  Sie  die  Leute  nach  Gegen¬ 
ständen,  anderen  Personen  und 
speziellen  Ereignissen.  Untersu¬ 
chen  Sie  auch  die  Personen  genau 
(mit  EXAMINE). 

Soweit  zu  allgemeinen  Tips,  Zu 
den  für  die  einzelnen  Abenteuer  an¬ 
gegebenen  Hinweisen  ist  noch  zu 
sagen,  daß  wir  hier  nur  kleine  Denk 
stützen  geben  wollen.  Wer  mehr  er¬ 
fahren  will,  kann  sich  die  in  Geheim¬ 
tinte  gedruckten  »Hint  Books«  von  In¬ 
focom  selbst  bestellen.  Wir  für  unse¬ 
ren  Teil  arbeiteten  völlig  ohne  Lö¬ 
sungsbücher,  befragten  dafür  aber 
viele  Abenteurer,  aus  deren  Erfah¬ 
rungen  sich  die  folgenden  Tips  zu 
den  speziellen  Infocom-Adventures 
ergeben. 

ZORKI 

Zork  ist  ein  Spiel,  bei  dem.  es  dar¬ 
um  geht,  zwanzig  Schätze  zu  finden 
und  sie  in  einer  Schatzkiste  abzule¬ 
gen.  Ein  Dieb  ist  das  Haupthindernis 
dabei,  weil  er  versucht,  Sie  auszu¬ 
rauben  oder  umzubringen.  Er  kann 
zwar  getötet  werden,  aber  nur,  wenn 
Sie  stark  genug  sind  (was  von  der 
Anzahl  der  Schätze  m  der  Schatzki¬ 
ste  abhängt)  und  wenn  Sie  die  richti¬ 
ge  Waffe  besitzen,  Diese  Waffe  ist 
scharf,  aber  nicht  das  Schwert!  So¬ 
bald  Sie  einen  Schatz  finden,  sollten 
Sie  Richtung  Haus  gehen. 
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ZORK  II 

Hier  gibt  es  zehn  Schätze,  aber 
das  Hauptziel  ist  es,  den  Zauberer 
von  »Frobozz«  zu  vernichten,  Es  ist 
sehr  wichtig,  herauszufinden,  was 
im  Irrgarten  der  seltsam  verwinkel¬ 
ten  Räume  vor  sich  geht.  Außerdem 
sollten  Sie  den  Zweck  des  Korbs  mit 
dem  Wäschebeutel  kennen. 

ZORK  III 

Sie  können  in  diesem  Spiel  nur  sie¬ 
ben  Punkte  bekommen.  Und  wenn 
Sie  die  alle  haben,  bedeutet  das 
noch  lange  nicht,  daß  Sie  gewonnen 
haben.  Die  Punkteverteilung  ist  auf 
eine  »potentielle«  Aufgabenlösung 
ausgelegt.  Das  bedeutet,  daß  Sie  ei¬ 
nen  Punkt  schon  bekommen,  wenn 
das  Programm  denkt,  Sie  wären  na¬ 
he  daran,  ein  Problem  zu  lösen.  Phi¬ 
losophie  spielt  eme  große  Rolle  in 
Zork  III.  Sie  sollten  sich  sehr  höflich 
und  mildtätig  benehmen  —  aber 
trotzdem  mutig  sein. 

INFIDEL 

Sie  müssen  eine  ägyptische  Pyra¬ 
mide  erforschen,  in  der  Hierogly¬ 
phen  an  die  Wand  geschrieben 
sind.  Lernen  Sie  die  Hieroglyphen 
gut,  denn  in  ihnen  steht  die  Lösung 
aller  Probleme.  Entziffert  ergeben 
sie  übrigens  reines  Englisch  Tip: 
Viele  Objekte  haben  ein  einzelnes 
Hieroglyphen-Zeichen,  das  für  sie 
steht.  Nehmen  Sie  in  der  Pyramide 
alles  mit,  was  Sie  finden  können,  be¬ 
sonders  den  Mast.  Übrigens:  Die 
Pyramide  steht  fast  neben  dem 
Camp. 

STARCROSS 

In  diesem  Spiel  wurde  viel  Wert 
auf  die  Manipulation  von  Gegen¬ 
ständen  gelegt.  Viele  Gegenstände 
sind  farbig,  um  die  Unterscheidung 
für  den  Spieler  einfacher  zu  ma¬ 
chen.  Karten  zu  zeichnen  ist  hier  we¬ 
sentlich  einfacher  als  bei  den  Zorks. 
Die  farbigen  Stäbe  dienen  als 
»Schätze«  und  müssen  in  die  richti¬ 
gen  Slots  gesteckt  werden.  Ein  biß¬ 
chen  Wissen  aus  der  Chemie 
(Atomhülle,  Elektronen  etc.)  wird  Ih¬ 
nen  helfen.  Bevor  Sie  das  Schiff  ver¬ 
lassen,  sollten  Sie  die  vier  farbigen 
»docking  ports«  des  Alien-Raum¬ 
schiffs  genau  untersuchen.  Geben 
Sie  Ihren  Raumanzug  dem  Chef,  und 
folgen  Sie  ihm  durch  den  »maze«  zu 
einem  anderen  docking  ports. 
PLANETFALL 

Dieses  Spiel  basiert  mehr  auf 
Komplexität  als  auf  schwierigen  Pro¬ 
blemen.  Floyd  muß  sterben,  bevor 
Sie  gewinnen  können.  Betrachten 
Sie  genau  das  Loch  in  der  Wand  und 
das  verdächtige  Gemälde,  das  in  ei¬ 
nem  der  Büros  hängt. 

SUSPENDED 

Sie  kontrollieren  sechs  Roboter, 
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die  Ihnen  Informationen  senden.  Je¬ 
der  davon  hat  seine  eigenen  speziel¬ 
len  Fähigkeiten,  die,  richtig  verstan¬ 
den  und  angewandt,  des  Rätsels  Lö¬ 
sung  sein  können.  Iris  kann  zum  Bei¬ 
spiel  ein  TV-Bild  von  dem,  was  sie 
sieht,  senden.  Konzentrieren  Sie 
sich  also  ständig  auf  Iris.  Die  Farben 
der  Gegenstände  helfen  Ihnen,  her¬ 
auszufinden  wie  man  sie  benutzt. 
Steuern  Sie  die  Roboter  so,  daß  die 
Menschen  in  unvermeidbare  Fallen 
laufen. 

ENCHANTER 

Enchanter  läßt  sich  nur  mit  Hilfe 
von  Zaubersprüchen  lösen.  Die 
»ewige  Treppe«  muß  zerstört  wer¬ 
den.  Sie  benötigen  auch  unbedingt 
die  Hilfe  des  Abenteurers,  der  Ih¬ 
nen  begegnet.  An  einer  anderen 
Stelle  sollten  Sie  Bleistift  und  Radier¬ 
gummi  benutzen.  Genaueres  zu  En¬ 
chanter  finden  Sie  im  64 'er,  Ausgabe 
3/85. 

SORCERER 

Noch  mehr  Magie  —  und  das 
schwerste  aller  Infocom-Adventu- 
res.  »Beleuchten«  Sie  sich  selbst 
(Zauberspruch  »Frotz«),  und  gehen 
Sie  dann  los,  um  Belboz  zu  suchen. 
Benützen  Sie  den  Infotater,  um  die 
Schatzkiste  zu  öffnen.  Manche  Zau¬ 
bersprüche  müssen  zweimal  ge¬ 
lernt  werden,  um  die  gewünschten 
Resultate  zu  erzielen.  Speichern 
Sie  nach  jedem  gelösten  Problem 
ab,  denn  Sorcerer  ist  sehr  schwer. 
Sie  benötigen  unbedingt  die  orange 
Flüssigkeit,  bevor  Sie  den  »Yonk«- 
Spell  an  einer  bestimmten  Stelle  be¬ 
nutzen.  Heben  Sie  sich  den  »Vezza«- 
Spell  bis  ganz  zum  Schluß  auf. 
DEADLINE  und  WITNESS 

In  beiden  Spielen  wird  kriminali¬ 
stischer  Spürsinn  verlangt.  Hauptar¬ 
beit  ist  es.  die  Leute  über  andere 
Personen  und  bestimmte  Situatio¬ 
nen  auszufragen.  Folgen  Sie  den 
Leuten  unauffällig. 

In  Deadline  müssen  Sie  »George« 
einen  bestimmten  Gegenstand  zei¬ 
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gen,  und  zwar  vor  der  Testaments¬ 
verlesung.  Es  gibt  außerdem  einen 
Geheimgang  und  einen  versteckten 
Safe. 

In  Witness  sollten  Sie  sich  im  Ar¬ 
beitszimmer  aufhalten,  wenn  »Moni- 
ca«  eintritt.  Täter  ist  (wie  immer)  der¬ 
jenige,  der  am  wenigsten  danach 
aussieht. 

HITCHHIKER'S  GUIDE  TO  THE  GALAXY 

Dieses  Spiel  weicht  stark  von  der 
»Infocom-Norm«  ab,  weil  es  sehr  ge¬ 
mein  und  heimtückisch  gemacht 
wurde. 

Legen  Sie  sich  vor  dem  Bulldozer 
in  den  Dreck  und  warten  Sie.  Neh¬ 
men  Sie  nicht  das  Handtuch,  das  Ih¬ 
nen  angeboten  wird.  Später  im  Ad- 
venture  sollten  Sie  Ihre  Sinne  genau 
nachzählen;  benutzen  Sie  den,  der 
nicht  auf  dem  Bildschirm  steht. 
Manchmal  werden  Sie  vom  Pro¬ 
gramm  angelogen.  Versuchen  Sie 
also  alles  mehrmals. 

SUSPECT 

Dieses  Spiel  läuft  ähnlich  wie 
Deadline  und  Witness  ab.  Aller¬ 
dings  sind  Sie  diesmal  der  Mordver¬ 
dächtige  und  müssen  sich  innerhalb 
ein  paar  Stunden  vom  Verdacht  be¬ 
freien.  Achten  Sie  sehr  genau  auf 
Gespräche  anderer  Leute  (auch 
Wortfetzen  fügen  sich  mitunter  zu 
wichtigen  Indizien  zusammen).  Fra¬ 
gen  Sie  jeden  über  alles  aus,  was  Ih¬ 
nen  einfällt.  Besonders  viel  erzählt 
der  Barkeeper,  dem  Sie  sich  als  er¬ 
stes  zuwenden  sollten. 

CUTTHROATS 

Dieses  Adventure  ist  eines  der 
neuesten  aus  der  Infocom-Reihe. 
Daher  läßt  sich  hierzu  noch  nicht 
viel  sagen.  Wenn  Sie  emen  Tip  dazu 
haben  —  immer  her  damit! 

Die  oben  genannten  Hinweise  zu 
den  Adventures  sind,  wie  gesagt 
nur  minimale  Denkanstöße  für  den 
Abenteuerspieler.  Wer  mehr  wis¬ 
sen  will,  sollte  sich  die  »Hint  Book¬ 
lets«  von  Infocom  aus  USA  bestellen. 
Die  Lieferzeiten  sind  allerdings  sehr 
lang.  (M.  Kohlen/rg) 
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Listing  des  Monats 


Trickfilm  mit  dem  C  64 


In  die  vierte  Dimension,  die  bewegte 
dreidimensionale  Grafik,  dringen  Sie 
mit  diesem  Programm  vor. 

Sie  können  so  mit  einfachsten  Mitteln 
Trickfilme  mit  verblüffenden 
Eigenschaften  erstellen. 


Auch  dreidimensionale  Körper  können  dargestellt  werden 


s=r 

m//// 

■ 

Vier  Phasen  der  Bewegung 


Die  Tdee  zu  diesem  Programm 
kam  uns,  als  wir  zum  zweiten 
Mal  die  Sendung  »Das  Bild,  das 
aus  dem  Rechner  kam«  sahen. 

Die  erste  noch  in  Comal  geschrie¬ 
bene  Version  berechnete  jeweils 
ein  Bild  und  zeichnete  es  sofort.  Das 
Ergebnis:  nur  alle  7  Sekunden  ein 
Bild!  Auch  als  erst  alle  Linien  be¬ 
rechnet  und  dann  gezeichnet  wur¬ 
den,  konnte  von  einem  flüssigen  Be¬ 
wegungsablauf  keine  Rede  sein.  Bei 
der  jetztigen  Version  wird  der  Tfeil 
des  Zeichnens  von  einer  Maschi¬ 
nencode-Routine  übernommen,  die 
eine  Geschwindigkeit  von  3  bis  10 
Bilder/s  erlaubt.  Die  Unterschiede 
gegenüber  anderen  Trickfilmgene¬ 
ratoren: 

—  Es  muß  nur  ein  Bild  eingegeben 
werden,  alle  anderen  Bilder  be¬ 
rechnet  der  Computer  aus  diesem 
Büd. 

—  Auch  komplizierte  Bewegungs¬ 
abläufe  können  mühelos  erzeugt 
werden  (zum  Beispiel,  um  einen  Kör¬ 
per  um  die  Z-  und  X-Achse  zu  dre¬ 
hen,  dabei  heranzuholen  und  nach 
links  zu  bewegen,  bis  er  den  Bild¬ 
schirm  verläßt,  braucht  man  nur  ei¬ 
ne  DATA-Zeile!). 

Es  können  sein  viele  (bis  zu  255) 
und  große  Bilder  gespeichert  wer¬ 
den,  da  nur  die  Linienkoordinaten 
gespeichert  werden. 

-  Es  werden  keine  Basic-Erweite- 
rungen  benötigt. 

(Dirk  und  Armin  Biernaczyk/rg) 


Lebenslauf 

Wir  erblickten  am  14.4.1968  das 
Licht  der  Welt.  Und  nicht  nur  das, 
sondern  jeder  noch  ein  anderes 
Geschöpf:  wir  waren  Zwillinge. 
Nachdem  wir  sechs  Jahre  zusam¬ 
men  mehr  oder  weniger  ruhig  ver¬ 
bracht  hatten,  wurden  wir  1974  in 
die  Grundschule  West  einge- 
schult.  Dort  überstanden  wir  die 
ersten  4  Jahre  unseres  Schulle¬ 
bens  ohne  Komplikationen.  1978 
wechselten  wir  aufs  Märkische 
Gymnasium,  was  keine  große  Um¬ 
stellungbedeutete,  denn  auch  hier 
reichte  das  Zeugnis  immer  aus,  um 
die  Geldbeutel  der  Verwandten  zu 
öffnen.  Meinen  ersten  Kontakt  mit 
Computern  hatte  ich  (Dirk)  in  der 
Schule  in  der  10.  Klasse  mit  Logo, 
was  meinem  Bruder  allerdings 


aufgrund  seiner  Wahl  für  Latein  in 
der  Klasse  9  nicht  möglich  war. 
Kurze  Zeit  darauf  sammelten  wir 
zusammen  in  der  Volkshochschule 
Bochum  unsere  ersten  Basic- 
Kenntnisse.  Fasziniert  von  der 
Computerei  kauften  wir  uns  Ende 
1983  einen  C  64  mit  Diskettenlauf¬ 
werk.  Da  wir  nach  Abschluß  der 
10.  Klasse  von  der  Schule  immer 
noch  nicht  die  Nase  voll  hatten, 
machten  wir  weiter  und  besuchen 
heute  die  11,  Klasse  und  versuchen 
dort  im  Informatikunterricht,  mitt¬ 
lerweile  zusammen  und  in  Pascal, 
den  Wurm  im  Apfel  II  zu  dressie¬ 
ren.  Zu  Hause  schlagen  wir  uns  lie¬ 
ber  mit  Basic,  Assembler  und  ein 
wenig  Comal  herum.  Das  Ergebnis 
unserer  Programmierwut  ist  die¬ 
ses  Programm. 

(Dirk  und  Armin  Biemaczyk) 
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Lebenslauf 

Ich  wurde  am  02.10.26  in  Ahlen 
(Westfalen)  geboren  und  lebe 
seit  1951  in  Hamm.  Seit  dem 
01.04.43  bin  ich  in  der  Finanzver¬ 
waltung  und  dort  seit  1955  als  Be¬ 
triebsprüfer  tätig. 

Bereits  als  Kind  interessierte 
ich  mich  sehr  für  Naturwissen¬ 
schaften  und  Technik.  Ich  baute 
mir  selbst  ein  Fernrohr,  um  die 
Sterne  beobachten  zu  können. 
Ende  der  60er  Jahre  begann  ich 
mit  dem  Basteln  in  der  Mikro¬ 
elektronik.  Es  entstand  eine  Digi¬ 
taluhr  mit  Kalenderfunktion.  Die¬ 
se  stellte  sich  automatisch  nach 
dem  Zeitzeichen  des  WDR.  Mein 
erster  »Computer«  war  der  pro¬ 
grammierbare  Taschenrechner 
Casio  FX  501  mit  112  (!)  Programm¬ 
schritten.  Es  folgte  der  Sharp  CP 
1211  und  dann  der  VC  20.  Meinen 
C  64  besitze  ich  seit  etwa  einem 
Jahr.  Von  Anfang  an  wurden  die 
Computer  bei  den  Betriebsprü¬ 
fungen  und  hier  insbesondere 
bei  den  Prüfungsvorbereitungen 
und  den  Berichtsabfassungen 
eingesetzt.  Seit  einiger  Zeit  bin 
ich  Mitglied  des  Arbeitskreises 
EDV  bei  der  Oberfinanzdirektion 
Münster  und  für  die  Einführung 
der  Datenverarbeitung  im  Prüf¬ 
dienst  tätig. 

Die  ersten  Steuerberechnun¬ 
gen  nahm  ich  noch  mit  dem  Ta¬ 
schenrechner  vor.  Es  folgten 
dann  Programme  für  den  VC  20 
und  nun  für  den  C  64.  Inzwischen 
habe  ich  kaum  noch  Zeit,  private 
Programme  zu  entwickeln. 

(Horst  Hinkelmann) 


Weißt  Du  wieviel  Sternlein  stehen ... 

Der  C  64  als  elektronische  Sternenkarte  bringt  Klarheit  ins  Dunkel  der  Nacht. 
Das  Programm  zeigt  Ihnen,  wo  Planeten  und  Sternbilder  am  Himmel  stehen. 


Das  Programm  entstand  aus 
dem  Bedürfnis,  den  Standort 
von  Sternen,  Sternbildern  und 
Planeten  zu  ermitteln.  Vor  allem  die 
Planeten  lassen  sich  so  ohne  weite¬ 
res  mit  dem  bloßen  Auge,  nicht  er¬ 
kennen.  Man  kann  sie  nur  identifi¬ 
zieren,  wenn  man  genaue  Informa¬ 
tionen  über  ihren  jeweiligen  Stand¬ 
ort  hat.  Deshalb  wurde  die  Berech¬ 
nung  der  Planetenbahnen,  der 
Bahn  der  Sonne  und  der  des  Mon¬ 
des  in  das  Programm  aufgenom¬ 
men.  Das  Programm  erstellt  eine 
Sternenkarte  für  einen  eingegebe¬ 
nen  Standort  zum  gewünschten  Be- 
oba  chtungszeitpunkt . 

Die  Sternenkarte  enthält  die  hell¬ 
sten  und  bekanntesten  Fixsterne  be¬ 
ziehungsweise  Sternbilder  des 
nördlichen  Sternenhimmels. 

Sehr  interessant  ist  es,  neben  der 
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Ausgabe  der  Sternenkarte  für  eige¬ 
ne  Beobachtungen,  sich  die  Ster¬ 
nenkarte  für  jeden  Punkt  der  Erde 
zeichnen  zu  lassen. 

So  kann  man  sich  zum  Beispiel  in 
Gedanken  auf  den  Nordpol  verset¬ 
zen.  Der  Polarstem  (Polaris)  steht  im 
Zenit,  also  genau  über  dem  Beob¬ 
achter.  Gibt  man  als  Beobachtungs¬ 
zeitpunkt  den  21.  März  (Frühlingsan¬ 
fang  für  die  Nordhalbkugel)  ein, 
kann  man  feststellen,  daß  die  Sonne 
den  ganzen  Tag  über  scheint. 

Am  Nordpol  hat  der  Tag  begon¬ 
nen.  Die  Sonne  scheint  nun  ein  hal¬ 
bes  Jahr  ohne  Unterbrechung.  Erst 
zum  Herbstanfang  geht  sie  wieder 
unter.  Es  ist  dann  für  ein  halbes  Jahr 
Nacht.  Auch  die  Verhältnisse  am 
Äquator  (Breite  0°)  sind  sehr  interes¬ 
sant. 

(H.  Hinkelmann/hm) 
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Check¬ 
summer  64 

Der  Checksummer  64  überprüft  jede 
Basic-Zeile  direkt  nach  der  Eingabe 
und  erspart  deshalb  eine  aufwendige 
Fehlersuche. 

Der  Checksummer  64  ist  ein  kleines  Maschinenprogramm, 
das  Sie  sofort  unterrichtet,  ob  Sie  die  jeweilige  Programmzeile 
korrekt  eingegeben  haben. 

So  gehen  Sie  vor: 

1.  Programm  abtippen  und  speichern. 

2.  starten  mit  RUN 

3.  nach  kurzer  Zeit  sehen  Sie  am  Bildschirm: 

Checksummer  64,  Checksummer  aktiviert,  ausschalten  mit 
Poke  1,55,  anschalten  mitPoke  1,53,  Ready. 

4.  Anschalten  des  Checksummer  64  mit  Poke  1,53. 

5.  Test:  Geben  Sie  in  einer  freien  Zeile  ein:  »1  REM«  und 
drücken  die  Return-Taste.  Am  Bildschirm  oben  links  sollten  Sie 
die  Prüfsumme  <144>  sehen. 

6.  Geben  Sie  ein  Listing  aus  unserem  Heft  ein.  Nach  jeder  Zeile 
wird  die  Zahl,  die  im  Listing  in  Klammern  <  >  steht,  in  den 
Bildschirm  eingeblendet.  Stimmen  die  Zahlen  nicht  überein,  so 
liegt  vermutlich  ein  Eingabefehler  vor.  Die  Zahl  in  den  Klam¬ 
mern  und  auch  die  Klammern  selbst  dürfen  beim  Abtippen 
nicht  mit  eingegeben  werden! 

7.  Achten  Sie  bitte  darauf,  Zahlen  und  Zeichen  nicht  zu  ver¬ 
tauschen.  So  ergibt  zum  Beispiel  die  Zahl  210  in  einer 
Basic-Zeile  die  gleiche  Prüfsumme  wie  201. 

8.  Unsere  Basic-Listings  enthalten  keine  Grafikzeichen  mehr. 
Diese  werden  ersetzt  durch  Klartext  und  stehen  zwischen  ge¬ 
schweiften  Klammern.  Deshalb  sind  weder  die  Klammern  noch 
was  dazwischen  steht,  abzutippen,  sondern  die  in  der  Tabelle 


aufgeführten  Tasten  zu  drücken.  Auf  Ihrem  Bildschirm  erhalten 
Sie  dann  wieder  die  entsprechenden  Grafikzeichen. 

Eine  ausführliche  Beschreibung  finden  Sie  in  den  Ausgaben  1 
bis  4/85.  Ebenso  den  Checksummer  für  den  VC  20. 


10  REM  ******************************* 

<175> 

20  REM  * 

* 

<247> 

30  REM  * 

CHECKSUMMER  64  * 

<  162> 

33  REM  * 

* 

<004> 

36  REM  * 

(VERSION  2.0)  «■  * 

<014> 

40  REM  * 

H  * 

<011> 

50  REM  * 

64 'ER  * 

<061  > 

60  REM  * 

* 

<031  > 

70  REM  * 

COMMODORE  64  * 

<056> 

B0  REM  * 

* 

<051  > 

90  REM  ******************************* 

<255> 

100 

PRINT" <CLR, 1 3SPACE , RVSON  JCHECKSUMMER  6 

4  CRVOFF}" 

<025> 

110 

PRINT 

<007  > 

121 

SA=B20: FOR  I=SA  TG  SA+6: READ  A: POKE  I, 

A: NEXT  I 

<073> 

122 

DATA 

133,75,134,76,76,171,163 

<  179> 

130 

POKE 

88 ,0: POKE  87,172:P0KE  70,0:POKE  7 

1,172s POKE  780,0: POKE  7B1,160:SYS  SA 

<244> 

140 

POKE 

88,0: POKE  87,0:POKE  70,0:POKE  71, 

0: POKE  780,0; POKE  78 1,224: SYS  SA 

<039> 

150 

POKE 

1,53: POKE  42287 , 76: POKE  42270,228 

<001  > 

160 

FOR 

=58464  TO  58554: READ  A:POKE  I,AlN 

EXT 

<100> 

170 

PR I NT “ C4D0WN , 7SP ACE  JCHECKSUMMER  AKT I V I 

ERT. 

<247  > 

200 

PRINT" T2D0WN) AUSSCHALTEN  :  POKE 1,55" 

<050> 

210 

PRINT " <DOWN  > ANSCHALTEN I2SPACE  > :  POKE 1 , 

53": NEW 

<  171  > 

320 

DATA 

160,2,167,0,133,2,177,95 

<  103> 

330 

DATA 

240,15,201,32,208,3,200,208 

<239> 

340 

DATA 

245,24,101,2,133,2,76,110 

<  153> 

350 

DATA 

228,192,4,48,241,198,214,165 

<070> 

360 

DATA 

214,72,162,3,167,32,157,1 

<171  > 

370 

DATA 

4,189,183,228,32,210,255,202 

<076> 

380 

DATA 

16,242,166,2,167,0,32,205 

<206> 

370 

DATA 

189,167,62,32,210,255,104,133 

<168> 

400 

DATA 

214,32,108,229,167,141,32,210 

<  168> 

410 

DATA 

255,76,128,164,72,72,32,201 

<073> 

420 

DATA 

255,170,104,144,1,138,96,7 

<05 1> 

430 

DATA 

60,18,17 

<195> 

6  G4 

'er 

Der  Checksummer  für  den  C  64 

CTRL  steht  für  Control-Taste,  so  bedeutet  [CTRL-A], 

(WHITE! 

Control-Taste  8  2 

daß  Sie  die  Control-Taste  und  die  Taste  >A«  drücken 

(RED] 

Control-Taste  8  3 

müssen.  Im  folgenden  steht: 

[CYAN] 

Control-Taste  8  4 

(DOWN] 

Taste  neben  rechtem  Shift,  Cursor  unten 

(PURPLE] 

Control -Taste  8  5 

|UP] 

Shift-Taste  8  Taste  neben  rechtem  Shift.  Cursor  hoch  (GREEN] 

Control-Taste  8  6 

(CLEAR; 

Shift-Taste  &  2.  Taste  ganz  rechts  oben 

(BLUE] 

Control-Taste  8  7 

(INST! 

Shift-Taste  8  Taste  ganz  rechts  oben 

(YELLOW] 

Control-Taste  8  9 

(HOME) 

2.  Taste  von  ganz  rechts  oben 

(RVSON! 

Control-Taste  8  8 

[DELJ 

Taste  ganz  rechts  oben 

(RVOFF) 

Control-Taste  8  0 

(RIGHTI 

Taste  ganz  rechts  unten 

(ORANGE. 

Commodore-Taste  8  1 

(LEFTJ 

Shift-Taste  8  Taste  unten  rechts 

BROWN] 

Commodore-Taste  8  2 

(SPACE! 

Leertaste 

(LIG.RED) 

Commodore-Taste  8  3 

[Fl] 

grauer  Tastenblock  rechts 

(GREY  1 1 

Commodore-Taste  8  4 

(F3) 

grauer  Tastenblock  rechts 

(GREY  2] 

Commodore-Taste  8  5 

(F5) 

grauer  Tastenblock  rechts 

(LIG.GREEN) 

Commodore-Taste  8  6 

[F7J 

grauer  Tastenblock  rechts 

ILIG.BLUE] 

Commodore-Taste  8  7 

[F2J 

grauer  Tastenblock  rechts  8  Shift 

(GREY  3] 

Commodore-Taste  8  8 

[F4] 

grauer  Tastenblock  rechts  8  Shift 

Wenn  Sie  sich  erst  einmal  an  die  in  Klartext  geschriebenen  Steuerzei- 

[F6J 

grauer  Tastenblock  rechts  8  Shift 

chen  gewöhnt  haben,  werden  Sie  den  Vorteil  dieser  Schreibweise  er- 

(F8) 

grauer  Tastenblock  rechts  8  Shift 

kennen  Der  zu  dem  jeweiligen  Steuerzeichen  gehörende  Klartext  ist 

(RETURN! 

Shift-Taste  8  Return 

so  verfaßt,  daß  Sie  leicht  die  Taste  beziehungsweise  die  Tastenkombi- 

(BLACK] 

Control-Taste  8  1 

nation  linden,  die  Sie  drücken  müssen. 

Die  Steuerbefehle  im  Klartext 

Hinweis:  [13  SPACE]  bedeutet  13mal  die  Leertaste  drücken 
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MSE-Abtippen 
sicher  und 
leicht  gemacht 

Ähnlich  wie  der  »Checksummer«  ist 
auch  der  MSE  ein  Hilfsmittel  bei  der 
Eingabe  von  Listings,  diesmal  jedoch 
bei  reinen  Maschinensprache-Pro¬ 
grammen. 

Im  Gegensatz  zum  »Checksummer«  aber  ist  die  Eingabe 
nicht  ohne  den  MSE  möglich.  Der  MSE  verringert  die  Tippar¬ 
beit  um  ein  Drittel  und  schließt  Fehleingaben  vollkommen  aus. 
Außerdem  können  Sie  die  DATAs  blind  eingeben,  ohne  andau¬ 
ernd  auf  den  Bildschirm  schauen  zu  müssen.  Dies  wird  durch 
akustische  Meldungen  realisiert. 

MSE  ist  ein  Maschinenspracheditor,  mit  dem  ein  Vertippen 
ausgeschlossen  ist.  Eine  abgetippte  Zeile  wird  nur  angenom¬ 
men,  wenn  sie  richtig  ist.  Eine  Checksumme  am  Ende  jeder 
Zeile  prüft,  ob  die  richtigen  Werte  in  der  richtigen  Zeile  an  der 
richtigen  Stelle  stehen.  Wenn  nicht,  ertönt  ein  Warnsignal,  und 
man  beseitigt  den  Fehler. 

War  die  Zeile  korrekt,  erklingt  ein  Gong,  und  die  nächste  Zei¬ 
lennummer  wird  ausgegeben.  Damit  ist  also  auch  »blindes« 
Eintippen  möglich;  Sie  können  sich  voll  auf  den  Text  konzen¬ 
trieren. 

So  arbeitet  man  mit  MSE 

Laden  und  starten  Sie  MSE.  Zuerst  wird  der  Programmname 
und  die  Start-  und  Endadresse  erfragt.  Diese  Angaben  ent¬ 
nehmen  Sie  dem  Kopf  des  jeweiligen  abgedruckten  Li¬ 
stings.  MSE  meldet  sich'  dann  mit  der  Zeilennummer  der  er¬ 
sten  Zeile.  Wenn  Sie  die  Zeile  richtig  eingegeben  haben,  er¬ 
scheint  die  nächste  Zeilennummer  und  so  weiter  bis  zum  En¬ 
de.  Zum  Schluß  wird  das  fertige  Programm  mit  »CTRL-S«  auf 
Diskette  oder  Kassette  abgespeichert.  Dazu  sind  keine  weite¬ 


ren  Angaben  mehr  erforderlich.  Das  Programm  kann  dann 
ganz  normal  wieder  geladen  und  gestartet  werden.  Wenn  Sie 
nicht  alles  auf  einmal  tippen  wollen,  können  Sie  jederzeit  unter¬ 
brechen  und  den  eingetippten  Teil  mit  »CTRL-S«  abspeichern. 
Wollen  Sie  Weiterarbeiten,  laden  und  starten  Sie  MSE  wieder. 

Geben  Sie  auf  die  Frage  nach  der  Startadresse  aber  jetzt  »L« 
ein,  um  Ihr  Teilprogramm  zu  laden.  Jetzt  können  Sie  mit  »CTRL- 
N«  die  Adresse  eingeben,  an  der  Sie  weitertippen  müssen. 
Wenn  Sie  sich  nicht  gemerkt  haben,  wie  weit  Sie  gekommen 
sind,  geben  Sie  nach  dem  Laden  »CTRL-M«  ein. 

Auf  die  Frage  nach  der  Startadresse  antworten  Sie  mit  der 
Anfangsadresse,  die  links  in  der  Kopfzeile  auf  dem  Bildschirm 
steht.  Nun  wird  Ihr  Programm  aufgelistet.  Mit  »SPACE«  wird 
das  Listen  fortgesetzt,  mit  »STOP«  abgebrochen.  Das  Ende  Ih¬ 
res  Programmteils  erkennen  Sie  sehr  einfach  daran,  daß  nur 
noch  der  Wert  *AA«  in  der  Zeile  steht.  Die  Adresse  dieser  Zeile 
müssen  Sie  anschließend  mit  »CTRL-N«  eingeben.  Das  Pro¬ 
gramm  ist  nur  mit  »STOP/RESTORE«  zu  verlassen.  Speichern 
Sie  aber  vorher  unbedingt  immer  Ihren  Text  ab. 

Hinweise  zum  Abtippen 

Vor  dem  Abtippen  oder  späteren  Wiederladen  des  MSE- 
Laders  müssen  Sie  unbedingt  folgende  Zeile  eingeben: 
POKE  43,1:POKE  44,32:POKE  8192,0  NEW 

Starten  Sie  das  Programm  mit  RUN.  Fehlerhafte  Zeilen  wer¬ 
den  angezeigt  und  müssen  korrigiert  werden,  bis  der  Lader 
zum  »READY«  durchläuft.  Jetzt  müssen  Sie  das  fertige  MSE- 
Programm  abspeichern.  Dazu  brauchen  Sie  nur  »RETURN«  zu 
drücken,  weil  die  erforderlichen  Angaben  schon  auf  dem  Bild¬ 
schirm  stehen.  ( Kassetten besitzer  müssen  in  Zeile  343  die 
letzte  Zahl  in  »1«  abändern).  Ab  jetzt  können  Sie  »MSE  VI. 0«  di¬ 
rekt,  also  ohne  den  DATA-Lader,  benutzen,  MSE  VI. 0  wird 
ganz  normal  mit  »,8«  geladen  (keine  POKEs  notwendig). 

(N.  Mann  /D.  Weineck/gk) 


MSE-Befehle: 

DEL  löscht  die  letzt  Eingabe 

CTRL-S  speichert  das  eingetippte  Programm  ab. 

CTRL-L  lädt  ein  Programm.  Start-  und  Endadresse  werden  automa¬ 
tisch  ermittelt. 

CTRL-M  listet  den  Speicherinhalt.  Abbruch  mit  STOP-Taste,  weiter  mit 
Leertaste. 

CTRL-N  erlaubt  die  Eingabe  einer  neuen  Adresse  zum  Woitertippon. 
CTRL-P  gibt  ein  MSE-Listing  auf  dem  Drucker  aus. 


1  REM  **********************************  <208> 

2  REM  *  ++++  MSE  -  LADER  ++++  *  <  1B3> 

7  REM  ********************************  <21 4> 

B  :  <066> 

9  :  <067 > 

10  DIM  H <75)  :  FOR  1=0  TO  9  <088> 

20  H <48+11=1  :  H (65+1) =1+10  :  NEXT  <250> 

30  FOR  1=2048  TO  3755  :  READ  A*  <006> 

40  H=ASC (LEFT* ( A* ,1)1: L=ASC (RIGHT4 (Ai, 1)1  <063> 

50  D=H (H) *16+H <L>  :  S=S+D  :  POKE  I,D  <181 > 

60  A=A+1:IF  A<9  THEN  NEXT  i  A=-l  <111  > 

65  PRINT  "ZEILE: 1000+Z;  <012> 

70  READ  V  :  Z=Z+1  :  IF  V=S  THEN  83  <210> 

80  PRINT"  PRUEFSUMMENFEHLER  ! " ; 999+Z : STOP  <015> 
85  IF  A<0  THEN  341  <067> 

90  S=0  :  A=0  :  PRINT  :  NEXT  :  END  <053> 

95  :  < 153> 

96  :  < 154> 

341  PRINT" {CLRlPfi.43 , 1 : Pfi44 , 8 : Pfl45 , 1 72 : Pß46 

,14"  <170> 

342  POKE  631 , 19:  POKE  632.X3-.P0KE  633,13:P0 

KE  198,3  <233> 

343  PRINT" <3D0WN>SAVE"CHRi <341 "MSE  Vi.0"CH 

RJ (34) " ,8  <041 > 


344  END 
360  : 

1000  DATA  00 , 0B  ,  08 , 0A  ,  00 , 9E ,  32 , 30 , 36  , 

1001  DATA  31 ,00,00,00,A2,0B,A9,36,B5, 

1002  DATA  A4,A9,08,85,A5,A9,00,85,A6, 

1003  DATA  A9,B0,85,  A7,A0,00,B1  ,A4,91  , 

1004  DATA  A6,C8,D0,F9,E6,A5,E6,A7,CA, 

1005  DATA  D0 , F2 , A9 , 36 , 85 ,01 , 4C , 00 , B0 , 

1006  DATA  20, Dl ,B1 ,A9,06,BD,21 ,D0,A9, 

1007  DATA  03 , BD , 20 , D0 , BD , 86 , 02 , A0 , B3 , 
100B  DATA  A9, 74, 20, FF, Bl , A0 , B3 , A9, B9 , 

1009  DATA  20, FF, Bl ,A0, 00, 20, CF, FF, 99, 

1010  DATA  01 ,02,CB,C9,0D,D0,F5,B3,F0, 

1011  DATA  D2 , C0 , 0F , 90 , 02 , A0 , 0E , 8C , 00 , 

1012  DATA  02, 20, EA, Bl , A0 , B3 , A9, CF ,20 , 

1013  DATA  FF, Bl , 20 , 8E , B4 , B5 , FC , B5 , 62 , 

1014  DATA  20 , 8E ,  B4 , 85 ,  FB ,  85 ,61  ,20 ,  A7  , 

1015  DATA  B4 , D0 , 20 , A0 , B3 , A9 , E5 , 20 , FF , 

1016  DATA  Bl , 20 , 8E ,  B4 , 85 , 60 , 20 , 8E ,  B4 , 

1017  DATA  85 , 5F , 20 , A7 , B4 , D0 , 0A , A5 ,61, 

1018  DATA  C5 , 5F , A5 , 62 , E5 , 60 , 90 , 06 , 20 , 

1019  DATA  43,B3,'1C,3A,BB,A9,AA,A0,B0, 

1020  DATA  91 ,FB ,E6 , FB , D0 ,02,E6 ,FC , 20, 

1021  DATA  3F , B2 , 90 , EF , 4C , FB , B4 , A2 , 02 , 

1022  DATA  B6,58,A9,A6,A0,9D,20,F2,B1 , 

1023  DATA  20 , E4 , FF , F0 , FB , C9 , 30 , 90 , 0C , 


Der  MSE  zum  bequemen  Abtippen  von  Assemblerprogrammen 


<217> 
<163> 
339  <083> 

575  <075> 

1107  < 189 > 
1291  < 1 90  > 
1817  <028 > 
1059  < 1 80 > 
1144  < 193> 
1000  <169> 
1442  <238 > 
1271  <233> 
1246  <21Z> 
877  <150> 

1192  <219> 
1402  <237> 
1167  <207 > 
1444  <234> 
1114  < 193> 
1087  <213> 
1062  <IB3> 
1055  <222> 
1601  <007> 
1295  <01 1> 
1325  <226> 
1411  <248> 
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1024 

DATA 

C9 , 47 , B0 , 0B , C9 , 3A , 90 , 0B , C9 , 

1071 

<228> 

1108 

DATA 

52 , 20 , 0D , 0D , 20 , 20 , 20 , 20 , 20 , 

300 

<  149> 

1025 

DATA 

4 1 , B0 , 07 , C9 , 1 4 , D0 , 0F , 4C , 0B , 

779 

<  173> 

1109 

DATA 

20 , 20 , 20 , 56 , 4F , 4E , 20 , 4E , 2E , 

495 

<224> 

1026 

DATA 

81 ,20,D2,FF,A6,5B,95,F7,C6, 

1522 

<254> 

1110 

DATA 

4D , 4 1 , 4E , 4E , 20 , 26 , 20 , 44 , 2E , 

514 

<221  > 

1027 

DATA 

58 , D0 , D2 , 60 , Ah , BD , 02 ,  F0 , 26 , 

1197 

<231  > 

1111 

DATA 

57 , 45 ,49,4E,45, 43 , 4B , 00 , 0D , 

531 

<216> 

1028 

DATA 

C9,0C,D0,03,4C,0B,B6,C9, 13, 

913 

<187> 

1112 

DATA 

0D , 0D , 20 , 20 , 20 , 50 , 52 , 4F , 47 , 

434 

<197> 

1027 

DATA 

D0 , 03 ,  4C , 8B , B5 , C9 , 0D , D0 , 03 , 

1032 

<228 > 

1113 

DATA 

52,41 ,4D,4D,4E,41 ,4D,45,20, 

622 

<227> 

1030 

DATA 

4C,BA,B4,C9,10,D0,03,4C,6B, 

1050 

<232> 

1114 

DATA 

3A , 20 , 00 , 0D , 0D , 20 , 20 , 20 , 53 , 

295 

<1B5> 

1031 

DATA 

B5 , C9 , 0E , D0 , 06 , 20 , 5F , B4 , 4C , 

993 

<203> 

1115 

DATA 

54,41,52,54,41,44,52,45,53, 

682 

<177> 

1032 

DATA 

64, Bl ,4C,92,B0,A5,F9,20,02, 

1  123 

<204> 

1116 

DATA 

53 , 45 , 20 , 3A , 20 ,24,00,0D,0D, 

336 

<  194> 

1033 

DATA 

B1,0A,0A,0A,0A,B5,F9,A5,F8, 

1012 

<247  > 

1117 

DATA 

20, 20, 20, 45, 4E, 44, 41, 44 ,52, 

526 

<177> 

1034 

DATA 

,20, 02, Bl , 05 ,F9 ,60 , C7 , 3A, 90, 

964 

<154> 

1118 

DATA 

45, 53, 53, 45, 20, 20, 20, 3A, 20, 

490 

<  172> 

1035 

DATA 

02 , 69 , 08 , 29 , 0F , 60 , A6 , 59 , E0 , 

746 

<  153> 

1119 

DATA 

24, 00, 92, 05, 20, 50, 52, 4F, 47, 

531 

<180> 

1036 

DATA 

0B , 90 , 1F , A6 , 58,80 , 02 , B0, 06, 

845 

<155> 

1120 

DATA 

52 ,41, 4D , 4D , 20 , 3A , 20 ,00,12, 

441 

<195> 

1037 

DATA 

20 , D2 , FF , 4C , 8E , B0 ,C6, 59 , A0 , 

1338 

<01 7> 

1121 

DATA 

20 , 20 , 2A , 2A , 2A , 20 ,46,41 , 4C , 

433 

<21 1  > 

1038 

DATA 

14,A9,92,20,F2,B1 ,CA,D0,FA, 

1446 

<  006> 

1122 

DATA 

53, 43, 48, 45, 20, 45, 49, 4E, 47, 

614 

<20G> 

1039 

DATA 

84 , 57 , 68 , 68 , 4C,8B, Bl , A6 , D3, 

1196 

<249> 

1123 

DATA 

41 ,42,45,20,2A,2A,2A,20,20, 

422 

<193> 

1040 

DATA 

E0,08,B0,03,4C,92,B0,20,D2, 

1051 

<200> 

1  124 

DATA 

92 , 00 , 0D , 0D , 2A , 2A , 2A , 20 , 45 , 

399 

<243> 

1041 

DATA 

FF  ,  A6 , 58  ,  E0 , 02 , 90 , 09  ,  C6 , 59 , 

1175 

<242> 

1125 

DATA 

4E ,  44 , 45 , 20 , 2A ,  2A ,  2A ,  00 ,  13, 

392 

<223> 

1042 

DATA 

20 , D2 , FF , C6 , 58 , D0 , F9 , 4C , 8E , 

1458 

<040> 

1  126 

DATA 

05,20,20, 12, 44, 92, 49, 53, 4B, 

532 

<189> 

1043 

DATA 

B0 , 48 , 4A , 4 A , 40 , 4  ö , 20 , 59 , B 1 , 

B42 

<  195> 

1127 

DATA 

20, 4F, 44, 45, 52, 70, 12,54,92, 

610 

<  190> 

1044 

DATA 

68 , 29 , 0F ,  C9 , 0A ,  90 , 02 , 69 , 06 , 

628 

<  1  63> 

1128 

DATA 

41 ,50, 45,0D,00, 13,20,20,49, 

383 

<  181  > 

1045 

DATA 

69 , 30 ,  4C , D2 , FF , A2 , FC , 9A , 20 , 

1294 

<027> 

1129 

DATA 

2F , 4F , 20 , 2D , 20 , 46 , 45 , 48 , 4C , 

522 

<247  > 

1046 

DATA 

Dl , Bl ,20,48, B2, 20, EA, Bl ,20, 

1143 

<217> 

1130 

DATA 

45, 52, 00, 20, Dl, Bl, 20, 48, B2, 

851 

<215> 

1047 

DATA 

9F,B2,A5,FC,20,4E,B1,A5,FB, 

1457 

<057> 

1 131 

DATA 

A0 , B3 , A9 , CF , 20 , FF , B 1 , 20 , 8E , 

1353 

<  1 15> 

1048 

DATA 

20 , 4  E  ,  B 1 ,20, ED, Bl  ,A9 ,3A,A0, 

1120 

<250> 

1132 

DATA 

B4 , 85, FC, 20 , 8E , B4 , 85 , FB , C5 , 

1500 

<  1 15> 

1049 

DATA 

20 , 20 , F2 , B 1 , A9 , 00 , 85 , 59 , 20 , 

906 

<  1 45> 

1133 

DATA 

61, A5 , FC , E5 , 62 , 90 , 23 , A5 , FB , 

1436 

<098> 

1050 

DATA 

BE, B0, 20, ED, Bl , A4 , 59 , 20 ,EF , 

1288 

<029> 

1134 

DATA 

C5,5F,A5,FC,E5,60,B0, 19,20, 

1267 

<097> 

1051 

DATA 

B0,91 ,FB,C8, 84,59,00,08,90, 

1337 

<  249 > 

1135 

DATA 

A7  ,  B4 ,  D0 , 1 4 , 60 , 20 ,  A7  ,  B4  ,  F0 , 

1290 

<065> 

1052 

DATA 

EC , 20 , 1 0 , B2 , A9 , 12 , 20 , D2 , FF , 

1146 

<251  > 

1136 

DATA 

0C  ,  85 ,  F9 , 20 ,  A7  ,  B4  ,  F0 , 05 , 85 , 

1151 

<066> 

1053 

DATA 

20 , 8E , B0 , 20 , EF , B0 , C5 , FF , F0 , 

1489 

<04B> 

1 137 

DATA 

F8 , 4C , EF , B0 , 68 , 68 , 20 , 43 , B3 , 

1225 

<090> 

1054 

DATA 

0D,20,43,B3,A9, 14, A0, 14,20, 

692 

<  1 55  > 

1138 

DATA 

4C , 5F , B4 , 20 , CF , FF , C9 , 4C , D0 , 

1330 

<  1 46  > 

1055 

DATA 

F2,B1 ,4C,A2, Bl, A9, 92,20, D2, 

1391 

<005> 

1 139 

DATA 

09, 20, Dl, Bl ,20,48,B2,4C,0B, 

796 

<010> 

1056 

DATA 

FF,20,33,B2,20,E0,B2,20,3F, 

1045 

<203 > 

1140 

DATA 

B6 , C9 , 0D , 60 , A9 , 00 , 85 , 5E , 20 , 

920 

<019> 

1057 

DATA 

B2 , 90 , 9F , 4C , SB , B5 , A9 , 93 , 20 , 

1225 

<010> 

1141 

DATA 

5F,B4,20,EA,B1 , 20, 0D , B5 , 24 , 

980 

<040> 

1058 

DATA 

D2 , FF , A2 , 00 , A9 , 03 , 9D , 00 , DS , 

1172 

<011> 

1142 

DATA 

5E , 30 , 05 , 20 , E4 , FF , F0 , FB , 20 , 

1185 

<097> 

1059 

DATA 

9D ,  00 ,  D9 , 9D ,  00 ,  DA  ,  9D ,  00  ,  DB , 

1125 

<  030  > 

1 1 43 

DATA 

El, FF , F0 , 26 , 20 , 9F , B2 , 24 , 5E , 

1257 

<110> 

1060 

DATA 

EB  ,  D0  ,  EF  ,  60 ,  A9 , 0D ,  2C ,  A9 , 20 , 

1202 

<029> 

1144 

DATA 

1 0 , 09 , 20 , 4E , B5 , 20 , 0D , B5 , 20 , 

574 

<246> 

1061 

DATA 

4C , D2 , FF , 20 , D2 , FF , 98 , 4C , D2 , 

1476 

<069> 

1  145 

DATA 

60 ,  B5 , 20 , 33 ,  B2 , 20 , 3F ,  B2 , 90 , 

955 

<000> 

1062 

DATA 

FF , 20 , E4 , FF , F0 , FB , 60 , 84 , 5D , 

1582 

<069> 

1146 

DATA 

D7,A0,B4,A9,28,20,FF,B1 ,20, 

1260 

<095> 

1063 

DATA 

85,5C,A0,00,B1 ,5C,F0,06,20, 

932 

<1B3> 

1147 

DATA 

E4,FF,C9,0D,D0,F9,A9,00,B5, 

1456 

<141> 

1064 

DATA 

D2 , FF , C8 , D0 , F6 , 60 , A5 , FB , 85 , 

1764 

<075> 

1148 

DATA 

5E , A5 ,61, 85 , FB , A5 , 62 , 85 , FC , 

1388 

<  131  > 

1065 

DATA 

5A,A0,00,84,5B,B1 ,FB, 18,65, 

1026 

<254> 

1  149 

DATA 

20 , E0 , B2 , 4C , 64 , B 1 , A5 ,FC , 20 , 

1236 

<092> 

1066 

DATA 

5A , 85 , 5A , 90 , 02 , E6 , 5B , 06 , 5A , 

876 

<212> 

1150 

DATA 

4E , Bl , A5 , FB , 85, FF , 20 , 4E, Bl , 

1346 

<  1 44  > 

1067 

DATA 

26 , 5B ,  CE ,  C0 , 0B ,  90 ,  EC ,  A5 , 5A , 

1  164 

<028> 

1151 

DATA 

A9 , 20 , A0 , 3A , 20 , F2 , B 1 , A0 , 00 , 

1030 

<053> 

1068 

DATA 

65, 5B, 85, FF, 60, 1B,A5,FB,69, 

1221 

<028> 

1152 

DATA 

20 ,ED , B 1 , Bl , FB , 20 , 4E, Bl , C8, 

1361 

<  12B> 

1069 

DATA 

08 , 85 , FB , 90 , 02 , E6 , FC , 60 , A5 , 

1281 

<020> 

1 153 

DATA 

C0,08,90,F3,20,ED,B1 ,24,5E, 

1163 

<090> 

1070 

DATA 

FB, C5 ,5F , A5 , FC, E5 , 60 , 60 , A0 , 

1541 

<061  > 

1  154 

DATA 

30 , 03 , A9 ,12, 2C , A9 , 20 , 20 , D2 , 

725 

<255> 

1071 

DATA 

B3 , A9 , FB , 20 , FF , B 1 , A0 , 0 1 , B9 , 

1409 

<053> 

1  155 

DATA 

FF ,20,10, B2 ,A5,FF,20,4E,B1, 

1188 

<123> 

1072 

DATA 

00, 07, 20, D2, FF, CC, 00, 02, CS, 

905 

<202> 

1 156 

DATA 

A9,92,20,D2,FF,4C,EA,B1 ,A9, 

14  68 

<157> 

1073 

DATA 

90 , F4 , A9 ,10, ED ,00,02, AA , 20 , 

1014 

<247> 

1 157 

DA1A 

FF  ,  85 ,  BB  ,  8b  ,  B9 ,  A9 , 04 , 85 ,  BA , 

1382 

<143> 

1074 

DATA 

ED, Bl  , CA , D0 , FA ,  A5 , 62 , 20 , 4E , 

1447 

<073> 

1  158 

DATA 

20 , C0 , FF , A2 , FF , 4C , C9 , FF , 20 , 

1460 

<  165> 

1075 

DATA 

Bl  ,A5,61 ,20,4E,B1 ,20, ED, Bl, 

1172 

<013> 

1  159 

DATA 

CC ,  FF  ,  A9 ,  FF ,  4C  ,  C3 ,  FF  ,  20 , 5F  , 

1536 

<215> 

1076 

DATA 

A5,60,20,4E,B1  ,  A5,5F , 20, 4E, 

918 

<223> 

1160 

DATA 

B4,A9,80,85,5E,20,4E,B5,20, 

1027 

<0SB> 

1077 

DATA 

Bl , A9 , 9F , 20 ,D2 , FF , 20, EA , Bl , 

1445 

<065> 

1161 

DATA 

48 , B2 , A2 , 24 , A9 , 2D , 20 , D2 , FF , 

1159 

<  121  > 

1073 

DATA 

24, 5E, 10,01 ,60, A9, 12,20, D2, 

672 

<  165> 

1162 

DATA 

CA ,  D0 ,  F  A ,  20 ,  EA ,  B 1 , 20 ,  E  A ,  B 1 , 

1546 

<162> 

1079 

DATA 

FF, A2, 28, 20, ED, Bl, CA, D0, FA, 

1563 

<095> 

1163 

DATA 

20 , 60 , B5, 4C , CI , B4 , 20, B8 , B5 , 

1155 

<093> 

1080 

DATA 

A9 , 92 , 4C ,  D2 ,  FF ,  A5 ,  D6 ,  C9 ,16, 

1458 

<078> 

1164 

DATA 

A6, 5F, A4, 60, A9, 61,20,08, FF, 

1290 

<  131  > 

1081 

DATA 

B0 , 0 1 , 60 , A9 , A0 , 85 , A4 , A9 , 78 , 

1 188 

<013> 

1165 

DATA 

B0 , 0A , 20 , B7 , FF , 29 , BF , D0 , 03 , 

1099 

<  135> 

1082 

DATA 

85 , A6 , A9 , 04 , 85, A5, 85 , A7 , A2, 

1232 

<01B> 

1166 

DATA 

4C,FB,B4,A9,01 ,20  ,C3,  FF,  20 , 

1 191 

<  131  > 

1083 

DATA 

13,  A0 , 27  ,  B 1  ,  A4 ,91,  A6 ,  B8 ,10, 

1022 

<235> 

1 167 

DATA 

68 , B6 , A0 , B4 , A9 , 4F , 20 , FF , B 1 , 

1338 

<147> 

1084 

DATA 

F9 ,CA, F0 , 19 , 18 , A5, A4 ,69 ,28, 

1214 

<039> 

1168 

DATA 

20,F9,B1,4C,FB,B4,20,68,B6, 

1233 

<  130> 

1085 

DATA 

85 , A4 , 90 , 02 , E6 , A5 ,18, A5 , A6 , 

1193 

<01B> 

1 169 

DATA 

A9,37,A0,B4,20,FF,B1,20,F9, 

1309 

<126> 

1086 

DATA 

69 , 28 , 85 , A6 , 90 , E0 , E6 , A7 , 4C , 

1285 

<038> 

1170 

DATA 

Bl , A2 , 08 ,C9 , 44 , F0 , 06 , A2 , 01 , 

1025 

<079> 

1087 

DATA 

B6,B2,A9,91 ,4C,D2,FF,A9,0F, 

1399 

<09/> 

1171 

DATA 

CV , 54 , D0 , F 1 , A9 ,01, AB , 20 , BA , 

1290 

<123> 

1088 

DATA 

8D,18,D4, A9 , 00 , 8D , 05 , D4 , A9 , 

1073 

<040> 

1172 

DATA 

FF , A0 ,00 ,E0, 01 ,F0, 1 A , A9 , 40 , 

1139 

<110> 

1089 

DATA 

F7 , 8D , 06 , D4 , A9 , 1 1 , 8D , 04 , D4 , 

1  149 

<046> 

1173 

DATA 

8D ,20, 02 , AV, 3A, 8D ,21 , 02 , B9, 

763 

<050> 

1090 

DATA 

A9 , 32 , 8D ,01, D4 , A9 , 00 , 8D , 00 , 

883 

<226> 

1174 

DATA 

01 , 02, 99, 22, 02, CB, CC, 00, 02, 

598 

<013> 

1091 

DATA 

D4,A0,80,20,09, B3 ,A9, 10, QD, 

1046 

<009> 

1175 

DATA 

90,F4,C8,C8,D0,0C,B9,01 ,02, 

1196 

<  121  > 

1092 

DATA 

04 , D4 , 60 , A2 , FF , CA , D0 , FD , 88 , 

1528 

<090> 

1176 

DATA 

99 , 20 , 02 , C8 , CC , 00 , 02 , D0 , F4 , 

1045 

<092> 

1093 

DATA 

D0,F8,60,A9,0F,8D, 18,D4,A9, 

1282 

<068> 

1177 

DATA 

98 , A2 , 20 , A0 , 02 , 4C , BD , FF , 20 , 

1060 

<  1 1 9> 

1094 

DATA 

2D , 8D , 05 , D4 , A9 , A5 , 8D , 06 , D4 , 

1096 

<  066  > 

1178 

DATA 

B8 , B5 , A5 , BA , C9 , 08 , 90 , 33 , A6 , 

1286 

<  1 46> 

1095 

DATA 

A9 ,21, BD , 04 , D4 , A9 ,07,8D,01 , 

877 

<243> 

1179 

DATA 

B9,86,57,A9,01 , 20,  C3,  FF ,  A9 , 

1227 

<136> 

1096 

DATA 

D4 , A9 , 05 , 8D , 00 , D4 , A0 , FF , 20 , 

1  1B6 

<  053  > 

1180 

DATA 

60 , 85 , B9 , 20 , C0 , FF , B0 , 28 , A5 , 

1274 

<126> 

1097 

DATA 

09 , B3 , A9 , 20 , 8D , 04 , D4 , A9 , 00 , 

915 

<231  > 

1181 

DATA 

BA , 20 , B4 , FF , A5 , B9 , 20 , 96 , FF , 

1440 

<174> 

1098 

DATA 

BD,01  , D4 , 8D , 00 , D4 , 60 , 38 , 20 , 

B91 

<219> 

1182 

DATA 

20, A5, FF, 85, 61 , A5 , 90 , 4A, 4A, 

1139 

<  128> 

1099 

DATA 

F0,  FF  ,  8A ,  48 ,98 , 48,  18  ,  A0, 06 , 

1119 

<  046> 

1183 

DATA 

B0, 13,20, A5, FF, 85, 62, 20, AB, 

1081 

<  1 12> 

1  100 

DATA 

A2 ,18, 20 , F0 , FF , A0 , B4 , A9 , 0A , 

1232 

<057> 

1184 

DATA 

FF , A5 , 57 , 85 , B9 , A9 , 00 , 20 , D5 , 

1239 

<  14 1  > 

1101 

DATA 

20, FF, Bl ,20,12,B3,20,E4,FF, 

1208 

<  045  > 

1185 

DATA 

FF , 90 , 03 , 4C , A3 , B5 , 86 , 5F , 84 , 

1183 

<144> 

1102 

DATA 

F0,FB,A2, 1D,A9, 14,20, D2, FF, 

1368 

<092> 

1186 

DATA 

60 , A5 ,BA,C9,01 ,D0, 0A , AD , 3D , 

1101 

<14y> 

1103 

DATA 

CA , D0 , FA , 68 , A8 , 68 , AA ,18, 4C , 

1306 

<098> 

1187 

DATA 

03, 85, 61,  AD, 3E,  03, 85, 62, 4C, 

778 

<063> 

1104 

DATA 

F0 , FF , 0D , 0D , 0D , 20 , 20 , 20 , 20 , 

662 

<231  > 

CO 

m 

r-i 

•H 

DATA 

FB, B4, A9 , 13 , 20, D2,FF , A2 , IC , 

1306 

<  16B> 

1  105 

DATA 

20, 20, 20, 4D, 41 ,53,43,48,49, 

533 

<  170> 

1189 

DATA 

20, ED, Bl , CA, D0, FA, 60,  1202 

<  104> 

1 106 

DATA 

4E,45,4E,53,50,52,41 ,43,48, 

674 

<  205  > 

1107 

DATA 

45, 20, 2D, 20, 45, 44, 49, 54, 4F, 

551 

<197> 

Listing  von 

MSE  (Schluß) 
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Sternen¬ 

himmel 

Um  über  die  Positionen  von  Fixsternen 
und  Planeten  informiert  zu  sein, 
schrieb  Horst  Hinkelmann  dieses  Pro¬ 
gramm  für  den  C  64  mit  Simons  Basic. 

Nach  dem  Start  des  Programms  werden  zunächst  das  ak¬ 
tuelle  Datum  sowie  die  aktuelle  Uhrzeit  (MEZ)  und  die  geografi¬ 
schen  Koordinaten  des  Beobachtungsortes  eingegeben.  Da¬ 
bei  müssen  nördliche  Breiten  und  westliche  Längen  positiv, 
südliche  Breiten  und  östliche  Längen  negativ  angegeben  wer¬ 
den.  Nun  kann  man  den  Beobachtungszeitpunkt  wählen,  wenn 
sich  dieser  vom  bereits  im  Programm  festgelegten  Zeitpunkt 
unterscheidet. 

Es  folgt  eine  kurze  Erläuterung  des  Programmablaufs  und 
das  Zeichnen  der  Sternkarte.  Mit  den  Cursor-Tasten  kann  über 
ein  Kreuz  jedes  Objekt  der  Sternkarte  angesteuert  werden. 
Die  Bewegungsgeschwindigkeit  ist  abhängig  von  der  Dauer 
des  Tastendrucks;  das  heißt  je  länger  eine  Cursortaste  ge¬ 
drückt  wird,  desto  schneller  bewegt  sich  das  Kreuz.  Drückt 
man  nach  der  Wahl  die  Funktionstaste  Fl,  gibt  der  Computer 
den  Namen  des  Sterns  oder  Planeten,  der  dem  Kreuz  am 
nächsten  ist,  an.  Dabei  wird  der  Cursor  genau  auf  das  Objekt 
positioniert.  Möchte  man  wissen,  um  welches  Sternbild  es 
sich  bei  einer  bestimmten  Konstellation  handelt,  bringt  man 
das  Kreuz  auf  das  betreffende  Sternbild  und  drückt  die  Funk¬ 
tionstaste  F3.  Der  Computer  positioniert  den  Cursor  auf  den 
nächsten  Stern  des  Sternbildes  und  zeigt  den  Namen  des 
Sternes  und  des  Sternbildes  an.  Das  gesamte  Sternbild  blinkt. 
Es  besteht  auch  die  Möglichkeit,  einen  Stern,  ein  Sternbild 
odereinen  Planeten  nach  dem  Namen  suchen  zu  lassen.  Dazu 
gibt  man  einfach  mit  der  Tastatur  den  Namen  oder  einen  Teil 
des  Namens  des  gesuchten  Objekts  ein  und  schließt  die  Ein¬ 
gabe  mit  der  RETURN-Taste  ab.  Der  Computer  positioniert  das 


Kreuz  auf  dieses  Objekt  und  gibt  den  vollständigen  Namen 
aus.  Ist  das  gesuchte  Objekt  nicht  gespeichert  oder  zum  Be¬ 
obachtungszeitpunkt  am  Beobachtungsort  nicht  zu  sehen,  er¬ 
hält  man  eine  entsprechende  Fehlermeldung. 

Will  man  die  Sternkarte  für  einen  anderen  Beobachtungsort 
oder  einen  anderen  Beobachtungszeitpunkt  erstellen  lassen, 
drückt  man  die  Funktionstaste  F7. 

Mit  F5  wird  die  Sternkarte  auf  einen  MPS  801  gedruckt. 
Programmerläuterung 

Auf  die  Formeln,  die  den  Berechnungen  zugrunde  liegen, 
soll  verzichtet  werden.  Diese  Berechnungen  sind  (zumindest 
für  Mond-  und  Planetenpositionen)  ziemlich  kompliziert  und 
können  bei  Interesse  jedem  größeren  Werk  über  Astronomie 
entnommen  werden. 

Von  programmtechnischem  Interesse  dürften  allerdings  die 
Suchroutinen  sein.  Deren  Funktionsweise  soll  deshalb  erläu¬ 
tert  werden. 

Zum  Suchen  werden  die  folgenden  Arrays  verwendet: 

PS  Namen  der  Planeten 

Z$  Namen  der  Sternbilder 

P  Bildschirmkoordinaten  der  Planeten 

Z%  Bildschirmkoordinaten  der  Fixsterne 

Z  Zeiger  auf  Fixsterne 

(für  jedes  Sternbild) 

Suchen  Fixstern/Planet  (Funktionstaste  Fl) 

Zunächst  werden  die  Bildschirmkoordinaten  des  Kreuzes 

(X,Y)  mit  denen  der  Planeten  (X  mit  P(0),  P(2) . Y  mit  P(1), 

P(3),  ...)  verglichen.  Bei  Übereinstimmung  ist  XX=0  und  die 
Suche  kann  abgebrochen  werden.  In  Zeile  42090  verzweigt 
das  Programm  nach  45000,  wo  der  Name  des  Planeten  ge¬ 
schrieben  wird.  Liegt  keine  Übereinstimmung  vor,  wird  der 
Planet  mit  dem  geringsten  Abstand  gespeichert  (XP  = 
Abstand2,  ZP  =  Kennziffer  des  Planeten).  Nun  werden  die 
Fixsterne  in  gleicher  Weise  überprüft.  Der  Stern  mit  dem  ge¬ 
ringsten  Abstand  wird  gespeichert  (Z  =  Kennziffer  des 
Sterns;  Zeile  44020).  Wird  kein  Stern  mit  geringerem  Abstand 
als  der  nächste  Planet  gefunden,  wird  der  gespeicherte  Planet 
genannt  (Zeilen  44070  bis  45010).  Dabei  wird  ab  der  Zeile 
500  das  Kreuz  exakt  auf  den  Planeten  beziehungsweise 
Stern  positioniert  und  dessen  Bezeichnungen  ausgegeben. 
Der  Name  eines  Planeten  ergibt  sich  aus  dem  Array  P$  mit 
dem  Index  ZP.  Der  Name  eines  Sternes  wird  durch  berechne¬ 
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Hardcopy  des  Sternenhimmels  von 
Hamm  (zirka  52°  nördliche  Breite  und  8° 
östliche  Länge),  wobei  der  Beobach¬ 
tungszeitpunkt  der  7.  Februar  1985, 

19.30  GMT  (Weltzeit)  beziehungsweise 

20.30  MEZ  (Ortszeit)  ist.  Wie  bei  Stern¬ 
karten  üblich,  ist  Osten  links,  Westen 
rechts,  Norden  unten  und  Süden  oben. 
Der  Mond  steht  tief  im  Osten. 
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tes  RESET  (Zeile  44080)  aus  den  DATA-Zeilen  60000  bis 
61240  ermittelt.  Die  Schreibroutine  befindet  sich  ab  Zeile 
300. 

Suchen  Sternbild  (Funktionstaste  F3) 

Zunächst  wird  die  Suchroutine  für  Sterne  mit  Ausnahme  des 
Abschnitts  für  die  Planeten  durchlaufen.  Der  gefundene  näch¬ 
ste  Stern  bestimmt  das  Sternbild.  Die  Kennziffer  Z  des  Sterns 
wird  in  ZI,  die  letzte  Ziffer  des  gelesenen  Datensatzes  für  den 
Stern  (D:  Zeile  44090)  wird  in  Z  gespeichert.  Das  Programm 
verzweigt  nun  in  die  Blink-Routine  (Zeile  48060  bis  48250). 
Dort  werden  die  zum  Sternbild  gehörenden  Sterne  (Punkte) 
abwechselnd  gesetzt  und  gelöscht  (Zeile  48170). 

Suchen  nach  Namen 

Wird  ein  Name,  oder  ein  Teil  eines  Namens  eingegeben,  ver¬ 
zweigt  das  Programm  in  40100  nach  Zeile  47000.  Das  kom¬ 
plizierte  Löschen  des  zu  überschreibenden  Textes  (GOSUB 
340,  GOSUB  360  in  Zelle  47030)  ist  erforderlich,  da  Simons 
Basic  Text  mit  den  auf  dem  Grafik-Bildschirm  gesetzten  Punk¬ 
ten  ODER-  verknüpft.  Aus  diesem  Grund  wird  der  vorige  Text 
erst  gelöscht.  Nun  wird  geprüft,  ob  ein  Planetenname  mit  der 
eingegebenen  Bezeichnung  übereinstimmt  (47060  bis 
47090).  Ist  dies  der  Fall,  werden  die  Bildschirmkoordinaten 
des  Planeten  zu  denen  des  Kreuzes  (Zeile  471 20).  Ist  der  Pla¬ 
net  zur  Beobachtungszeit  nicht  sichtbar,  dann  ist  X  =  0  und 
eine  Fehlermeldung  wird  ausgegeben  (47140).  Ansonsten 
wird  das  Kreuz  auf  den  Planeten  positioniert  und  in  die  Einga¬ 
beroutine  gesprungen  (471 50).  Handelt  es  sich  bei  der  einge¬ 
gebenen  Bezeichnung  um  keinen  Planeten,  wird  die  Suchrou¬ 
tine  in  48000  fortgesetzt.  Dort  werden  zunächst  die  Namen 
der  Sternbilder  (deutsch  und  lateinisch)  auf  Übereinstimmung 
untersucht.  Wird  keine  Übereinstimmung  gefunden,  springt 
das  Programm  in  die  Zeile  49000.  Hier  werden  nun  die  Stern¬ 
bezeichnungen  eingelesen  und  mit  der  Eingabe  verglichen. 
Kommt  es  zu  keiner  Übereinstimmung,  wird  die  Fehlermel¬ 
dung  »...  nicht  gespeichert«  ausgegeben  und  das  Kreuz  in  die 
linke  obere  Ecke  des  Bildschirms  gesetzt  (Zeile  49050).  Dar¬ 
auf  kehrt  das  Programm  in  die  Eingaberoutine  (ab  Zeile 
40000)  zurück. 

(Horst  Hinkelmann/hm) 


Programmslruklur  von  Sternenhimmel 

Zeilen 

Bedeutung 

100-  120 

Berechnung  des  Stundenwinkels 

130-  140 

Berechnung  Bogenmaß 

150-  190 

Koordinaten-T  ransf  ormation 

200  -  240 

Berechnung  Gradmaß 

296  -  395 

Text  auf  Grafikbildschirm  überschreiben 

396  -  480 

Ausgabe  Fehlermeldungen 

496  -  520 

Kreuz  (Cursor)  bewegen 

596  -  630 

Buchstaben  auf  Grafikbildschirm  löschen 

996-  2190 

Bildschirmmaske  erstellen 

4996  -  5260 

Definition  Kreuz  als  Sprite 

9996  -  15080 

Stellung  Erde/Sonne/Mond  berechnen 

19996  -  20160 

Stellung  Planeten  berechnen 

24996  -  25080 

Stelung  Fixsterne  berechnen 

29996  -  30050 

Rektaszension  und  Deklination  berechnen 

39996  -  49100 

Eingabeschleife 

49996  -  56050 

Programmbeginn  und  Funktionsdefinitionen: 

52010  -  52020 

arc  sin 

52030  -  52040 

arc  cos 

52050  -  52060 

Modulo  360 

57000-57110 

Hardcopy 

58000  -  58020 

Neustart  des  Programms 

60000  -  61240 

Daten  Fixsterne  (Rektaszension.  Deklina¬ 
tion.  Name,  Nummer  des  Sternbildes) 

62000  -  62230 

Daten  Sternbilder  (Name  lateinisch,  Name 
deutsch,  Zahl  Sterne  —1 ,  Beginn  der 
Sterndaten  DATA-Zeile  60000  +  X-10) 

62500  -  62700 

Daten  Planeten  (Name,  Bannelemente) 

0 

rem 

******************************** 

1 

rem 

* 

* 

2 

rem 

* 

Sternenhimmel 

* 

3 

rem 

* 

* 

4 

rem 

* 

hörst  hinkelmann 

* 

5 

rem 

* 

nicolaistr.  6 

* 

6 

rem 

* 

4700  hairnn  1 

* 

7 

rem 

* 

telefon  02385/1653 

* 

8 

rem 

* 

* 

9 

rem 

******************************** 

10  goto50000 

96  rem  ********************** 

97  rem  *  stern  setzen  * 

98  rem  ********************** 

100  rem  *•*  stundenwinkel  ** 

120  sw=-fnmo(ar — re-1 ) 

130  rem  **  bogenmass  ** 

140  sw=sw*pl 

150  rem  ##  koordi naten-trans-f ormation  ** 
160  h=-f nas (sb*sin (de)+cb*cos (de) *cos (sw) 
) 

170  i-fh<0thenx=0:  y=0:  return 

180  a=f nac ( (sin (de) -sb*sin (h) ) / (cb*cos (h 

)  )  ) 

190  if sw<pithena=-a 
200  rem  **  gradmass  ** 

210  r=99-h*198/pi:w=— a-pi/2 
220  x=int(cos(w)*r*l. 1+159.5) 

230  y=int (sin (w) *r+99. 5) 

240  plotx,y,l 

296  rem  #***■*■*•*•■*********■#■*■***■** 

297  rem  *  text  ueberschrei ben  * 

298  rem  *********************** 

300  n*=left*(n*,13) 

310  i  f  n3$<  >n*thengosub340 
320  i-fn4$Onl$thengosub360 
330  return 

340  n3*=n$:block0, 184, 103, 191,0 

350  text0 , 184 ,n$, 1,0,8: return 

360  n4$=nl$: bl ock0 , 192, 119, 199 , 0 

370  block216, 192,319, 199,0 

380  text0, 192, nl*, 1 ,0,8 

390  text319-8*l en (n2$) , 192, n2$, 1 ,0,8 

395  return 

396  rem  *********************** 

397  rem  *  -Fehlermeldungen  * 

398  rem  *********************** 

400  nl$=le-ft$  (nl*,9> 

410  text0 , 192 , n  1$+"  nicht", 1,0, 8 
420  t ex t232 , 1 92 , “ si chtbar " , 1 , 0 , 8 
430  goto41000 
450  n*=le-ft$(n*,9) 

460  text0,192,n*+"  ni cht " , 1 , 0 , 8 
470  text232, 192, "gespeichert" , 1 ,0 , 8 
480  goto41000 

496  rem  *********************** 

497  rem  *  kreuz  bewegen  * 

498  rem  *********************** 

500  hn=x+19: vn=y+46 

510  mmobl,hv,vv,hn,vn,0, 100 
520  goto300 

596  rem  *********************** 

597  rem  *  buchstaben  loeschen  * 

598  rem  *********************** 

600  le=len(ni)-l 

610  blockle*8, 184, le*8+7, 199,0 
620  n*=left$(n*,le> 

630  return 

996  rem  ************************ 

Listing  zu  Sternenhimmel.  Geben  Sie  das  Listing  nur 
dann  ein,  wenn  Sie  vorher  Simons  Basic  geladen  haben. 
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997  rem  *  bildschirm  erstellen  * 

998  rem  ************************ 

1000  hires7,6 

1010  circlel60, 100, 110, 100,1 
1020  hu=0: ifb<0thenhu=200 
1030  ifb<0thencirclel60,hu+b/9*10,2,2,l 
1040  textl,0,mid$(str*(t) ,2) +" . "+mid* (st 
r$ (m) , 2 ) + " . "+mid* (str$( j) ,2) ,1,0,8 
1050  tex t 1 , 8 , "oz " +cz $,1,0,8 
1060  textl ,16, "wz "+wz$, 1,0,8 
1070  t*=mid$ (str*(int (b+.5) ) ,2,4) 

1080  sp*=right*("  " , 3-1 en ( t$> ) 

1090  text216,0, "breite  "+sp$+t$ , 1 , 0 , 8 
1100  t$=mid$ (str$ (int (1+.5) ) ,2,4) 

1110  sp$=right$("  " , 3-len (t*> > 

1120  b*="n" :  i f b<0thenb$="s" 

1130  text304,0,b», 1 ,0,8 

1140  tex t2 16,8, "laenge  "+sp$+t$, 1 ,0,8 

1150  1 $="w" : i f l<0thenl *="o" 

1160  text304 ,8 , 1$, 1,0,8 
1170  tex t 32 , 96," o" ,1,0,8 
1180  t ex t 280, 96, "w ",1,0,8 
1190  gosub2010 
1200  gosub2110 

1210  tex t 288 , 128 ,  "f  5  =",1,0,8 
1220  text288, 136, "copy" ,1,0,8 
1230  text288 , 152 ,  "f  7  =",1,0,8 
1240  text256, 160, "neustart", 1 ,0,8 
1250  return 

2000  block0, 128,39, 143,0 
2010  text0, 128,  "-f  1  =",1,0,8 
2020  text0, 136, "stern" ,1,0,8 
2030  return 

2050  block0, 128,39, 143,0 
2060  text0, 128, "sucht" ,1,0,8 
2070  text0, 136, "stern" ,1,0,8 
2080  return 

2100  black0, 152,39, 159,0 
2110  block0, 160, 71, 167,0 
2120  text0 , 152 ,  "-f  3  =",1,0,8 
2130  text0, 160, "Sternbild" ,1,0,8 
2140  return 

2150  block0, 152,39, 159,0 
2160  block0, 160, 71, 167,0 
2170  text0, 152, "sucht" , 1 ,0,8 
2180  tex t0, 160, "Sternbild" ,1,0,8 
2190  return 

4996  rem  ********************** 

4997  rem  *  hi res  kreuz  * 

4998  rem  ********************** 

5000  design  0,32*64+49152 

5020  @ . b . 

5030  @ . b . 

5040  @ . b . 

5050  @ . b . 

5060  ©b.b.b.b.b.b . 

5070  @ . b . 

5080  @ . b . 

5090  @ . b . 

5100  @ . b . 

5110  @ . 

5120  @ . 

5130  @ . 

5140  @ . 

5150  @ . 

5160  @ . 

5170  8 . 

5180  @ . 

5190  @ . 

5200  @ . 

5210  @ . 

5220  @ . 


5230  mob  set  1,32,0,1,0 
5240  hn=179: vn=145 
5250  mmobl ,hv,vv,hn,vn,0,0 
5260  return 

9996  rem  ********************* 

9997  rem  *  erde/sonne/mond  * 

9998  rem  ********************* 

10000  rem  **  erde  ** 

10100  be=-fnmo(tg*. 985609121+99.  1B) 

10200  el  =-f  nmo  (be+sin  (  (be— 102.  2)  *pl  >  *1 . 84 
5) 

10300  ea=l+si n ( (el — 192. 2) *p 1 ) *. 0167 
11000  rem  **  sonne  ** 

11200  ls=-fnmo  (el  +  180) 

12000  rem  **  mond  ** 

12010  lm=tg*13. 1763976+51.23 
12020  pm=tg*. 111399014+208.9 
12030  km=372. 1-tg*. 052953643 
12040  lm=-fnmo(lm) 

12050  pm=-fnmo(pm) 

12060  km=f nmo (km) 

12070  am=lm— pm 

12080  km=km— sin (as*pl ) *. 16 

12090  ms= (lm— 1 s) *2— am 

12100  am=am+sin (ms*pl ) *1 . 27388889-sin (as 
*pl)*(. 1 8638889+ . 36 ) 

12110  1 m=l m+si n ( ms*p 1 ) * 1 . 2738B8B9-si n ( as 
*p 1 ) * . 1 B638889+si n ( am*p 1 ) *6 . 28833333 
12120  ml=lm— ls 

12130  1 m=l m+si n ( m 1 *2*p 1 >  * . 658333333 
12140  m2=l m— km 

12150  lm=lm-sin (m2*2*pl)*. 12 

12160  bm=sin (m2*pl ) *5. 14539 

12170  m3= ( 1 m— 1 s ) *2-m2 

12180  bm=bm+sin (m3*pl)*. 15 

1 5000  n*= " sonne ” : al =1 s : ab=0 : gosub30000 

15010  i fx=0goto 15040 

15020  circl ex ,y ,4 ,3 , 1 

15030  paintx+l,y,l 

15040  ni=”mond" : al=lm: ab=bm: gosub30000 

15050  i-fx=0gato  15080 

15060  plotx,y,0 

15070  circlex ,y,4,3, 1 

15080  return 

19996  rem  ********************* 

19997  rem  *  planeten  * 

19998  rem  ********************* 

20000  reset62500 

20010  -f  orz=0to5 

20020  readn$ , tb , ep , ph , mp , e , kn , i , ae 
20030  p$(z)=n* 

20040  ml=f nmo (tb*tg+ep) 

20050  wl=ml+sin ( (ml-ph)*pl)*mp 
20060  sp=ae+sin ( (wl— ph-90) *pl ) *e*ae 
20070  N5=fnmo (c+el -wl ) *pl : si=sin (ms) 
20080  -f  l=ea/sp— cos  (ws) 

20090  we=atn  (si/-f  1  )*p2 

20100  al=-f  nmo  (el+we-180*  (-fl  >=0)  ) 

20110  wt=sin ( (wl— kn) *pl)*i 

20120  ab=atn (tan (wt*p 1 ) *abs (sin (we*pl ) /s 
i ) ) *p2 

20130  gosub30000 

20140  p (2*z)=x:p(2*z+l)=y 

20150  next 

20160  return 

24996  rem  ********************* 

24997  rem  *  -fixsterne  * 

24998  rem  ********************* 

25000  reset60000 

25010  f ors=ltoi 1 
25020  readre,de,ni,a 
25030  de=de*p 1 
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25040  nl*=z$(a, 1) :n2*=z*(a,0) 

25050  gosubl00 
25060  z7.(s)=x:z7.(s+i2)=y 
25070  next 
25080  return 

29996  rem  ********************* 

29997  rem  *  rektas. /dekl i n .  * 

29998  rem  ********************* 

30000  sn=sin (ab*pl ) : cs=cos (ab*pl ) 

30010  sl=sin (al*pl ) : cl=cos (al*pl ) 

30020  de=f  nas  (ec*sn+es*cs*sl  ) 

30030  re=2*atn ( (ec*cs*sl -es*sn) / (cos (de) 
+cs*cl ) ) 

30040  re=-f  nmo  (re*p2) 

30050  goto 100 

39996  rem  ********************* 

39997  rem  *  eingaben  * 

39998  rem  ********************* 

40000  getg$: if g$=" "thenv=l : goto40000 
40010  p=asc(g$) 

40020  if p=17thenvn=vn+v:  goto41000 
40030  if p=145thenvn=vn— v:  goto41000 
40040  i f p=29thenhn=hn+v: goto41000 
40050  if p=157thenhn=hn— v:  goto41000 
40060  i-f  p=133thengosub2050:  goto42000 
40070  if p=134thengosub2150: goto42000 
40080  ifp=135got o57000 
40090  i f p=136goto58000 
40100  i f p>64andp<91goto47000 
40110  goto40000 
41000  v=v+. 5 

41010  mmobl ,hn,vn,hn,vn,0,0 
41020  goto40000 

42000  x=int (hn— 19) : y=int (vn— 46) 

42010  x  m=200000 
42020  ifp=134goto44000 
42030  f ora=0tol0step2 
42035  f  =p ( a ) — x : h=p ( a+ 1 ) -y 
42040  xx=f*f+h*h 
42050  if xx<xmthenxm=xx : zp=a 
42060  i f xx=0thena= 12 
42070  next 

42080  n*=p$ (zp/2) :nl*="  " : n2$="  " 

42090  if xx=0goto45000 

44000  xp=xm 

44010  fora=0toil 

44015  f=z7.  (a)-x:  h=z%  (a+i2)  — y 

44020  xx=f*f+h*h 

44030  if xx<xmthenxm=xx : z=a 

44040  if xx=0thena=i2  „ 

44050  next  Listing  Sternen- 

44060  x=p  (zp) :  y=p  (zp+l )  himniel  (Fortsetzung) 
44070  if xp=xmgoto45000 
44080  x=z7.(z)  :y=z'/.(z+i2) 

44090  reset60000+z*10 

44100  readre,de,n$,d 

44110  nl$=z*(d,l) :n2$=zi(d,0) 

44120  if p=134thenz l=z : z=d: gosub2100: goto 
48060 

45000  gosub2000 

45010  hv-hns  vv=vn: gosub500: goto40000 
47000  n*=g$:nl*-”  ":n2*="  " 

47010  gosub340: gosub360 

47020  getg*: i f g*=” "goto47020 

47030  if asc (g$)=20thengosub600: goto47020 

47040  ifasc(g$)=13goto47060 

47050  n$=n$+g $ : gosub350 : goto47020 

47060  p=0: z=-l 

47070  fors=0to5 

47080  i f pl ace (n$,p$ (s) ) thenz=s: s=5 
47090  next 

47100  if z<0goto48000 


47110  hv=hn: vv=vn 
47120  x=p(2*z) :y=p(2*z+l) 

47130  nl*=pS(z) :n2*="  " 

47140  if x=0goto400 
47150  gosub500: goto40000 
48000  fors=0toi3 

48010  if pl ace (nt,zl(s,0) ) thenz^s: s=i3 
48020  if pl ace (n*,z* (s, 1 ) ) thenz=s: s=i3 
48030  next 

48040  if z<0goto49000 
48050  zl=-l 

48060  al=z (z , 1 ) : a2=al+z (z , 0) 

48070  if z 1 >=0goto48120 
48080  fora=altoa2 
48090  i  f  z7.  (a)  thenz  l=a:  a=a2 
48100  next 

48110  if z l<0thennl$=z$ (z , 1 ) : goto400 

48120  f =0: hv=hn: vv=vn 

48130  nl$=z*(z,l):n2*=zt(z,0) 

48140  x=z7.  (z  1 )  :  y=z7.  (z  l+i2)  :  gosub500 
48150  f ora=altoa2 
48160  x=z7.(a> 

48170  i  f  xthenpl  otx  ,z'/.  (a+i2)  ,f 

48180  next 

48190  f=l-f 

48200  if f =lgoto48150 

48210  getg$: p=asc (g*+chr$ (0) ) 

48220  ifpgoto40020 

48240  f ora=ltol000*f +10: next 

48250  goto48150 

49000  reset60000 

49010  fors=ltoil 

49020  readre,de,sf,a 

49030  i f pl ace (n$ ,s* ) thenz=s: s=i2 

49040  next 

49050  i f z<0thenhn=x+19: vn=y+46: goto450 
49060  i  f  z7.  (z  )  =0thennl*=s$ :  goto400 
49070  hv=hn:vv=vn 
49080  x=z7.(z):y=z7.(z+i2) 

49090  n$=s$:nl$=zf(a,l) :n2$=z*(a,B) 

49 1 00  gosub500 : goto40000 

49996  rem  ******************** 

49997  rem  *  programmbeginn  * 

49998  rem  ******************** 

50000  csetl 

50010  i f peek (900) >0andpeek (900) < 1 lthen50 
110 

50020  print"Heutiges  Datum" 

50030  input "Jahr  ";j* 

50035  ji="19"+right$ ( j*,2> 

50040  i nput" Monat "jm* 

50050  input "Tag  ";t* 

50060  a*=t*+". "+m$+". "  +  j$ 

50070  fora=ltolen(af) 

50080  poke900+a ,asc (mid$ (a* , a , 1 ) ) 

50090  poke900,a 
50100  next 

50110  t*=left*(ti$,4) 

50120  print "Uhr zeit  HHMM" 

50130  printtab (B) t$ 

50140  print""tab (6) ; : inputtl*: 

50150  if  t$Otl$thenti*=right*  ("0"+tl#+“0 
0"  ,6) 

50160  af=" “ 

50170  f ora=0topeek (900) 

50180  ai=ai+chr$ (peek (900+a) ) 

50190  next 

50200  i 1=124: i2=125: i3=22:f =1 
50210  pi s  p l=pi / 180: p2=180/pi : c=360 
50220  dimz*(i3,l),z(i3,l),p(U)  ,z7.(2*i2) 

50300  print"" 

50301  printtab  (11)  "  -###############7." 


60 
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50302  printtab (1 1 )" '  Sternenhimmel  X" 
50304  printtab  (11)  ”  ’  *SSS*SS*SSS**t*7." 
50310  print"Breite  90  (noerdl)  bis  —90 
(suedl . ) " 

50320  print"Laenge  180  (westl . )  bis  -180 
(aestl . ) " 

50330  print"Vor gegeben  sind  die  Werte  vo 
n  Hamm  und  die  heutige  Zeit." 

50340  print"Breite  "52: print" "tab ( 10 

) ; : inputb 

50350  i-fabs  (b)  >=90then50340 

50360  print"Laenge  " ; — 8: print“"tab ( 

10) ; : inputl 

50370  i-fabs  (1  >  >180then50360 
50380  sb=sin (b*pl ) : cb=cos (b*pl ) 

50390  print"Jahr  "right* (aS, 4) 

50400  print " "tab ( 1 0) i nputj 
50410  t=int (val (mid* (a*,2) ) ) 

50420  m=int (val (mid* (at,len (str*(t) )+2,2 
)  )  ) 

50430  print "Monat  "m 

50440  print" "tab (10) ; : i nputm 
50450  i f m>12orm< lthen50440 
50460  print"Tag  ";t 

50470  print" "tab ( 10) inputt 
50480  if  t< lort>31then50470 
50490  wz=int(val (ti*)/100)-100 
50495  i f wz< 1 00thenwz=wz  +2400 
50500  print "Wel tzeit  hhmm" 

50505  pri nttab ( 12) right* (stri ( wz ) ,4) 
50510  pri nt " "tab (10) ; : inputwz*: wz=val (wz 
*> /100 

50520  i f wz<0orwz >24goto50510 
50530  zt=int (wz > +f rac (wz ) /. 6 
50600  i=m<3 

50610  k=t+i nt ( ( 153*m- 1 l*i - 162 ) /5)+int ( (1 
461* j+i) /4)+( j>=0)*366 

50620  if k>577736thenk=k-int ( ( i nt ( ( j+i ) / 1 
00) *3-5) /4) 

50630  ta=k-693596: tg=k-71 1858+zt/24: i=ta 
/ 36525 

50640  e=23. 452294-i *- 0 13125— i *i *1 . 639e— 6 
+i*i*i*5. 028e-7 

50650  es=sin (e*pl ) : ec=cos (e*pl ) 

52000  rem  **  funktionen  definieren  ** 
52010  rem  **  arcsin  ** 

52020  def f nas (x ) =atn (x/sqr ( 1— x*x ) ) 

52030  rem  **  arccos  ** 

52040  def f nac (x ) =pi /2— atn (x/sqr ( 1— x*x ) ) 
52050  rem  **  modulo  ** 

52060  def f nmo (x ) =x-int (x/c)*c 
54000  rem  **  zeit  ** 

54010  wz*=mi d* (strf (int <f rac (wz ) *100+.  5) 
>  ,2) 

54020  wz*=right*("0”+wz*,2) 

54030  wz*=right*("  "+strt (int (wz ) ) ,3) +" : 
"+wz* 

54040  1 o=int (1 / 15) *15 

54050  oz  =f nmo (z  t* 15-1 o) / 15 

54060  oz*=right*("  "+str* (i nt (oz ) ) ,3) +ri 

ght*(wz*,3> 

54200  rem  ari  es 

54210  ar=zt*360. 9B5647/24+f rac (ta/ 1461 >* 
1440.02509 

54220  ar=ar+i nt (ta/ 1461 >*. 0307572+99. 201 
8973 

54230  ar=fnmo(ar) 

54300  rem  daten  Sternbilder 
54310  reset62000 
54320  fora=0toi3 

54330  readz* (a,0) ,z* (a, 1 ) ,z (a,0) ,z (a , 1 > 
54340  next 


54350  ifwhgot o56000 
55000  rem  **  anleitung  ** 

55010  print"Dieses  Programm  zeichnet  ein 
e  Sternen-" 

55020  print"karte  mit  der  Sonne,  dem  Mon 
d ,  den " 

55030  prinf’Planeten  und  den  Fixsternen. 
" : print 

55040  pri nt "Die  Namen  der  Sterne  oder  de 
ren" 

55050  pri nt " Standorte  koennen  wie  folgt 
gesucht" 

55060  print”werden: print 

55080  print"Mit  den  Cursor — Tasten  das  Kr 

euz  auf “ 

55090  print "oder  in  die  Naehe  des  Sterne 
s  fuehren" 

55100  print”und  fl  druecken .  "  : print 
55110  print"Wenn  das  ganze  Sternzeichen 
gesucht " 

55120  print"wird,  dann  f3  druecken. ":pri 
nt 

55130  print"Wenn  der  Name  oder  ein  Teil 
des  Namens" 

55140  print "ei nes  Sterns  oder  Sternbilde 
s  eingegeben"; 

55150  print"wird,  geht  das  Kreuz  alleine 
auf  den” : print"Stern" 

55160  print"Bei  einem  Sternbild  blinken 
die  dazu-" 

55170  print"gehoerigen  Sterne. pri nt 

55180  print"Weiter  =  Taste  druecken!"; 

55200  pokel98,0: waitl98, 1 

56000  gosub  1000:rem  bildschirm 

56010  gosub 10000: rem  sonne  mond 

56020  gosub20000: rem  planeten 

56030  gosub25000: rem  fixsterne 

56040  gosub  5000: rem  kreuz 

56050  goto40000 

57000  rem  **  hardcopy  ** 

57100  copy 

57110  goto40000 

58000  rem  **  neustart  ** 

58010  nrm: csetl : mob  off  l:wh=l 
58020  goto50300 

60000  rem  **  daten  fixsterne  ** 

60010  data037. 8,89. 3, polaris, 0 
60020  data269.8,86.0,umi2,0 
60030  data252. 5 ,82. 2,umi3,0 
60040  data246.3,75.5,umi4,0 
60050  data238. 5,78. 0,umi5,0 
60060  dat  a230. 2,71.8, pherkad , 0 
60070  data222. 7,74.2, kochab , 0 
60080  data206- 9,49. 3,benetnasch , 1 
60090  data201 . 0,54. 9 , mizar , 1 
60100  data 193. 5,56. 0,al ioth , 1 
60110  data 183. 9 , 57 . 0 , megrez , 1 
60120  data 178. 5,53. 7,phekda, 1 
60130  data 165. 9,61 . 8,dubhe, 1 
60140  datal65. 5,56. 4 , merak , 1 
60150  dat a28. 6 , 63. 7 , casl , 2 
60160  data21 . 5,60. 2,cas2,2 
60170  datal4 . 2 , 60. 7 , cas3 , 2 
60180  datal0. 1 ,56. 5,schedir ,2 
60190  data2. 3,59. 2 , caph ,2 
60200  data  3. 3 , 15. 2 , al geni b , 3 
60210  data346.2,15.2,markab,3 
60220  data343. 9,28. 1 ,scheat ,3 
60230  data31 1 . 6,34. 0,cygl ,4 
60240  data310. 4,45. 3,deneb ,4 
60250  data305. 6,40. 3 ,schedir ,4 
60260  data296. 2 , 45. 1 , cyg4 , 4 
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60270  dat a292 . 7 , 28 . 0 , al b i reo , 4 
602B0  data302. 8 ,-0. 8 , aql 1 ,5 
60290  data297 . 7 , 0B. 9 , atair , 5 
60300  data296. 6,10.6, aql 3 , 5 
60310  data292.0,03.5,aql4,5 
60320  data2B6. 6, -4. 9, aql 5, 5 
60330  data2B6.4, 13.9,aql6,5 
60340  data2B4.7,32.7,lyrl ,6 
60350  data283. 0 ,37 . 0 , lyr2, 6 
60360  data2B2. 5,33. 4,1 yr3 , 6 
60370  data2B0. 2,38. 8 , 1 yr4 , 6 
60380  data279 . 2 , 3B . B , wega , 6 
60390  dat a265. 6,-39. 0, sco 1 ,7 
60400  data264 . 3 , —43. 0 , sco2 , 7 
60410  dat a263. 4,-37. l,sco3,7 
60420  data262. 7 , —37 . 3 , sco4 , 7 
60430  data252. 5 , -34. 3 ,sco5 , 7 
60440  data249. 0 , -28. 2 , sco6 , 7 
60450  data247. 3,-26. 4, antares, 7 
60460  data241 . 4,-19. B , acr ab ,7 
60470  data240. 1 ,-22.6,sco9,7 
604B0  data239. 7 , -26. 1 , scolß, 7 
60490  data228. 9 , 33. 3 , bool ,8 
60500  data225. 0,41.0, boo2 ,8 
60510  data221 . 2 , 27. 1 , boo3 , 8 
60520  data218. 0 ,3B. 3 , boo4 ,8 
60530  data2 18. 0,30 . 5 , boo5 , 8 
60540  data213. 9,19.2, arktur ,8 
60550  data201 .3,-11. 2,spi ka,9 
60560  datal98.0,  — 7.5,vir2,9 
60570  datal95.5,  11.0,vir3,9 
60580  data 193. 9 ,  3.4,vir4,9 

60590  datal90. 0 ,  -1.0,vir5,9 
60600  datalB5. 0,  0.0,vir6,9 

60610  datal77. 0,  2.0,vir7,9 

60620  datal91 . 9 , —59 -7,crul,10 
60630  datal87. 8,-57. 1 ,cru2, 10 
60640  data 186. 7,-63. 1 ,cru3, 10 
60650  datal83.B,-58.B,cru4, 10 
60660  datal77. 3, 14. 5,denebola , 1 1 
60670  data 168. 6,15. 4,leo2, 1 1 
60680  data 168. 5,20. 5 , 1 eo3 ,11 
60690  data 155. 0,19.9, leo4, 1 1 
60700  data  152.  1,12. 0 ,regul us  ,11 
60710  dat al51.8, 16.8,1 eo7 ,11 
60720  data 146. 5,23. 8,1 eo6 ,11 
60730  datal 16.3, 28. 0,pollux,12 
60740  datal 13. 7 , 31 . 9 , kastor , 12 
60750  datal0 1 .3,12. 9 ,gem3 ,12 
60760  datal01 . 0,25. 1 ,gem4, 12 
60770  data  99. 4, 16.4,gem5, 12 
60780  data  95. 7,22.5,gem6, 12 
60790  datal 11. 0,-29 . 3,cmal ,13 
60800  datal 07. 1 , —26. 4 ,cma2 ,13 
60810  datal04. 7,-29. 0,cma3, 13 
60820  datal01. 3,-16. 7, sirius, 13 
60830  data  98. 2,-18. 0,cma5 , 13 
60840  data90.0,37.2,aur 1 , 14 
60850  data89. 9 , 45. 0 ,aur2, 14 
60860  data79. 2,46. 0,capel 1 a , 14 
60870  data75. 5 , 43. 8 , aur4 , 14 
60880  data74.3,33.2,aur5, 14 
60890  dataBB.B,  7 . 4 , betei geuze , 15 
60900  data86. 9 , —9 . 1 , or i 2 ,15 
60910  data85. 2 , —2. 0 , ori 3, 15 
60920  data84. 1,— 1.2,ori4,15 
60930  data83. 0 , —0. 3 , ori 5 ,15 
60940  data81 . 3,  6. 4, bei 1 atrix , 15 
60950  data78.6,-8.2,rigel , 15 
60960  data59. 5,40. 0,per 1 , 16 
60970  data58. 5,31 . 9,per2, 16 
60980  dat a55. 7, 47. 8, per 3, 16 


60990  data51 .1,49. 9 ,algenib ,16 
61000  data47. 0,41 -0,algol ,16 
61010  data46. 2 , 53. 5 , per6 , 16 
61020  data31 . 0 , 42. 0 , al amak ,17 
61030  datal7. 4 , 35. 6 , mirach ,17 
61040  data  9. 8,31 . 9 ,and3, 17 
61050  data  2. 1 ,29. 1 , sirrah , 17 
61060  data354. 8,77. 6,cepl ,18 
61070  data342. 5,66. 0,cep2, 18 
61080  data322.  2,70. 6,al-frik,18 
61090  data319. 6,62. 6,alderamin, 18 
61100  data269. 2,51.5,dral ,19 
61110  data262. 6,52. 3,dra2, 19 
61120  data231 . 2 , 59. 0 , dra3 ,19 
61130  data246. 0,61. 5, dra4 ,19 
61140  data257 . 2,65. 7 , dr a5 ,19 
61150  data288. 1 ,67.7,dra6, 19 
61160  data31 . 8,23. 5,hamal ,20 
61170  data28. 7 , 20. B , ari2 , 20 
61180  data84. 4,21 . 2, taul ,21 
61190  data81 . 6 ,28. 6 ,elnath ,21 
61200  data69. 0, 16.5, aldebaran ,21 
61210  data58. 8,12.5 , tau4, 21 
61220  data56. 9 , 24. 1 , pl e Jaden ,21 
61230  datal 14. 8,5. 2,prokyon ,22 
61240  datal 11.8,B.3,cmi2, 22 
62000  rem  **  daten  Sternbilder  ** 

62010  dataursa  minor , kleiner  wagen, 6,1 

62020  dataursa  mai or , grosser  wagen, 6, 8 

62030  dat acassi opei a , kassi opei a , 4 , 15 

62040  datapegasus, pegasus, 2, 20 

62050  datacygnus , schwan , 4,23 

62060  dataaqui lla,adler ,5,28 

62070  datal yra, lei er ,4,34 

62080  datascorpi us, Skorpion, 9, 39 

62090  databootes ,bootes ,5,49 

62100  datavirgio, jungt rau,6,55 

62110  datacrux , kreuz  sueden,3,62 

62120  dataleo,loewe,6,66 

62130  datagemini , Zwillinge, 5, 73 

62140  datacanis  maior , grosser  hund,4,79 

62150  dataauriga,+uhrmann ,4,84 

62160  dataorion,orion,6,89 

62170  dataperseus , perseus ,5 , 96 

621B0  dataandromeda , andromeda ,3, 102 

62190  datacepheus , kepheus , 3 , 106 

62200  datadraco , drache ,5,110 

62210  dataaries, Widder , 1 , 1 16 

62220  datataurus , stier ,4,118 

62230  datacanis  minor , kleiner  hund, 1,123 

62500  rem  *»  daten  planeten  ** 

62510  datamerkur ,4. 0923,  31.19,  76.987 
62520  data23. 00 , . 2056 ,  47.826,7.004,  0.3 
871 

62530  datavenus  ,1.6021,  80.85,131.149 
62540  data  0.76, .0068,  76.410,3.394,  0.7 

233 

62550  datamars  ,0.5240,144.14,335.507 
62560  datal 1 . 00, . 0934 ,  49.326,1.850,  1.5 

237 

62570  datajupiter , . 0831 ,316. 19,  13.B39 
62580  data  5.30,-0485,100.146,1.305,  5.2 
028 

62590  datasaturn ,0. 0335, 158. 36,  92.460 
62600  data  5. 50 , . 0557 , 1 13. 51 1 , 2. 486 ,  9.5 
810 

62610  datauranus, 0.0117,  98.38,170.173 
62620  data  5.70, .0472,  73.847,0.773,19.1 
823 

62700  rem  *•*  e  n  d  e  ** 

Listing  Sternenhimmel  (Schluß) 
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C  64 


Trickfilm  mit 
dem  C  64 

In  die  vierte  Dimension,  die  bewegte 
dreidimensionale  Grafik,  dringen  Sie 
mit  unserem  Listing  des  Monats  vor. 

Der  »3D-Movie  Maker«  muß  in  zwei  Teilen  eingegeben  wer¬ 
den:  zuerst  das  Maschinenprogramm,  dann  der  Basic-Teil. 
Wenn  das  Maschinenprogramm  eingegeben  und  gestartet 
wurde,  so  speichert  es  sich,  falls  kein  Prüfsummenfehler  auf¬ 
trat,  selbst  als  »TRICK.OBJ«  ab.  Man  braucht  sich  nun  nicht 
mehr  darum  zu  kümmern.  Bei  dem  Basic-Teil,  der  nun  eingege¬ 
ben  werden  kann,  dürfen  alle  REM-Zeilen  ersatzlos  wegfallen. 
Beim  Start  des  Basic-Teils  wird  automatisch  der  Maschinenteil, 
der  sich  auf  Diskette  befinden  sollte,  nachgeladen. 

Bedienung  —  Eingabe  des  Körpers 

Vor  der  Benutzung  des  Programmes,  müssen  die  Punkte 
Verbindungs-  und  Bewegungsvorschrift  des  Körpers  in  den 
DATA-Zeilen  ab  8000  festgelegt  werden.  Dies  ist  notwendig, 
damit  bei  Änderungen  oder  einem  erneuten  Start  nicht  alles 
wieder  neu  eingegeben  werden  muß.  Die  DATA-Zeilen,  die  das 
Listing  momentan  enthält,  erzeugen  den  auf  dem  Bildschirm 
herumfliegenden  Schriftzug  »64'er«.  Die  Punkte  werden  mit  X, 
Y  und  Z-Koordinaten  eingegeben.  Als  Endmarke  dient  hier 
dreimal  die  1000.  Bei  der  Verbindungsvorschrift  wird  jeweils 
der  Anfangs-  und  Endpunkt  angegeben  zum  Beispiel:  Von 
Punkt  1  nach  Punkt  2  =  DATA  1,2.  Hier  dient  zweimal  die  1000 
als  Endmarkierung. 

Beispiel:  Man  will  ein  Kreuz  erzeugen. 

Punkte:  DATA  0,10,0,10,0,0,— 10,0 

DATA— 10,  0,0,  1000,1000,1000 
Verbindungsvorschrift:  DATA  1,3,2,4,1000,1000 

Bei  der  Bewegungsvorschrift  ist  es  allerdings  etwas  kompli¬ 
zierter.  Hier  müssen  zweimal  drei  Verschiebungsarten,  drei 
Drehungsarten  und  die  Dauer  des  Vorgangs  angegeben  wer¬ 
den.  Zuerst  kommt  die  erste  Verschiebung  in  X-,  Y-  und  Z- 
Richtung,  dann  die  Drehung  um  die  drei  Achsen,  nun  die  zwei¬ 
te  Verschiebung  und  zum  Schluß  die  Dauer  des  Ganzen.  Diese 
Reihenfolge  hat  folgenden  Sinn: 

Wird  zuerst  verschoben  und  dann  gedreht,  dreht  sich  die  Fi¬ 
gur  um  den  Bildschirmmittelpunkt.  Bei  umgekehrter  Reihenfol¬ 
ge  dreht  sich  die  Figur  an  beliebiger  Stelle  um  ihren  eigenen 
Mittelpunkt.  Hier  ein  Beispiel  einer  DATA-Zeile: 

DATA  0,0, 0,5, 0,0,  0,5,0,  10 

Die  Figur  bewegt  sich  10  Bilder  lang  um  jeweils  5  Stellen 
nach  oben  und  dreht  sich  dabei  um  jeweils  fünf  Grad  um  die 
X-Achsa  Einen  Zoomeffekt  erreicht  man  durch  Verschieben  in 
der  Z-Achse,  so  kann  man  zum  Beispiel  mit  DATA 
0,0,0,0,0,0,0,0,1,50  eine  Figur  langsam  vergrößern.  Hier  bil¬ 
det  einmal  die  1000  die  Schlußmarkierung.  Um  die  vielen  ver¬ 
schiedenen  Möglichkeiten  der  Bewegung  zu  entdecken,  lohnt 
es  sich,  die  verschiedenen  Kombinationen  auszuprobieren 
(und  dabei  mit  einfachen  Bewegungen  anzufangen). 
Bedienung  —  Ablauf  des  Programms 

Der  »3D-Movie-Maker«  stellt  vier  Menüpunkte  zur  Wahl: 

1.  Erzeugen  einer  Grafik 

Hierbei  berechnet  der  Computer  die  Anzahl  der  Bilder  und 
fragt  diese  noch  einmal  ab.  Sollen  alle  Bilder  gezeichnet  wer¬ 
den,  braucht  nur  RETURN  eingegeben  werden.  Nun  wird  der 
Speicherbedarf  berechnet;  reicht  der  vorhandene  Speicher 
von  23  KByte  aus,  so  beginnt  der  Rechenvorgang.  Dabei  wird 
die  Anzahl  der  fertigen  Bilder  angezeigt.  Ist  der  Rechenvor- 
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Radius  =  Xz  +  Y5 

Bild  1.  Angabe  der 
Winkel  in  Bogenmaß 
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X  =  cosa  •  Radius 

Y  =  sirv*  •  Radius 

2.  Berechnung  der 
len  Koordinaten 

Felder: 

X(l),  Y(l),  Z(l) 

Originalkoordinaten  der  Figur  aus  den  DATA- 
Zeilen 

X1(l),  Y1(l),  Z(l) 

Koordinaten  beim  Rechnen  und  für  das  POKEN 

P1(l),  P2(l) 

Verbindungsvorschriften  aus  den  DATA-Zeilen 

Normale  Variablen: 

PO 

Speicherpointer  für  fertige  Daten 

Q-1 

Zähler  für  fertige  Bilder 

A2 

Anzahl  der  Linien  pro  Bild 

AI 

Anzahl  der  Punkte  pro  Bild 

AN 

Anzahl  der  Bilder 

PI,  P2,  P3,  P4. 

Variablen  zur  Berechnung  des  zu  löschenden 

PB,  PA 

Bildschirmbereichs 

WX,  WY,  WZ,  XA. 

Variablen  für  die  Drehbewegungen  und  Ver- 

YA,  ZA,  XB,  YB, 

schieben  (werden  bei  jedem  Bild  auf  Wl.  . 

ZB 

aufaddiert) 

W1,  W2,  W3.  XI, 

Momentane  Lage  des  Körpers 

Y1,  ZI,  X2,  Y2. 

Z2 

Variablenliste 

gang  beendet  (bei  150  Bildern  mit  je  10  Punkten  zirka  eine  hal¬ 
be  Stunde)  kehrt  das  Programm  ins  Menü  zurück.  Durch  das 
Drücken  der  Leertaste  kann  man  sich  während  der  Berech¬ 
nungen  den  Film  ansehen  und  dann  durch  nochmaliges  Betä¬ 
tigen  fortfahren. 

2./3.  Laden/  Speichern 

Da  das  Erstellen  eines  Films  recht  lange  dauert,  kann  man 
fertige  Filme  abspeichern  und  laden.  Das  Programm  hängt  an 
den  Filenamen  automatisch  ein  ».GRA«  an,  so  daß  die  Dateien 
in  der  Directory  sofort  erkennbar  sind.  Tritt  ein  Disk-Error  beim 
Laden  oder  Speichern  auf,  landet  man  wieder  in  der  »INPUT 
FILENAME«-Zeile.  Hier  noch  ein  Hinweis  zur  LOAD-Routine: 
Da  das  Einlesen  von  23  KByte  mit  einer  GET-Schleife  nicht 
einwandfrei  funktionierte  und  15  Minuten  dauerte,  verwendet 
die  jetzige  Version  die  LOAD-Routine  des  Betriebssystems. 
4.  Abspielen 

Beim  Aufruf  dieser  Funktion  wird  man  zuerst  nach  der  An¬ 
zahl  der  Durchläufe  (maximal  255)  und  nach  der  Anzahl  der 
Bilder  je  Lauf  gefragt.  Beim  letzteren  braucht  man  nur  RE¬ 
TURN  eingeben,  um  alle  Bilder  ablaufen  zu  lassen. 

Der  Algorithmus 

Das  eigentliche  Kernstück  des  Programms  ist  ein  Algorith¬ 
mus,  der  die  Punkte  um  einen  Winkel  dreht,  die  X-,  Y-  und  Z- 
Koordinaten  in  Bildschirmkoordinaten  umrechnet  und  dann 
die  außerhalb  liegenden  Teile  der  Linien  wegstreicht.  Beim 
Drehen  (hier  um  die  Z-Achse)  werden  erst  X-  und  Y-Koordi- 
naten  in  Radius  und  Winkel  (im  Bogenmaß)  umgerechnet;  be¬ 
zogen  auf  den  Koordinatenursprung  (siehe  Bild  1).  Nun  wird 
der  Winkel,  um  den  gedreht  werden  soll,  addiert  und  die  neuen 
Koordinaten  werden  aus  dem  neuen  Winkel  und  dem  Radius 
errechnet  (siehe  Bild  2). 

Beim  Umrechnen  in  Bildschirmkoordinaten  wird  einfach  die 
Z-Koordinate  auf  die  X  und  Y-Koordinate  so  aufgerechnet,  daß 
Punkte,  die  weiter  vorne  liegen,  vom  Mittelpunkt  wegrücken. 
Außerdem  wird  der  Koordinatenursprung  in  die  Bildschirmmit- 
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te  verlegt.  Durch  dieses  Verfahren  wird  die  Figur  mit  einem 
Fluchtpunkt  in  der  Mitte  des  Bildschirms  dargestellt.  Das  nun 
folgende  Wegstreichen  der  außerhalb  liegenden  Linien  und  Li¬ 
nienstücke  geschieht  mit  Hilfe  einer  Gradengleichung.  Falls 
nur  Teile  der  Geraden  außerhalb  des  Bildschirms  liegen,  wird 
der  äußerste  Wert  für  X  beziehungsweise  Y  angenommen  und 
die  fehlende  Koordinate  errechnet  (siehe  Bild  3). 
Beschreibung  der  Maschinenroutine 
Die  Zeichenroutine  des  »3D-Movie-Makers«  übernimmt  die 
Verwaltung  der  Grafik  und  ist,  zum  Erreichen  eines  Trickfilmef¬ 
fekts,  ganz  auf  Geschwindigkeit  ausgelegt.  Aus  diesem  Grund 
erhielt  sie  die  folgenden  Merkmale: 

—  Sie  ist  in  Assembler  geschrieben. 

—  Sie  berechnet  keine  Punkte,  sondern  zeichnet  nur. 

—  Die  Koordinaten  werden  nicht  geprüft,  das  heißt:  das  Basic- 
Programm  darf  keine  »unmöglichen«  Koordinaten  übermitteln. 

—  Der  Bildschirm  wird  nur  so  weit  gelöscht,  wie  es  nötig  ist. 

—  Die  Zeropage-Addressierung  wird  in  breitem  Umfang  be¬ 
nutzt. 

—  Der  IRQ  wird  abgestellt. 

Das  wichtigste  Mittel  zur  Erzeugung  eines  flüssigen  Bilder¬ 
ablaufs  und  die  Grundidee  der  Routine  ist  jedoch  das  »ver¬ 
deckte  Zeichnen«.  Dafür  werden  zwei  Bitmaps  benötigt  (bei 
unserem  Programm  ab  $A000  und  $E000).  Während  nun  ei¬ 
ne  der  beiden  zu  sehen  ist,  wird  auf  der  anderen  gezeichnet. 
Nun  wird  das  neue  Bild  sichtbar  gemacht  und  das  alte,  wel¬ 
ches  nicht  mehr  zu  sehen  ist,  wird  gelöscht.  Dieser  Vorgang 
wiederholt  sich,  bis  alle  Bilder  abgearbeitet  sind.  Hier  noch  ei¬ 
ne  Anmerkung:  die  Lineroutine  haben  wir  mit  einigen  Änderun¬ 
gen  dem  Artikel  »Ein  schneller  Drawline-Algorithmus«  aus  dem 
64’er,  4/84  entnommen.  Die  Funktion  läßt  sich  am  besten  dort 
nachvollziehen.  (Armin  und  Dirk  Biernaczyk/rg) 
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50 

85 

51 

20 

70 

CI 

C6 

0B 

C0A0 

• 

51 

D0 

F9 

60 

A0 

05 

Bl 

8D 

FB 

C0A8 

AA 

88 

Bl 

8D 

05 

FC 

85 

A2 

48 

C0B0 

; 

38 

A5 

8D 

E9 

02 

85 

BD 

B0 

3F 

C0BB 

: 

02 

C6 

8E 

A9 

00 

AB 

20 

A0 

FD 

C0C0 

: 

00 

60 

A9 

10 

A0 

CC 

84 

8C 

F8 

C0C8 

; 

A0 

00 

B4 

BB 

20 

D9 

C0 

A0 

10 

C0D0 

: 

8C 

84 

OC 

A0 

00 

20 

D9 

C0 

BF 

C0DU 

; 

60 

A2 

04 

91 

OB 

CD 

D0 

FB 

F7 

C0E0 

; 

> 0 
UJ 

8C 

CA 

D0 

F6 

60 

A5 

53 

89 

C0E8 

- 

D0 

0C 

E6 

53 

A9 

E0 

05 

FC 

94 

C0F0 

; 

A5 

53 

8D 

00 

DD 

60 

C6 

53 

4b 

C0F8 

• 

A9 

A0 

4C 

EE 

C0 

8A 

4A 

4A 

00 

C100 

29 

FE 

A8 

B9 

36 

CI 

85 

FD 

8D 

CI  08 

5 

B9 

37 

CI 

BD 

FE 

8A 

29 

07 

75 

C110 

; 

18 

65 

FD 

85 

FD 

A5 

14 

29 

BA 

CI  18 

; 

F8 

65 

FD 

85 

FD 

A5 

FE 

65 

C7 

CI  20 

: 

FC 

65 

15 

85 

FE 

A5 

14 

29 

85 

Listing  »TRICK.OBJ«.  Verwenden  Sie  bitte  zur  Eingabe 
den  MSE 


CI  28 

07 

49 

07 

AA 

BD 

68 

CI 

A0 

52 

CI  30 

- 

00 

11 

FD 

91 

FD 

60 

00 

00 

4D 

CI  38 

; 

40 

01 

80 

02 

C0 

03 

00 

05 

87 

C140 

: 

40 

06 

80 

07 

C0 

08 

00 

0A 

E5 

CI  48 

: 

40 

08 

80 

0C 

C0 

0D 

00 

0F 

42 

CI  50 

: 

40 

10 

80 

1 1 

C0 

12 

00 

14 

9F 

CI  58 

40 

15 

80 

16 

C0 

17 

00 

19 

FD 

CI  60 

: 

40 

1A 

80 

1B 

C0 

IC 

00 

IE 

5A 

CI  68 

: 

01 

02 

04 

08 

10 

20 

40 

80 

71 

CI  70 

: 

20 

71 

C2 

A0 

01 

84 

62 

84 

D4 

CI  78 

5F 

84 

5D 

88 

84 

bt 

84 

61 

92 

C180 

: 

84 

60 

88 

A5 

59 

C5 

15 

90 

44 

CI  88 

; 

08 

D0 

18 

A5 

58 

C5 

14 

B0 

18 

C 1 90 

Z 

12 

38 

A5 

14 

ES 

58 

85 

5B 

98 

CI  98 

• 

A5 

15 

E5 

59 

85 

5C 

84 

62 

7E 

CI  A0 

S 

4C 

B0 

C.1 

38 

A5 

58 

E5 

14 

99 

C1A8 

z 

85 

5B 

A5 

59 

E5 

15 

85 

5C 

45 

C1B0 

2 

A5 

FF 

C5 

57 

B0 

0C 

38 

A5 

49 

C1BB 

57 

E5 

FF 

85 

5A 

B4 

3F 

4C 

92 

C1C0 

2 

C6 

CI 

E5 

57 

85 

5A 

A5 

5C 

46 

C1C8 

2 

D0 

19 

A5 

5B 

C5 

5A 

B0 

13 

12 

C1D0 

2 

A6 

SA 

85 

5A 

86 

5B 

A5 

62 

EF 

CI  DB 

: 

85 

60 

A3 

5F 

85 

61 

CB 

84 

72 

C1E0 

: 

62 

84 

5F 

A5 

5C 

4  A 

85 

59 

F2 

C1EB 

2 

A5 

5B 

6A 

85 

58 

4C 

5C 

C2 

65 

C1F0 

: 

A5 

62 

30 

0E 

18 

65 

14 

85 

3C 

C1FB 

14 

90 

0D 

E6 

15 

D0 

09 

18 

Al 

C200 

: 

65 

14 

85 

14 

B0 

02 

C6 

15 

B4 

C208 

; 

18 

A5 

57 

65 

61 

85 

57 

18 

45 

C210 

A5 

58 

65 

5A 

85 

5B 

A5 

59 

EA 

C218 

; 

69 

00 

85 

59 

E6 

5D 

D0 

02 

AE 

C220 

: 

E6 

5E 

A5 

59 

C5 

5C 

90 

34 

B4 

C228 

: 

D0 

06 

A5 

5B 

C5 

58 

B0 

2C 

0A 

C230 

38 

A5 

58 

E5 

SB 

85 

58 

Ab 

9C 

C238 

59 

E5 

5C 

85 

59 

A5 

60 

30 

F0 

C240 

; 

0B 

18 

65 

14 

85 

14 

90 

0D 

89 

C248 

* 

E6 

15 

D0 

09 

18 

65 

14 

85 

16 

C250 

• 

14 

B0 

02 

C6 

15 

18 

Ab 

57 

6D 

C258 

: 

65 

5F 

85 

57 

A6 

57 

20 

FD 

5B 

C260 

: 

C0 

A5 

5E 

C5 

5C 

90 

07 

A5 

F5 

C26S 

• 

5B 

C5 

5D 

B0 

01 

60 

4C 

F0 

39 

C270 

; 

CI 

AB 

05 

Bl 

8D 

85 

14 

B8 

5F 

C278 

: 

Bl 

8D 

10 

05 

68 

68 

4C 

97 

BF 

C280 

: 

C2 

85 

15 

SG 

Bl 

8D 

Bb 

57 

A7 

C288 

; 

88 

Bl 

BD 

85 

58 

88 

Bl 

8D 

A8 

C290 

s 

85 

59 

88 

Bl 

SD 

85 

FF 

38 

90 

C298 

2 

A5 

8D 

E9 

06 

8b 

8D 

B0 

02 

CA 

C2A0 

Z 

C6 

BE 

60 

DF 

bE 

DE 

5E 

DE 

D5 

100  REM  - 

105  REM  —  3D— MO V I E— MAKER 
110  REM  —  EIN  PROGRAMM  VON: 

115  REM  —  DIRK  &  ARMIN  BIERNACZYK  — 

120  REM  —  AN  DER  PAPENBURG  41 
125  REM  —  4630  BOCHUM  6  — 

130  REM  —  TEL.:  ////// 

135  REM  - 

140  REM  1985  BY  ARMIN  &  DIRK 
145  REM  BIERNACZYK 

150  : 

160  REM  - 

170  REM  -  HAUPTMENUE  - 

180  REM  - 

190  : 

191  IF  A=0  THEN  A=1 : LOAD"TRICK. OBJ" ,8, 1 

192  : 

195  POKE  56,50: CLR: REM  SPEICHER  HERAB. 
200  PRINT  CHRS(147> 

210  PRINT  3PCC10)"**  3D— MOVIE— MAKER  **" 
220  PRINT : PRINT : PRINT : PRINT 
230  PRINT  SPC (9) " 1  -  GRAFIK  ERSTELLEN" 
235  PRINT 

240  PRINT  SPC (9) "2  -  GRAFIK  ABSPIELEN" 
245  PRINT 

250  PRINT  SPC (9) "3  -  GRAFIK  LADEN" 

255  PRINT 

260  PRINT  SPC<9>"4  -  BRAFIK  ABSPEICHERN" 


<012> 

<  1 09  > 
<031  > 
<1U> 
<046> 
<129> 
<044> 
<047> 
<232> 
<018> 
<208> 
<089> 

<  067 > 
<109> 
<24B> 

<  144> 
<250> 
<216> 
<021  > 
<072> 
<23B> 

<  139  > 

<  132> 
<123> 

<  142> 
<087> 
<152> 
< 035 > 


262  PRINT  < 160> 

264  PRINT  SPC (9) "5  -  ENDE"  <10B> 

265  :  <063> 

Listing  »3D-Movie-Maker«.  Beachten  Sie  bitte  bei  der 

Eingabe  den  Checksummer  64. 
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üd/ai*  65 


270  GET  W*:IF  W*<"1"0R  W*>"5"THEN  270 
280  W=VAL(WJ> 

205  IF  1*1=5  TUEN  END 
290  0N  W  GOSUB  1040,5040,6040,7040 
300  GOTO  200 
310 
315 
320 

1000  REM  - 

1010  REM - ERSTELLEN - 

1020  REM  - 

1030  : 

1040  GOSUB  4540  : REM  VARIABLEN 

1050  GOSUB  4040  : REM  EINLESEN 

1060  PRINT  CHR* (147) "FERTIGE  BILDER:  " 

1061  IF  AN* (A2*6+2) <23000  THEN  1080 

1062  PRINT"ZU  WENIG  SPEICHERPLATZ" 

1063  POKE  198, 0: WAI T  198,1:RETURN 
1070  : 

1000  TOR  Q-l  TO  AN  : REM  ANZAHL  DER  BILDER 
1085  GOSUB  3040  : REM  BEWEGEN 

1090  GOSUB  2040  :  REM  BERECHNEN 

1095  GET  TA*: IF  TA*="  "THEN  IF  Q>1  THEN  SY 
S  49152, Q-l, A2, 1 
1100  NEXT 
1110  Q=Q- 1 
1120  RETURN 
1130  : 

1135  : 

2000  REM  - 

2010  REM  -  BERECHNEN  - 

2020  REM  - 

2030  : 

2040  REM - VERSCH I  EBEN  1 - 

2050  : 

2060  FOR 


1=1  TO  Al 


2160 

2165 


2190 


2200 


2070  XI  (I)=X(I)+X1:Y1 <I)=Y<I)+Y1 
2080  ZI (I)=Z(I)+Z1 
2090  NEXT 
2100  : 

2110  REM  -  DREHEN  - 

2120  : 

2130  IF  W1=0  THEN  2250 
2140  FOR  1=1  TO  Al 
2150  XD=X1 (I) :YD=Y1 (I) 

IF  XD=0  THEN  XD=1E— 20 
IF  YD=0  THEN  YD=lE-20 
2170  R=SQR(XD*XD+YD*YD> 

2180  W=ATN (YD/XD) 

IF  XD >0  AND  YD<0  THEN  W=W+.ffi»2:  GOTO  22 
10 

IF  XD<0  THEN  W=W+j£ 

2210  W=W+W1 

2220  Y1 (I)=SIN(W)*R: XI (I)=COS(W)*R 
2230  NEXT 
2240  : 

2250  IF  W2=0  THEN  2370 
2260  FOR  1=1  TO  Al 
2270  ZD=Z1 (I) : YD=Y1 (I) 

2280  IF  ZD=0  THEN  ZD=lE-20 
2285  IF  YD=0  THEN  YD=lE-20 
2290  R=SQR(ZD*ZD+YD*YD) 

2300  W=ATN ( YD/ZD) 

2310  IF  ZD:0  AND  YD<0  THEN  W=W+ä*2: GOTO  23 
30 

2320  IF  ZD<0  THEN  W=W+fi 
2330  W=W+W2 

2340  Y 1 ( I ) =SIN (W) *R: ZI (I)=COS(W)*R 
2350  NEXT 
2360  : 

2370  IF  W3=0  THEN  2510 
23B0  FOR  1=1  TO  Al 
2390  ZD=Z 1(1): XD=X 1 (I) 

IF  7D=0  THEN  ZD=1 E— 20 
IF  XD=0  THEN  XD=lE-20 
2410  R=SDR(ZD*ZD+XD*XD) 

2420  W-ATNIXD/ZD) 

2430  IF  ZD>0  AND  XD<0  THEN  W=W+«£*2:  GOTO  24 
50 

2440  IF  ZD<0  THEN  W=W+H 
2450  W-W+W3 

2460  XI  (I)=STN(W) *R: ZI (I)=COS(W)*R 
2470  NEXT 
2400  : 

2490  REM  -  UMRECHNEN  - 

2500  : 


2400 

2405 


<040> 

<  1 79> 
<014> 
<063> 
<072> 
<1  13> 
<11 8> 

<  123> 
<1 19> 
<064> 

<  1 39> 
<068> 
<203> 
<143> 

<  1 71  > 
<137> 
<014> 
<0B3> 
<10B> 
<056> 
<091  > 
<236> 

<029> 

<210> 

<13B> 

<242> 

<16B> 

<  1  73> 

<  099 > 

<  008  > 

<  1 19> 
<047> 
<251  > 
<068> 
<21  =  ' 
<079> 
<008> 
<180> 

<  1 1  B> 
<153> 

<  138> 
<191  > 
<039> 

<  1 40> 
<249> 
<000> 
<005> 

<  1 41  > 

<227> 

<090> 

<060> 

<098> 

<064> 

<  002 > 
<059> 

<  159> 
<008> 

<  1 17> 
<120> 

<  1 29  > 

<  007  > 

<097> 

<213> 

<  1 82  > 
<221  > 
<185> 

<  1 23> 
<177> 

<  024  > 

<  127> 
<23B> 
<239  > 
<248> 

<  127> 

<219> 
<077> 
<047  > 
<084> 
<049> 
<243> 
<005> 

<  007  > 


2510  FOR  1=1  TO  Al 

2530  XI ( I )  =  < X 1 (I)+X2)*1.01t(Zl (I)+Z2) 

2540  Y1 (I)=(Y1 ( I ) +Y2) *1 . 01 T ( Z 1 (I1+Z2) 

2560  NEXT 

2565  REM  1.01  KANN  LEICHT  GEAENDERT 
2567  REM  WERDEN 
2580  : 

2590  FA=0:PB=199 

2600  PO=PO— 2 

2601  REM  - 

2602  REM  -  UBERGETRETENE  LINIEN  - 

2603  REM  -  BERECHNEN  UND  POKEN  - 

2604  REM  - 

2610  FOR  1=1  TO  A2 

2620  X07.=X1  (PI  (I)  >  :Y17.=Y1  (PI  (I)  ) 

2630  X27.=X1  ( P2  ( I  )  )  :  Y2X=Y1  (P2(I>  ) 

2640  X 1 7.=0:  X37.=0:  ME=0 

2641  IF  X0X>  159  AND  X27.>  159  THEN  2760 

2642  IF  X07.<-159  AND  X27X-159  THEN  2760 

2643  IF  Y1X<-  99  AND  Y2%<-  99  THEN  2760 

2644  IF  Y17.>  99  AND  Y27.>  99  THEN  2760 
2650  IF  Y17.=Y27.THEN  2711 

2655  IF  X2X=X07.THEN  2690 
2660  M=  (Y27.-Y17.)  /  (  X27.-X0-/.) 

2670  B=-M*X07.+Y17. 

2680  GOTO  2720 

2690  IF  Y 1 X >99  OR  Y17.<-99  THEN  Y17.=99*SGN( 
Y1X) 

2700  IF  Y27.>99  OR  Y2XC-99  THEN  Y2X=99*SGN < 
Y27.) 

2710  GOTO  2760 

2711  IF  X07.M59  OR  X07X-159  THEN  X07.=  159*S 
GN  ( X07. ) 

2712  IF  X27.M59  OR  X2X<-159  THEN  X2X=159*S 
GN(X27.) 

2713  GOTO  2760 

2720  IF  X0X>159  OR  X07.<-159  THEN  X07.=  159*S 
GN(X07.)  :  Y1X=M*X07.+B 

2730  IF  X 27. >159  OR  X27.<-159  THEN  X27.=  159*S 
GN  ( X2X)  :  Y27.=M*X27.+B 

2740  IF  Y17.>99  OR  Y17.<-99  THEN  Y17.=99*SGN( 
Y17.)  :  X07.=  (Y1X-B>  /M 

2750  IF  Y27.>99  OR  Y27X-99  THEN  Y27.=99*SGN  ( 
Y27.) :  X27.=  ( Y2X-B)  /M 

2760  IF  Y1X>99  OR  Y17X-99  THEN  X1X=255:X07. 

=0:  Y17.=0:  Y27.=0:  X2X=0:  GOTO  2810 
2770  IF  X07.M59  OR  X07X-159  THEN  X1X=255:X 
0X=0:  Y17.=0:  Y27.=0:  X27.=0:  GOTO  2810 
2780  : 

2790  X07.-X0y.-t-160:  X27.-X2X+160 

2791  Y 1 7.=Y  1 7.+ 1 00 :  Y27.=Y27.+ 1 00 

2793  IF  Y1X>PA  THEN  PA=Y17. 

2794  IF  Y27.7PA  THEN  PA-Y2X 

2795  IF  Y1X<PB  THEN  PB=Y1X 

2796  IF  Y27XPB  THEN  PB=Y27. 

2799  IF  X0X>255  THEN  X07.=X07.-256:  X17.=  l 

2800  IF  X27.>255  THEN  X2X=  X 27.-256 :  X3X=1 
2805  : 

2810  POKE  PO ,  X07. :  POKE  PO- 1,  XI 7. 

2820  POKE  PO-2 ,  Y 1 X :  FOKE  P0-3,X27. 

2830  POKE  PO- 4,  X 37.:  POKE  P0-5,Y27. 

2840  PO=PO— 6 
2850  NEXT 
2860  : 

2862  IF  PA<PB  THEN  PA=199:PB=0 

2863  PA=40* ( (PA  OR  7) +1)7256+1 

2864  PB=40* (PB  AND  248) /256 

2866  POKE  P0+6*A2+2, INT (PI ) —INT (P3> 

2868  POKE  PO+6*A2+l,P3 
2870  P 1 =P2 : P2=PA : P3=P4 : P4  =PB 
2872  PRINT  CHR* (19) SPC (16)0 
2880  RETURN 
2890  : 

2900  : 

3000  REM  - 

3010  REM  -  BEWEGEN  - 

3020  REM  - 

3030  : 

3040  IF  E=0  THEN  3100 
3050  W1=W1+UZ;W2=W2+WX:W3=W3+WY 
3060  X1=X1+XA: Y1=Y1+YA: Z1=Z1+ZA 
3070  X2=X2+XB:Y2=Y2+YB:Z2=Z2+ZB 
3080  E=E— 1 : HE  TURN 
3090  : 

3100  READ  XA,YA,ZA,WX,  WY ,  WZ  ,  XB  ,  YB,  ZB  ,E 
3110  WX=WX*ü/lB0:WY=WY*jt/180 


<  154> 
<046> 

<  059  > 
<140> 
<206> 
<101> 
<08B> 
<18B> 
<255> 
<219> 
<097> 
<192> 
<222> 
<000> 
<043> 
<058> 
<100> 
<007> 
<098> 
<01Z> 

<  179> 

<  1 1 4> 
<122> 
<205> 
<022> 
<214> 

<242> 

<000> 

<248> 

<  134> 

<143> 
<251  > 

<  188> 

<209> 

<164> 

<  181  > 

<186> 

<026> 

<032> 

<200> 

<195> 

<00B> 

<011> 

<014> 

<017> 

<06B> 

<077> 

<057> 

<057> 

<038> 

<054> 

<244> 

<  175> 
<113> 
<213> 

<  167> 
<009> 
<053> 
<254> 
<234> 
<229> 
<217> 

<  143> 

<  153> 
<245> 

<  103> 
<009> 
<027> 
<008> 
<195.1 
<145> 
<164x 
<244> 
<0oe> 
<04  7  > 
<1  12> 


Ausgabe  5/Mai  1985 


3120 

3130 

3140 

3150 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4155 

4157 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4500 

4510 

4520 

4530 

4533 

4536 

4540 

4560 

4570 

4580 

4590 

4600 

4605 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5091 

5092 

5093 

5094 
5100 
5105 
5110 
6000 
6010 
6020 
6030 
6040 

6050 

6055 

6060 

6070 

6080 

60B2 

6090 

6100 

6110 

6140 

615B 

6160 


WZ=WZ  *a/ 1 80 : YA=-YA : YB=-YB  <21 7> 

GOTO  3050  < 151 > 

s  <138> 

:  < 148> 

REM -  <01 4> 

REM - EINLESEN -  <169> 

REM -  <034> 

s  <007> 

1=0  <002> 

1  =  1  +  1  <000> 

READ  X(I) ,Y(I) ,Z(I)  < 1 63 > 

Y(I) =— Y  < I )  < 056  > 

IF  X  (1X1000  THEN  4050  <096> 

A1=I-1  <0B2> 

1=0  <063> 

1=1+1  <061 > 

READ  PI (I) ,P2(I)  <018> 

IF  PI  (1X1000  THEN  4110  <1B5> 

A2=I-1  <134> 

:  < 128> 

AN=0  <1B8> 

READ  A: IF  A=1000  THEN  4180  <002> 

FOR  1=1  TD  9: READ  A: NEXT  <152> 

AN=AN+A: GOTO  4157  <169> 

RESTDRE  <240> 

READ  A,A,A  <016> 

IF  A< 1000  THEN  4190  <045> 

READ  A,A  < 1 83 > 

IF  A< 1000  THEN  4210  <058> 

■  <  208 > 

PRINT  CHR* (147) "BILDERZAHL <2SPACE>” AN  <161> 
PRINT  CHR* <19)SPC< 11);: INPUT  I  <0B7> 

IF  I >255  OR  I >AN  THEN  4240  <X27> 

AN=I  <072> 

RETURN  <  086  > 

:  <012> 

:  <022> 

REM -  <049> 

REM - VARIABLEN -  <224 > 

REM -  <069 > 

:  <253> 

REM  NACH  BEDARF  DIMENSIONIEREN  <044> 

:  <  003 > 

DIM  X (50) , Y (50) , Z (50)  <216> 

DIM  XI (50) ,Y1 (50) ,Z1 (50)  <127> 

DIM  PI  (50)  ,F'2(50)  <012> 

PO= 35839: PI =32: P2=32: P3=0: P4=0  <054  > 

RETURN  <  141 > 

:  <067> 

:  < 072 > 

REM -  <039> 

REM - ABSPIELEN -  <213> 

REM -  <  059 > 

:  <243> 

IF  Q>0  AND  A2>0  THEN  5090  <24B> 

PRINT  CHR* (1 47) : PRINT: PRINT: PRINT  <147> 

PRINT  SPC ( 5 ) " ES  GIBT  KEINE  GRAFIK"  <150> 
POKE  1 98 ,0: WAI  T  198,ltP0KE  198,0  <016> 

RETURN  < 1 2 1 > 

INPUT" <CLR>WIEVILE  DURCHLAUEFE" ; DU  <098> 
IF  DU >255  8R  DU< 1  THEN  5090  <009> 

PR  I  NT  "  CHOME ,  2D0WN  >UI  I EV I ELE  B I LDER  C5SP 
ACE> “Q  <102> 

PRINT" £UP5 "SPC ( 19) ;: INPUT  I  <226> 

IF  I >0  OR  I<1  THEN  5092  <035> 

:  <057> 

SYS  49152, I,A2, DU: RETURN  <072> 

:  <067> 

REM -  <  095 > 

REM - LADEN -  <146> 

REM -  <1 15> 

:  <223> 

PK IN  I  CHR* (147): PRINT : PRINT : PRINT :  PRI 
NT  <072> 

1 NPUT " I3SPACE  >F I LENAME :  " ; NA*  <235> 

IF  NAt-="M"THEN  RETURN  <116> 

OPEN  2,8,2,NA*+".GRA,S,R"  <040> 

OPEN  1  ,8,15:  INPIJTttl  ,  FE*  <093> 

IF  FE*="00"THEN  6090  <221 > 

CLOSE  1:CL05E  2: GOTO  6040  <067> 

GET#2,Q*,A2*  <059> 

Q=ASC(B*> : A2=ASC(A2*>  <135> 

AD=35839-Q»(A2*6+2)  <09B> 

CLOSE  2: CLOSE  1  <240> 

AH=INT (AD/256) :AL=AD-AH#256  <169> 

A*=NA*+".GRA,S“  <103> 


6170  FOR  1=51000  TO  51000+LEN (A* ) — 1  <061 > 

6180  POKE  I,AGC(MID*(A*,I  50999,1))  <108> 

6190  NEXT  <200> 

6200  POKE  183, LEN (A*>  <040> 

6210  POKE  187 ,56: POKE  188,199  <105> 

6220  POKE  185, 0: POKE  186,8:P0KE  147,0  <1463 

6570  POKE  1 95 , AL : POKE  196, AH  <216> 

6580  SYS  62648  <117> 

6590  RETURN  <101> 

6600  :  <027> 

6610  :  <037> 

6620  :  <047> 

7000  REM -  <089> 

7010  REM  -  ABSPEICHERN  -  <062> 

7020  REM -  <  1  09  > 

7030  :  <203> 

7040  IF  Q>0  AND  A2 >0  THEN  7090  <21 0> 

7050  PRINT  CHR* (147) : PRINT : PR INT : PR I NT  <107> 

7060  PRINT  SPC (5) "ES  GIBT  KEINE  GRAFIK"  <110> 

7070  POKE  1 98,0: WAI T  19B,1:P0KE  190,0  <232> 

7080  RETURN  <081 > 

7090  PRINT  CHR* (1 47) : PRINT: PRINT: PRINT  <147> 

7100  INPUT“ <4SPACE>FILENAME:  " ; NA*  <009> 

7105  IF  NA*="M"THEN  RETURN  <146> 

7110  OPEN  2,8,2, NA*+" . GRA , S , W"  <075> 

7120  OPEN  1,8,15:1 NPUT #  1  , FE*  <123> 

7130  IF  FE*="00" THEN  7140  <248> 

7135  CLOSE  1: CLOSE  2:B0T0  7090  <106> 

7140  PR  INT# 2 ,  CHR* (Q) ; CHR* ( A2) ;  <095> 

7150  FOR  I =35839-0* (A2*6+2) TO  35S39  <107> 

7160  PRINT#2 ,  CHR*  (PEEK  ( I )  )  ; :  NEXT  <116> 

7170  CLOSE  2: CLOSE  1 : RETURN  <195> 

7175  :  <093> 

7180  :  <098> 

7185  :  <103> 

8000  REM -  <083> 

8010  REM  -  DATAS  FUER  PUNKTE  -  <124> 

8020  KEM -  <103> 

B030  :  <1B3> 

8040  DATA  -70,  10,0  <130> 

8050  DATA  -30,  10,0  <141 > 

8060  DATA  -30,-10,0  <196' 

8070  DATA  -20,-10,0  <205> 

8080  DATA  -20,  0,0  <121> 

8090  DATA  -30,  0,0  <132> 

8100  DATA  -15,  10,0  < 194> 

8110  DATA  -15,  0,0  <155> 

8120  DATA  -  5,  10,0  <165> 

8130  DATA  -  5,  0,0  <126> 

8140  DATA  -  5, -10,0  <230> 

8150  DATA  10,  10,0  < 194> 

8160  DATA  5,  5,0  <116> 

8170  DATA  15,-10,0  <008> 

8180  DATA  5, -10,0  <225> 

8190  DATA  5,  0,0  <141> 

8200  DATA  15,  0,0  <169> 

8210  DATA  15,  -5,0  <229> 

8220  DATA  5,  -5,0  <190> 

8230  DATA  20,-10,0  <033> 

8240  DATA  20,  0,0  <205> 

8250  DATA  20,  -5,0  <009> 

8260  DATA  30,  0,0  <226> 

8900  DATA  1000,1000,1000  <004> 

8910  :  <042> 

9000  REM -  <  1 98 > 

9010  REM  -  VERB INDUNGS VOSCHR I FT  -  <241 > 

9020  REM -  <218> 

9030  :  <163> 

9040  DATA  1,2,  2,  3,  3,  4,  4,  5  <194> 

9050  DATA  5,  6,  7,  8,  8,10,  9,11  <066> 

9060  DATA  12,13,  14,15,  15,16,  16,17  <10B> 

9070  DATA  17,18,  18,19,  20,21,  22,23  <122> 

9450  DATA  1000,1000  <063> 

9460  :  <082> 

9500  REM -  <098> 

9510  REM  -  BEWEGUNGSVOSCHR I FT  -  <071 > 

9520  REM -  <  1 18> 

9530  :  <153> 

9531  RFM  XA,YA,ZA,WX,WY,W7,XB,YB,ZB,E  < 1 1 1 > 

9550  DATA  0,0,  1  ,0,0,0  ,0,0,  0  ,30  <150> 

9360  DATA  0,0,  0  ,0,3,0  ,0,0,  0  ,108  <218> 

9570  DATA  0,0, -30  ,0,0,0  ,0,0, -30  ,1  <055> 

9580  DATA  0,0,  0  ,5,0,5  ,0,0, .81  ,36  <042> 

9620  DATA  1000  <253> 


Listing  »3D-Movie-Maker«  (Schluß) 
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Clubs 


C  64/VC  20 


Hier  gibt’s  Clubs 


Um  Euch  und  den  Clubs  unnö¬ 
tige  Kosten  und  Zeit  zu  ersparen, 
einige  Hinweise.  Bei  schriftli¬ 
chen  Anfragen  an  die  Clubs,  ist 
genereli  ein  ausreichend  fran¬ 
kierter' Umschlag  beizufügen. 
Bevor  man  einem  Club  beitritt, 
sollte  man  sich  über  dessen  Sta¬ 
tus,  Mitgliederzahl,  Beitragssät¬ 
zen  (soweit  nicht  mit  aufgeführl) 
und  Gebühren  für  Lehrgänge  in¬ 
formieren  lasse n  Aus  Pia tzgrün 
den  und  der  Übersichtlichkeit 
wegen  sind  neben  den  Adres¬ 
sen  nur  einige  zusätzliche 
Schwerpunkte  mit  angegeben. 
Die  Adressen  sind  nach  Postleit¬ 
zahlen  geordnet. 

Computerbox,  Eichenallee  6! 

1000  Berlin  19, 

2monatlich  erscheinende  Com¬ 
puterzeitschrift,  Hardware -Be¬ 
richte,  Softwaretests,  Basic  Kurs, 
Berichte  zu  aktuellen  Anlässen, 
Rätsel; 

C  64-Club  »Die  Bit  Teufel«,  Tel.  Berlin 
3618491, 

Erfahrungsaustausch,  Spiele, 
Anwendersoftware,  Drucker, 
DFÜ,  Gerätebörse; 

C  64  Programmer  Club,  Martin  Paff, 
Hammer  Str.  69,  2000  Hamburg 
70, 

Clubzeitschrift,  Treffen,  Erstel¬ 
lung  von  Software,  Bibliothek; 
C-64-INF0-Club  L  A  W  A,  T.  H.  Zibell. 
Wakendorferweg  32,  2000  Ham¬ 
burg  62,  Tel.  (040)529212? 
Mogicdub  64,  Arne  Palke,  Eichen- 
buchstr.  45.  2057  Reinbek  b. 
Hamburg, 

Clubzeitschnft,  Softwarebiblio¬ 
thek,  Treffen; 

C  64-Club  ACCS,  Erlenweg  51,  2083 
Halstenbek, 

Clubzeitschnft,  PRG-Bibliothek, 
verbilligte  Disketten,  Auslands¬ 
kontakte,  DFÜ; 

HBS-Computerdub  Am  Steingrab 
45,  2150  Buxtehude. 
Programmtausch,  PRG-Bibho 
thek,  Softwareentwicklung, 
eventuell  Eröffnung  einer  Mail¬ 
box; 

C  64-User-Club  Lübeck,  Matthias 
Kcemer,  Fiegattenstr.  60,  2400 
Lübeck, 

Clubzeitschrift,  Unterstützung 
beim  Programmieren,  Akustik¬ 
koppler,  Programmtausch,  Tips, 
Tricks; 

Georg  Körster,  Herm-Ehlers-Str.  8, 
2903  Ofen, 

Clubzeitschrift,  PRG-Bibliothek, 
Meinungs-,  Erfahrungs-  und 
Adressentausch.  Losung  von 
Soft-  und  Hardwareproblemen; 

SCORA-Computerdub  Auridi,  Manfred 
Janßen,  Dellings».  10,  2965  Ih¬ 
low/Riepe 

ClubtrefTen,  Arbeitsgruppen, 
Erfahrungsaustausch,  Biblio¬ 
thek,  Softwarebibliothek,  Robo¬ 
tersteuerung; 

Soscha  Troggier,  Kreuzfeld  20,  3250 
Hameln  1,  Mailboxnr.  (05151) 
63687, 

Clubtreffen,  Erfahrungsaus¬ 


tausch,  DFÜ,  Hilfestellung  bei 
Problemlösungen,  eigene  Mail¬ 
box; 

Christian  Hülsmann,  Fliecerweg  10, 
3380  Goslar  1,  Tel.  (05321)  4898, 
Softwareerstellung,  bald  eigene 
Mailbox; 

Christiane  Canislus.  COMAI,  User 
Club,  Freiheitsstr.  30,  4000  Düs¬ 
seldorf  12, 

COMAL-NEWS,  COMAL-Lite- 
ratur,  Problemhilfc; 

C  64-Softentwurf-Club,  Cedric  Volk- 
mer,  Konkordiastr.  24,  4000  Düs¬ 
seldorf  1, 

Softwareentwurf,  Spiele,  An¬ 
wender  und  so  weiter; 

Ghostbusters  Dorsten,  Glückaufstr. 

252,  4270  Dorsten  21, 

Clubtreffen,  Brieikastenonkel, 
Knacken  von  Adventures,  Soft- 
warebibliothek,  etc.; 

64  User  Club  Osnabrück,  Ulf  Henke, 
Am  Gretescher  Turm  6,  4500 
Osnabrück. 

Clubtreffen  (14iägig),  monatli¬ 
che  Zeitschrift,  Clubbibliothek, 
Softwareentwicklung  (Basic, 
Pascal,  Maschinensprache), 
Hardware; 

Laborsoll  &  -Hardware.  J.U.Busch- 
mann,  Schneiderstr.  80,  4600 
Dortmund  50,  Tbl.  0231/735496 
Mailbox.  Clubzeitschrift,  Club¬ 
treffen,  Ausflüge  zu  Ccmputer- 
veranstaltungen,  gemeinsame 
Herstellung/Verkauf  von  Soft& 
Hardware,  schnelles  Erlangen 
von  neuester  Soft-  und  Hardwa¬ 
re,  wegen  guter  Ausiandsver- 
bindung.  kem  Clubbeitrag; 

CCR  (Computer-Club  Reschke),  Hohe 
Str.  21A,  4600  Dortmund  1.  Tel. 
(0231)  160014 

Corr.modore  C  64.  Clubräume. 
Clubbeitrag  10  Mark,  Basic- 
Programmierkurse; 

64'er  Adventure  Club.  Christian 
Paas,  Nordring  54, 4630  Bochum, 
2monatlich  erscheinende  Zeit- 
schirft,  15  Mark  Jahresbeitrag, 
Lösen  von  Adventures,  schriftli¬ 
cher  Informationsaustausch; 
DATEX 

Commodore  Software  Club 
Uwe  Thielker,  Glückaufstr.  6, 
4670  Lünen 

Erfahrungsaustausch,  Tips  und 
Tricks,  Hilfen  für  Einsteiger,  spe¬ 
zielle  Problemlösungen,  evtl. 
Clubzeitschnft 

VC  20-User  Club  Ulf  Kriewett, 
Thuermchenswall  71,  5000  Köln 
1.  Tbl  .  (0221)  121634, 
Clubzeitschrift,  Softwarebiblio¬ 
thek,  Hardware,  Tips  und  Tricks; 
C  64/Club  Compy 

Clubmagazin  etc  ,  Aufbau  einer 
Softwarebibi. 

Thomas  Spieier/D„  Porzerfeid 
20,  5000  Köln  90; 

Udo  Künstler,  Geüenktrchener  Str. 
87,  5120  Herzogenrath,  Tel, 
(02406)5045, 

monatliches  Clubtreffen,  Club¬ 


zeitschrift,  Beratung  und  Hilfe¬ 
stellung,  Tips  &  Tricks,  immer 
neue  Informaüonen; 

S.C.O.U.T.-Computerclub,  Martin  Mir- 
gel,  Victoriastr.  20.  5400  Ko 
blenz, 

monatliches  Clubtreffen,  Kon¬ 
takt  zu  Zeitschriften.  Hardware, 
Elektronik-Kurse  für  Anfänger, 
DFÜ,  Softwarebibliothek; 

C  64-Club  Montabaur,  Michael  Bro- 
mund,  Saarstr.  13,  5430  Monta¬ 
baur, 

Clubzeitschrift,  Clubtreffen, 
DFÜ,  Software-  und  Literaturbi¬ 
bliothek.  Hardware; 

Atomos-Soft,  Rene  Klöckner,  Kla 
gemurtstr,  19,  5800  Hagen  7,  C 
64,  Clubtreffen,  monatl,  Zeit¬ 
schrift,  Software,  etc.; 

Klaus-Dieter  Friedrich,  DH1FAB.  Ber- 
nadottestr.  3,  6000  Frankfurt  50, 
Tel,  (069)  571381,  Mailbox  OTIS 
(06181)  48884  Nr.  222  und  1014, 
Amateurfunkthemen,  Treffen, 
Clubzeitschrift,  Informations¬ 
austausch  über  das  Mailboxsy- 
stem  »OTIS«,  Btx,  Seitennummer 
*208247#,  Jahresbeitrag  von  15 
Mark; 

C  64-Weiterbildung  c/o  Albert  Pflü¬ 
ger,  EckenheimeT  Lands».  13, 
6000  Frankfurt/Main  1, 
Koordination  von  Informationen 
zu  C  64-Anwendungen  in  der 
Weiterbildung,  unregelmäßige 
Mitteüungen  und  Treffen; 
Futuresoft,  Wiesens».  49,  6090 
Rüsselsheim,  Tel.  (061 42)  53320, 
Soft-  und  Hardware; 

Stefan  Roos,  Pfarrgasse  6,  6097 
Trebur  3, 

Treff  2mal  monatlich,  Beitrag  10 
Mark  pro  Jahr,  Clubzeitschrift, 
Software-  und  Bücherbibliothek; 
Mark-Oliver  Faßmann  Sudetens». 
19,  6108  Weiterstadt  1, 
Programmbibliothek,  Modem. 
Clubinfo,  halbjährlicher  Club- 
beftrag  (etwa  10  Mark); 

Deutsche  Commodore-User  Peters- 
wälders».  8,  6452  Hainburg, 

Soft-  und  Hardwareentwick- 
lung/-Tausch,  Problemlösungen 
für  alle  Computer,  monatliche 
Clubzeitung,  Programmbiblio¬ 
thek,  Behrag  80  Pfennig  pro  Mo¬ 
nat  h  fünf  Programme  un  Jahr; 

Heidelberger  64'er,  Wolfgang  Ago- 

stmi,  Karl-Metz-S».  11.  6904  Ep¬ 
pelheim, 

Clubtreffen,  Erfahrungs-  und 
Programmtausch,  jedes  Seme¬ 
ster  wechselnder  Schwerpunkt 
Adventures.  Assembler,  kleine 
Hardware-Tricks; 

Commodore-User-Club.  Wend- 
Berbench-S».  3,  6968  Walldürn, 
Infoblatt  (C  64),  Programmaus¬ 
tausch  (Floppy),  schriftlicher 
Fragenaustausch; 

BNT  e.V.  -  Öffentlichkeitsarbeit,  Pest¬ 
fach  400846,  Markts»,  48,  7000 
Stuttgart-Bad  Cannstatt,  Tel. 


(07 11)  558391,  (Mo-Fr:  9-16),  Mail¬ 
box;  (0711)  558392, 

Jungendarbeit,  Fortbildung, 
Zeitschrift,  Schulungen  und  Kur¬ 
se,  Computercamps,  Datenfern¬ 
übertragung,  Büdung  von  Grup¬ 
pen  und  Treffen; 

64'er  Club,  Michael  Frieser,  Hoff- 
mannstr.  12,  7015  Korntal  1  (bei 
Stuttgart), 

Clubtreffen,  Zeitschift  und  Bi¬ 
bliothek  in  Vorbereitung,  Hard¬ 
ware,  Tips  und  Tricks,  monatli¬ 
che  Software; 

Micro  Computerclub  Singen,  pnil 
Grass,  Haupts».  34,  7709  Hilzin- 
gen,  Tel.  (07731)67819. 
Club»effen,  Assemblerkurs, 
Erfahrunqs-  und  PRG -Tausch, 
DFÜ; 

Computerclub  »New  Line«,  Postfach 
8007,  7910  Neu-Ulm  8, 

Speziell  für  Anfänger; 

C  64  -  ACM  (e.V.),  c/o  Gerald  Ger- 
lich,  Grasmeiers».  25/220.  8000 
München  40, 

monatliche  Clubzeitung,  Buch- 
und  Softwarebibliothek,  Schu¬ 
lungen  (Basic,  Assembler), 
Hardwarebastelkreis,  Sammel¬ 
bestellungen,  Kaufberatungen, 
Soft-  und  Hardwareentwicklun¬ 
gen,  eigene  Mailbox,  Reparatu¬ 
ren; 

CBM-64-Userclub  München  Walli¬ 
sers».  13.  8000  München  71,  Tel. 
(089)  762424; 

Treffen  nach  Vereinbarung,  kein 
Beitrag,  Maschinensprache, 
Hardware; 

C  64-User  Club  »Flanuk«,  O.  Sahl- 
mann,  Iriss».  1,  8000  München 
45, 

Softwaretausch,  Clubzeitung  (in 
Vorbereitung),  Erfahrungsaus¬ 
tausch,  gemeinsame  Software¬ 
produktionen; 

Marathon-Soft(ware),  c/o  Raimund 
C.  Ohnemus,  Daisers».  49,  8000 
München  70, 

Gemeinsames  Erlernen  neuer 
Programmiersprachen  (Maschi¬ 
nencode,  Comal,  Forth,  Pascal), 
Austausch  von  Kenntnissen,  Ge¬ 
meinsamer  Softwarekauf,  kein 
Clubbeitiag,  Aufnahme  von  An¬ 
fängern,  Umbau  von  Commodc- 
re-Joysticks  (Joyboaids  für  Links¬ 
händer,  Dauerfeuer); 

C  64-Club  PAF,  CCP,  Jahnhöhe  33, 
8068  Pfaffenhofen  1, 

Club»effen,  Software,  Clubzeit¬ 
schrift; 

Rüdiger  lang,  Obingerstr.  4,  8201 
Amdorf, 

Schulung,  Software,  Hardware, 
Steuern,  DFÜ,  Clubtreffen; 

Commodore-Club  Lohr,  Christian  Ro¬ 
senkranz,  Haupts».  6,  8770 
Lohr/Main; 

Sicher  sind  das  noch  nicht  alle 
Clubs  in  Deutschland.  Wir  bitten 
daher  die  nicht  aufgeführten 
Clubs,  sich  zu  melden. 

In  der  nächsten  Ausgabe  sind 
die  Clubs  aus  dem  benachbar¬ 
ten  Ausland  an  der  Reihe. 


Ausgabe  B/Mai  19BS 


VC  20 


rippen / 
üKi  n  u  i 


Mini-Grafik  VC  20 


Diese  kleine  Grafik-Hilfe  läuft  auf  der 
Grundversion  des  VC  20. 

Wie  der  Name  schon  sagt,  handelt  es  sich  um  eine  Grafik- 
Erweiterung  im  kleinen  Stil.  Damit  wird  Grafik-Programmierung 
auch  ohne  große  Speichererweiterung  oder  (teures)  Grafik- 
Modul  möglich.  Da  in  Maschinensprache  geschrieben,  ist  die¬ 
se  Basic- Erweiterung  überdies  sehr  schnell.  Minutenlange 
Wartezeiten  auf  die  Fertigstellung  einer  Bildschirmgrafik  entfal¬ 
len  damit. 

Zur  Anwendung  der  Grafikhilfe:  Man  nehme  das  Programm- 
Listing,  tippe  es  in  den  VC  20  und  erfreue  sich  folgender  Be¬ 
fehle  und  Funktionen: 

@0N  schaltet  den  Bildschirm  auf  Grafikdarstellung  um,  wo¬ 

bei  die  momentane  Zeichenfarbe  zur  Plotfarbe  wird 
@CLR  löscht  den  Grafik-Speicher 

@f,x,y  setzt  (f  *0)  oder  löscht  (f=0)  einen  Punkt  mit  der 

Koordinate  (x,y).  Für  f  gilt:  0  <  ~  i  <  256,  für  x  wie 
für  y  gilt:  0  <  =  x  <  128.  f.  x  und  y  können  beliebige 
Variable  oder  Formeln  sein 


@(x,y)  ist  eine  Funktion,  welche  testet,  ob  der  Punkt  mit  der 

Koordinate  (x,y)  gesetzt  (Ergebnis  =  —1)  oder  nicht 
gesetzt  (Ergebnis  =  0)  ist.  Beispiel:  »PRINT  @  (5,7)« 

@ RETURN  schaltet  den  Bildschirm  schließlich  wieder  auf  norma¬ 

len  Print-Modus 

Das  Programm  implementiert  sich  nach  dem  Start  des  einzu¬ 
gebenden  Basic-Laders  (Listing  1)  von  selbst  und  ist  absolut 
absturzsicher.  Es  hat,  man  lese  und  staune,  eine  Länge  von  nur 
256  Byte.  Für  eine  Auflösung  von  1 28  mal  128  Punkten  sind  2 
KByte  RAM  unerläßlich.  Somit  verbleiben  in  der  Grundversion 
1279  Byte  und  mit  3  KByte  Erweiterung  sage  und  schreibe 
4351  Byte  Basic-RAM.  Zugegeben,  das  ist  nicht  die  Weit, 
aber  für  den  Anfang  durchaus  ausreichend,  und  dafür  wurde 
die  Routine  schließlich  konzipiert.  Überdies  wird  der 
Kassetten-Puffer  nicht  benutzt,  und  man  kann  von  einem  Pro¬ 
gramm  aus  mit  »LOAD«  ein  weiteres  nachladen.  Listing  2  ist  ein 
kleines  Demo-Programm,  um  die  Fähigkeiten  der  »Mini-Grafik« 
einmal  vorzuführen  (siehe  Bild). 

(Wolfgang  Wirth/ev) 


100 

REM  MGI 0  BY  W.WIRTH 

<150> 

105 

POKE 

55,0: POKE  56 ,21 : CLR: POKE  648,22 

<106> 

110 

SYS  58651 : POKE  36379 , 14: PRINT" {WHITE} " 

<  1 64  > 

115 

DEF  FN  B4 ( X ) =X— 48+  t  X  >57 1 *7 

<065> 

120 

FOR 

=0  TO  255 : READ  BY*: PRINT” {HOME} ” I 

,  BY* 

<  066  > 

125 

BY=16*FN  B4  C ASC ( BY*1 ) +FN  B4 (ASC (RIGHT* 

(BY*. 

1)  )  ) 

<130> 

13-0 

CS=CS+BY : POKE  5376+1 ,BY: NEXT 

<  193> 

135 

FOR  1=0  TO  3: READ  BY:CS=CS+BY 

<  1 95> 

140 

POKE 

6140+1, BY.-NEXT 

<100> 

145 

1F  CS=291S6  THEN  SYS  53B9:SYS  58239 

<110> 

150 

PRINT” CCLR , DOWN , SPACE  >£HECkSUMMENFEHLE 

R  1  “ 

<  161  > 

155 

PR  I NT "  {DOWN ,  SPACE  > JJAT ABLOCK  PROEFEN  .  " 

:  END 

<139> 

160 

DATA 

19, 15, 83 , C4 , 7C , C5 , 1 A , C7 , 29 ,15, EF 

<199> 

165 

DATA 

15,00,A2,0B,BD,00, 15, 90,00, 03, CA 

<155> 

170 

DATA 

10,F7,60,8A,48,AD,05,V0,C9,ÜE,D0 

<218> 

175 

DATA 

03 , 20 ,18, E5 , 68 , 4C , 3B , C4 , 20 , 73 , 00 

<  143> 

180 

DATA 

08 , C9 , 40 , F0 , 04 , 28 , 4C , E7 , C7 , 28 , 20 

<180> 

185 

DATA 

3C  ,15, 4C  ,  AE ,  C7 , 20 , 73 , 00 ,  C9 ,91 ,  D0 

<285> 

190 

DATA 

55 , 20,73,00 , A2 ,04 , BD , FB, 17 ,9D ,01 

<1B6> 

195 

DATA 

90 ,  CA ,  D0  ,  F7 ,  AD  ,  86 , 02 , 9D ,  00 , 96 ,  E8 

<250> 

200 

DATA 

D0 ,  FA ,  A9 , 7F ,  AA ,  9D ,  00 , 1 6 ,  E9 , 08 ,  E9 

<031  > 

205 

DATA 

00, 29, 7F, CA, 10,F4,60,20,9£,D7,8A 

<233> 

210 

DATA 

10, F9 , 4C , 48 , D2 , A2 , 00 , 86 , FD , 20 , 6A 

<234> 

215 

DATA 

15,48, 4A , 4A , 4A , 4A , 66 , F  D , 09 ,18, 85 

<237> 

220 

DATA 

FE, 20, FD, CE, 20, 6A, 15, AB, 68, 29, 07 

<014> 

225 

DATA 

AA, A9 , 00 ,38, 6A, CA, 10, FC ,60 , C9 ,9C 

<030? 

230 

DA1A 

DU, 19, 20, 73,00, A2, 18, 86,23, A0, 00 

<  171  > 

235 

DATA 

34 , 22 , 98 ,91, 22 , C8 , D0 , FB , E6 , 23 , E8 

<009> 

240 

DATA 

E0, 20, 90, F4, 60, C9,8E, 00,06,20, 73 

<234> 

245 

DATA 

00, 4C, 18,E5,20,6A, 15, 08, 20, FD, CE 

<005> 

250 

DATA 

20, 73, 15, 28, F0, 04, 11, FD, D0, 04, 49 

<220> 

255 

DATA 

FF, 31 , FD, 91, FD, 60, 20, 73, 00, 20, FA 

<035> 

260 

DATA 

CE, 20, 73, 15, 31, FD, F0, 02, A9, 01, 20 

<253> 

265 

DA  TA 

94,D7,20,B4,DF,4C,F7,CE,A9,00,85 

<082> 

270 

DATA 

0D , 20 , 73 , 00 , C9 , 40 , F0 , DD , 20 , 79 , 00 

<250> 

275 

DATA 

4C,BD,CE, 144, 17,0,222 

<225> 

0  K4 

'PT 

Listing  1.  »Mini-Grafik  VC  20«  (Basic-Lader) 

Die  »Mini-Grafik«  erzeugt  ein  kleines  Grafik-Fenster 

10  @QN:@CLR:D1M  P(127> 

<236> 

20  FOR  1=0  TO  127 

<254> 

30  @1,0,1 

<096> 

40  NEXT 

<170> 

50  FOR  1=1  TO  127 

<029> 

60  @1,1,64 

<184> 

70  NEXT 

<200 > 

80  FOR  X=0  TO  127 

<073> 

90  @1,X, (l-SIN(X«fi/64> 1*63.5 

<074> 

95  @1  ,X,  (l-COSCX*2j/64)  )*63.5 

<07B> 

100  NEXT 

<230> 

180  FOR  X=0  TO  127 

<  173> 

190  @1,X,  <SlN<X*il/16>  >*<127-X 1/2+63.5 

<070> 

200  NEXT 

<074> 

250  FOR  1=1  TO  127 

<229> 

260  @1,1,0 

<071  > 

265  @0,0,1 

<075> 

270  NEXT 

<145> 

2B0  REM 

<16B> 

281  Y=RND(TI) T2*128 

<245> 

285  PCY)  P1Y1+1  : IF  P(Y)>127  THEN  400 

<228> 

286  @1,Y,P<Y> 

<059> 

300  GOTO  280 

< 080 > 

400  FOR  1=6144  TO  8191 

<083  > 

420  POKE  I , 255-PEEK ( I ) : NEXT 

<016> 

900  ÖRETURN 

©  64 ■'er 

Listing  2.  Demo-Programm  zur  »Mini-Grafik« 

<0QS^ 
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COICI 

JlILL 


C  64 


6510  — 

Die  Suche  nach 
dem  Prozessor 

Mit  einem  Raumschiff  fliegen  Sie 
durch  ein  Höhleniabyrinth.  Ihre  Aufga¬ 
be:  Finden  Sie  den  Prozessor  6510 
und  setzen  ihn  in  seinen  Sockel. 
Wem  das  Höhlen-System  nicht  gefällt, 
der  kann  sich  selbst  neue  erstellen. 

Ziel  des  Spiels  ist  es,  einen  IC  am  Ende  eines  Labyrinthes 
aufzunehmen,  und  diesen  in  seine  Fassung  einzusetzen.  Es 
gehört  viel  Geschicklichkeit  dazu,  die  sechs  Labyrinthe  zu 
durchqueren.  Außerdem  machen  einem  Hindernisse  wie  La¬ 
ser,  Gravitation  und  Fuel  das  Leben  schwer.  Mit  den  Funktions¬ 
tasten  kann  man  die  Geschwindigkeit,  die  Stärke  der  Gravita¬ 
tion,  Anzahl  der  Schiffe,  sowie  die  Fuelabnahme  einstellen.  Zu 
Beginn  befindet  man  sich  in  einem  kuppelähnlichem  Raum,  in 
dem  sich  die  IC-Fassung  befindet.  Durch  Drücken  des  Feuer¬ 
knopfes  kann  das  Fahrwerk  ein-  beziehungsweise  ausgefah¬ 
ren  werden.  Unfallfreies  Landen  ist  jedoch  nur  auf  den  dafür 
vorgesehenen  Fuel-Plattformen  zum  Auftanken  möglich. 

Zum  Eintippen: 

Da  das  Lesen  der  Daten  mit  Prüfsummenroutine  viel  mehr 
Zeit  beansprucht,  als  ohne  diese,  empfiehlt  es  sich,  sämtliche 
»GOSUB3440«  nach  dem  ersten  einwandfreien  Durchlauf  zu 
entfernen.  Ebenso  ist  es  notwendig,  alle  Prüfsummen,  das 
heißt  DATAs  über  255  zu  entfernen.  Durch  das  Entfernen  des 
REMs  aus  Zeile  810.  entfällt  das  blinde  Eintippen  von 
»POKE648.4«  nach  dem  Drücken  von  »RUN/STOP  +  RESTO- 
RE«.  Dieser  »POKE«  wäre  notwendig,  um  wieder  auf  den  nor¬ 
malen  Bildschirm  zu  kommen.  Falls  jemandem  die  Labyrinthe 
zu  schwierig  sein  sollten,  können  diese  geändert  werden. 

Eine  Besonderheit  an  »6510«  ist  unter  anderem  die  Unter¬ 
bringung  der  Fuelsäule.  Diese  befindet  sich  außerhalb  des 
Bildschirmfensters.  Dieses  wurde  mit  Hilfe  des  IRQ  (Interrupt 
Request),  des  Rasterzeileninterrupts  verwirklicht.  Mit  einer 
ähnlichen  Interruptroutine  wurde  auch  die  Steuerung  und  der 
Ablauf  der  Melodie  möglich. 

Das  Prinzip  eines  solchen  Interrupts  ist  folgendes: 

Das  Bild,  das  man  auf  einem  Fernsehgerät  oder  einem  Moni¬ 
tor  sieht,  wird  aus  vielen  einzelnen  Zeilen  zusammengesetzt 
(Rasterzeilen).  Diese  Zeilen  werden  beim  Fernseher  zirka  25 
mal  pro  Sekunde  aufgebaut,  so  daß  ein  flimmerfreies  Bild  ent¬ 
steht.  Beim  C  64  übernimmt  der  VIC  (Video-Interface-Chip) 
diese  Aufgabe.  Wird  nun  eine  ganz  bestimmte  Zeile  aufgebaul, 
verzweigt  der  Prozessor  zu  einer  Interruptroutine.  Bei  »6510« 
wird  in  dieser  Routine  die  Rahmenfarbc  ab  einer  bestimmten 
Rasterzeile  auf  den  Wert  5  (grün)  beziehungsweise  den  Wert 
0  (schwarz)  gesetzt.  Die  Rasterzeile,  ab  der  auf  Grün  geschal¬ 
tet  wird,  ist  von  der  Menge  des  vorhandenen  Fuels  abhängig. 
Mit  dem  Timer-Interrupt  wird  die  Hauptschleife  gesteuert.  Die¬ 
ser  Interrupt  wird  unter  anderem  durch  den  in  der  Speicher¬ 
stelle  56549  abgelegten  Wert  geregelt.  Hierdurch  besteht 
auch  die  Möglichkeit,  die  Geschwindigkeit  des  Cursors  zu  ma¬ 
nipulieren  (TIS  wird  ebenfalls  beeinflußt).  Der  Timer-Interrupt 
wird  von  den  CIAs  (Complex  Interface  Adapter)  ausgelöst. 
Diese  zählen  von  dem  in  56549  stehendem  Wert  auf  Null  her¬ 


unter,  wonach  sie  einen  Interrupt  auslösen  und  wieder  mit 
dem  Zählen  beginnen. 

Die  Daten  für  die  Melodie  werden  ab  SC500  bis  $C6FF  ab¬ 
gelegt. 

Hinweise  zum  Ändern  und  Hinzufügen  von  Labyrinthen 

Um  überhaupt  Labyrinthe  ändern  oder  hinzufügen  zu  kön¬ 
nen,  muß  vor  die  POKEs  in  Zeile  810  ein  »REM«  gesetzt  wer¬ 
den.  Danach  startet  man  das  Programm.  Sobald  das  Auswahl¬ 
menü  erscheint,  drückt  man  die  RUN/STOP-Taste.  Nun  hat  man 
den  umdefinierten  Zeichensatz  zur  Verfügung. 

Ändern  von  Labyrinthen 

Die  Labyrinthe  liegen  in  den  Zeilen  3530  bis  5170.  Sollen 
Labyrinthe  geändert  werden,  so  listet  man  das  zu  ändernde  La¬ 
byrinth  (siehe  Listing).  Nun  kann  das  Labyrinth  wie  ein  norma¬ 
les  Basic-Programm  editiert  werden. 

Hinzufügen  von  Labyrinthen 
Das  Hinzufügen  von  Labyrinthen  ist  etwas  komplizierter.  Zu¬ 
erst  sind  im  Programm  folgende  Änderungen  nötig  (angege¬ 
ben  ist  jeweils  die  gesamte  Zeile): 

1)  Zeile  400: 

400  RI=0:CO  =  0:CK=1:V=53248:SI  =  54272:LM  =  6  + 

Anzahl  der  hinzugefügten  Labyrinthe 

2)  Zeile  1810: 

1810  ON  LA  GOSUB  3520,  3750,  Zeilel,  Zeile2 . 

Zeile  n, 4020, 4280, 4550, 4890 
Dabei  entspricht  »Zeilel«  der  Anfangszeile  des  ersten  hinzu¬ 
gefügten  Labyrinths,  »Zeile2«  der  Anfangszeile  des  2.  hinzu¬ 
gefügten  Labyrinths  und  so  weiter. 

3)  Zeile  2060: 

2060  A  =  0:ON  LA  GOTO  2190,2070 . 2070.2070,2700, 

2080 

Nach  der  ersten  »2070«  müssen  soviele  »2070«  eingefügt 
werden,  wie  neue  Labyrinthe  hinzugefügt  wurden.  Nicht  ver¬ 
gessen,  die  »2070«  durch  Kommata  zu  trennen! 

Jetzt  können  die  neuen  Labyrinthe  an  den  Schluß  des  Pro¬ 
gramms  (ab  Zeile  8000)  angefügt  werden.  Dabei  ist  folgendes 
Format  einzuhalten: 

22  PRINT-Zeilen,  in  denen  das  Labyrinth  gePRINTet  wird.  In 
den  nachfolgenden  Zeilen  müssen  die  Koordinaten  des 
Raumschiffs,  der  Laser  und  der  Fuel-Plattform  gesetzt  werden 
(Tabelle  1).  Die  X-Koordinaten  dürfen  den  Wert  255  nicht  über¬ 
schreiten.  Dies  demonstrieren  wir  am  besten  an  einem  Bei¬ 
spiel. 


8000 

PRINT"...  "N 

>  Labyrinth 

8210 

PRINT'...  J 

8220 

XK(0)=60:YK(0)  =  70 

8230 

XK(1)=30:YK(1)  =  70:MB  =  15 

8240 

POKEV +8,1  OOiPOKEV + 9,1 00 

8250 

POKEV+ 1 0.1 00:POKEV+ 1 1 ,1 1 0 

8260 

POKEV+1 2.200:POKEV+ 1 3,1 20 

8270 

POKEV+14.0:POKEV+15,0  Tahpllfi  1 

8280 

RETURN 

Die  Bedeutung  der  Variablen  und  POKEs  ist  in  Tabelle  1  er¬ 
läutert.  Der  Variablen  MB  muß  immer  der  Wert  15  zugeordnet 
werden. 

Soll  keine  Fuel-Plattform  erscheinen,  so  sind  die  Koordina¬ 
ten  auf  0  zu  POKEn.  Außerdem  ist  darauf  zu  achten,  daß  sich 
keine  Sprites  überschneiden,  da  sonst  die  Kollisionsabfrage 
nicht  einwandfrei  arbeitet. 

Hinweise  zum  Erstellen  eines  Labyrinths 
Erst  wird  —  wie  bereits  beschrieben  —  der  Zeichensatz  ein¬ 
geschaltet.  Dann  löscht  man  den  Bildschirm  und  baut  das  La¬ 
byrinth  aus  den  umdefinierten  Zeichen  auf.  Dabei  ist  zu  beach¬ 
ten,  daß  der  Bildschirm  nicht  nach  unten  scrollt  (dies  kann  pas- 


i 
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sieren,  wenn  man  ein  Zeichen  an  die  letzte  Position  der  Zeile 
setzt).  Dieses  Scrollen  kann  verhindert  werden,  indem  man 
das  Zeichen  an  die  vorletzte  Position  der  Zeile  setzt,  den  Cur¬ 
sor  vor  das  Zeichen  positioniert  und  mit  der  INSERT-Funktion 
um  eine  Stelle  nach  rechts  verschiebt.  Außerdem  müssen  die 
untersten  drei  Zeilen  frei  bleiben  (SCORE,  TIME...).  Auch  darf 
das  Raumschiff  weder  den  oberen  noch  den  unteren  Bild¬ 
schirmrand  verlassen,  da  dies  nicht  in  der  Hauptschleife  über¬ 
prüft  wird.  Ist  das  Labyrinth  fertig  erstellt,  muß  es  in  das  Pro¬ 
gramm  eingefügt  werden.  Dazu  wird  der  Cursor  in  die  linke 
obere  Ecke  des  Bildschirms  gebracht.  Dann  wird  mit  »INSERT« 
Platz  für  die  Zeilennummer,  ein  Fragezeichen  für  »PRINT«  und 
ein  Anführungszeichen  geschaffen.  Nun  wird  die  Zeilennum¬ 
mer,  das  Fragezeichen  und  das  Anführungszeichen  in  den  ge- 


vtc 

Register 

Bedeutung 

0 

X-Koordinate  des  Raumschiffs  Sprite  1 

1 

Y-Koordinate  des  Raumschiffs  Sprite  1 

2 

X-Koordinate  des  Raumschiffs  Sprite  2 

3 

Y-Koordinate  des  Raumschiffs  Sprite  2 

4 

X-Koordinate  des  Fahrwerks 

5 

Y-Koordinate  des  Fahrwerks 

6 

frei 

7 

frei 

8 

X-Koordinate  des  1.  Lasers 

9 

Y-Koordinate  des  1.  Lasers 

10 

X-Koordinate  des  2.  Lasers 

11 

Y-Koordinate  des  2.  Lasers 

12 

X-Koordinate  der  Fuel-Platform 

13 

Y-Koordinate  der  Fuel-Platform 

14 

X-Koordinate  des  Zusatzsprites  Bit-Belegung 

15 

Y-Koordinate  des  Zusatzsprites  des  VIC 

Zusatzsprite 

=  IC-Fassung,  Schlüssel,  6510 

Variable 

Bedeutung 

XK(0) 

X-Koordinate  des  Raumschiffs  auf  der  Hinfahrt 

YK(0) 

Y-Koordinate  des  Raumschiffs  auf  der  Hinfahrt 

XK(1) 

X-Koordinate  des  Raumschiffs  auf  der  Rückfahrt 

YK(  1 

Y-Koordinate  des  Raumschiffs  auf  der  Rückfahrt 

MB 

MSB  dos  Raumschiffs  auf  der  Rückfahrt  (0  oder  15) 

Maschinenroutinen:  Aufruf  mit  SYS 

704 

Ersetzen  von  »POKE648.4« 

832 

wahrend  des  Datenlesens:  Kopieren  des  Zeichen¬ 
satzes  ins  RAM 

im  Hauptprogramm:  Schlußszene 

32768 

Initialisieren  der  Hauptschleife,  wählen  des  Raster-IRQ 
Hauptschleife:  Joystickabfrage 

Bewegung  des  Raumschiffs 

Gravitation 

Fuel 

Laser 

Musik  Maschinen- 

33217 

Joystickabfrage  ausschalten  routinen 

33204 

Joystickabfrage  einschalten  von  »6510« 

52736 

Hauptschleife  ausschalten 

Dle  wichtigsten  Variablen: 

LS  Lasergeschwindigkeit 
SH  Anzahl  Schiffe 
MU  Musik  ein  beziehungsweise  aus 
FS  Fuelsäulengeschwindigkeit 
LE  Level 

ri  Richtung  Variablenliste  von  »6510« 

V  VIC-Basisadresse 
Sl  SID-Basisadresse 

X  Speicherstelle  X  Koordinate 

Y  Speicherstelle  Y-Koordlnate 
LA  Aktuelles  Labyrinth 


rade  geschaffenen  Platz  eingefügt.  Nun  drückt  man  »RE¬ 
TURN«.  Jetzt  fährt  man  mit  dem  Cursor  vorsichtig  an  den  un¬ 
teren  Rand  des  Bildschirms  und  läßt  die  obere  Zeile  aus  dem 
Bildschirmfenster  nach  oben  herausscrollen.  Mit  den  verblie¬ 
benen  Zeilen  verfährt  man  genauso.  Man  sollte  allerdings  nicht 
vergessen,  die  Zeilennummer  laufend  zu  erhöhen. 

(Harald  Beine/Arne  Jansen/rg) 


Unterroutinen: 

100—  820 

Einleseroutine 

830—1 550 

Copyright  und  Titelbild 

1600—1  760 

Initialisieren  des  Speichers 

1 770-2050 

Hauptprogramm 

2060—2070 

Kollision  des  Raumschiffs  mit  Sprite  7 

2080—2180 

Sprite  7 : 

Chipfassung,  Schlüssel,  Chip 

Chip  genommen 

2190—2690 

»Durchgekommen* 

2700—2820 

Schlüssel  genommen 

2830—2930 

Rüttelroutine 

2940—3070 

Game  Over  Unterroutinen 

3120—3130 

Cursor  Positionieren  von  »651 0« 

3140—3150 

Joystickabfrage  aus 

3160—3170 

Joystickabfrage  ein 

3190-3360 

VIC  und  SID  initialisieren 

3410—3510 

Aktuelle  DATA-Zeile  und  Prüfsummenroutine 

3530—5170 

Labyrinthe  1  bis  6 

5 1 80— Ende 

DATAs 

tCB 

RE« 

<223 > 

110 

REM 

* 

6510  * 

<029> 

120 

REM 

<243> 

130 

REM 

* 

* 

<301  > 

140 

RE« 

*  HARALD  BEINE  !.  ARNE  JANSEN  * 

<  1 37> 

150 

REM 

* 

SCHOETTELKOTTER  DAMM  13  * 

<128'- 

160 

REM 

* 

4432  GRONAU  * 

<028; 

170 

REM 

* 

» 

1 4 1  > 

180 

REM 

********* ********************* 

<047> 

190 

REM 

<077> 

200 

REH 

**#********#fr*#**fr#**#*****fr*fr 

<  067  > 

210 

REM 

* 

STEUERZEICHEN  * 

<  1 47> 

220 

REM 

# 

-  * 

<247> 

230 

REM 

* 

"  {CLR}"  SHIFT  *■  CLR/HOME 

* 

<1 91  > 

240 

REM 

* 

“ CHOME>"  =  CLR/HOME 

* 

<  160> 

250 

REM 

* 

•IDOWNJ"  =  CRSR  DOWN 

« 

<2255 

260 

HEM 

fr 

“ 1WH I lt>"  =  CTRL  +2 

* 

:000. 

270 

REM 

* 

" <RED>"  =  CTRL  ♦  3 

* 

<034> 

280 

REM 

» 

" TCYAN>"  =  CTRL  +  4 

* 

<176> 

290 

REM 

* 

"(PURPLE}"  =  CTRL  *  5 

# 

<1B4> 

300 

REM 

* 

"  (GREEN} "  *  CTRL  fr  6 

* 

•  069  V 

310 

REM 

* 

" {BLUEJ "  =  CTRL  +  7 

* 

.081  > 

r.20 

REM 

* 

"(YfcLLUW}'  =  CIRL  +  ö 

* 

<219> 

330 

REM 

* 

" CRVSON/ "  =  CTRL  fr  9 

* 

090; 

340 

REM 

* 

" (ORANGE >"  =  C=  *  1 

* 

<022> 

350 

REM 

* 

"(LIG.BLUEV  =  C=  +7 

* 

<063> 

360 

REM 

fr«  ********** («*•«••***•■•**  ft** 

<228> 

370 

REM 

<002> 

380 

POKE  56 

126: CLR: POKE  251,0 

<  223  > 

390 

R=1 

LS=1:SH=3:MU=1:SP=100:MS=  5:FS=! 

OF=0:LE=1 

<231  > 

400 

ft I -0: CO-M: CK=1 : V=5324G: SI*54272 

<  059  > 

4  2  0 

POKE  SI+12,71 :POKE  51+13.25: POKE  SI+ 

1  ,0 

<002  > 

420 

FOR 

1=0 

TO  17: READ  A:GOSUB  3440: POKE 

52736+1 . A: N 

EX  1 

<  229> 

430 

SYS 

52736: POKE  S 1+24,0: POKE  V+21,0 

<189;- 

440 

POKE  V+48 , 0: POKE  V- 1 7 , 1 55: POKE  V+16,0 

•  172> 

450 

POKE  V- +32,0: POKE  V+33,0 

<  174> 

460 

CX  = 

0:CY^10:GOSUB  3120 

<  192> 

470 

PRINT  CHR£(14)CHRS(B) 

<061  > 

400 

PRINT" (CLR . GREEN , RVSUN , 40SPACE  > " ; 

<  1 88  > 

490 

PRINT"  .SITTE  154  SEK.  fiEDULD  '  !  (2SPACE5AESE  ASTE 

N  ' 

" ; 

<1  !6> 

500 

PRINT" (48SPACEJ " 

<210  • 

510 

X=24B: Y- 

249 

<  I39> 

520 

REM 

DATEN  EINLESEN 

<088? 

530 

FOR 

1=332  TO  832+33: READ  A:GOSUB  3440: POKE  I.A:N 

EXT 

<  085  > 

540 

SYS 

832 

<089  > 

550 

FOR 

T=0 

TO  62: READ  A:GOSUB  3440: POKE 

61 440+T, A: N 

EX  1 

<1  18> 

560 

FOR 

T=0 

TO  62: READ  A:GOSUB  3440: POKE 

61504+T , A: N 

EXT 

<  1 29  > 

570 

FOR 

T=0 

TO  62: READ  A: GQSÜB  3440: POKE 

61568+T , A: N 

EXT 

«:i49> 

580 

FOR 

T~0 

TO  62 E POKE  61696*T,0:NEXT 

<252> 

500 

FOR 

TO  62  STFP  3 I POKF  61696+T.A0 

NF  X  T 

<  0:--4  > 

<->00 

FOR 

T=0 

TO  62: READ  A:G0SUB  3440: POKE 

61  760-t-T ,  A:  N 

EXT 

<  173> 

610 

FOR 

T  0 

TO  62*  READ  AsGOSUB  3440: POKE 

61824+T , A: N 

FXT 

<  184  : 

620 

FOR 

T-0 

TO  62:  READ  ArGOSlIB  3440:  POKE 

6 1 8SQ+T , A: N 

EXT 

<204  > 

Listing 
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630  FÜR  T=0  TD  62:  READ  AtGOSUB  3440:POKF  61952+T,A:N 
EXT 

640  FOR  1=0  TO  25: READ  A: GGSUB  3440: B*=B*+CHR* <A> : NE 

XT 

650  FOR  AN=0  TO  18: FOR  1=0  TO  7 

660  READ  A.-GQSUB  3440: POKE  59392+1  +8* AN, A 

670  NEXT  I  :  NEXT  AN 

680  POKE  56334,PEEK (56334) AND  254:P0KF  1 ,PEEK < 1 ) AND 
251 

690  FOR  A=0  TO  7: POKE  59552+A , PEEK ( 54088+A  > : NE X  T 
700  FOR  A=0  TO  7: POKE  59560+A, PEEK <551 12+A) : NEXT 
710  FOR  A=0  TO  7 : POKE  59568+« , PEEK  (54008+A)  :  NEXT 
720  FOR  A=0  TO  7:PUKE  59544+A, PEEK (55032+A) : NEXT 
730  POKE  1, PEEK ( l)OR  4: POKE  56334 »PEEK (56334 > OR  1 
740  FOR  1=32768  TO  33229: READ  A: GOSUB  3440: POKE  I , A: 
NEXT 

750  FOR  1=36600  TO  36863: POKE  1,0: NEXT 
760  FOR  1=0  TO  255: READ  A:GOSUB  3440:POKE  50432+1, A: 
READ  A 

770  GOSUB  3440: POKE  506BB+I , A: NEXT 

780  FOR  1=0  TO  11 7:  READ  A:  GOSUB  3440:  POKE  B2B+l,AsNE 
XT: 

790  FOR  1=0  TO  15: READ  A: GOSUB  3440:POKE  704+1, A:NEX 
T 

800  IF  F=1  THEN  END S REM  WENN  FEHLE*  IN  DATA, DANN  END 
E 

810  REM  POKE770 , 704AND255: PÜKE771 , 704/256 
820  POKE  V+24 ,11: POKE  56576, PEEK < 56576) AND  252: POKE 
640,192 

830  GOSUB  3190: PRINT" (CLR ,L IG. BLUE >  " : POKE  SI+24,0 
040  PRINT"LPLLPLLOPOLLLLOLQOPOOLOOLOPLLOPOOPOLLOPL " ; 
850  PRINT "ABFEABEABFEFABABFEABFEABEFFEABFFABFEABFE" ; 
860  PR I NT  M  CD  (2SPACE >CD (6SPACE  >CD  (4SPACE  >CD  (2SPACE  J CD 
(4SPACE  >CD (6SPACE >CD  C2SPACE ) " ; 

870  PRINTxPRINT 

880  PR I NT " GH  C6SPACE > GH (2SPACE  > GH  ( 2SPACE  > GH (4SPACE 5 GH 
<4SPACE>GH  < 4 SPACE > GH {4SPACE > "  ; 

890  PRINT" IJSIJ  K  I JGHI JNJ I J (4SPACE> I J@T J@I JKI JQI JKI 

JK"  ; 

900  PR 1 NT " LPLLPLLOPQLLLLQLQB (4SPACE  >AOLOPLLOPDOPOLLO 
PL"! 

910  IF  C0=1  THEN  990 

920  C=0: POKE  V+21 ,3: POKE  V+1,S0:POKE  V+3,80:POKE  V+5 

,00 

930  PRINT" (DOWN, YELLOW >": FOR  1=1  TO  3: READ  AW,EW,SW, 
S1,S2: GOSUB  1560 
940  NEXTrFOR  1-104  TO  245 
950  POKE  V+0 , I +6 : POKE  V+2 , I +6 

960  IF  I  >=104  AND  1=  ( INT  ( I /0)  )  *8  AND  C<  =  13  THEN  GOSU 
B  3370 

970  NEXT: PRINT:  GOSUB  3390 

980  FOR  1-1  TO  2: READ  AW, EW, SW, Sl ,S2: GOSUB  1560:NEXT 
990  IF  CO=0  THEN  1030 

1000  POKE  V+0, 172: POKE  V+ 1,80: POKE  V+2, 1/2: POKE  V+3, 
30 

1010  PRINT"  (2D0WNVTAB  ( 14)  "  (YELLOW >"A* 

1020  GOSUB  3390 

1030  CX=0:  CY=16: GOSUB  3120 

1040  REM  F  GRAVITATION  NORMAL 

1050  PRINT"  (GREY  2,  DOWN ,  SPACE >£1  (4SPACE> :  5.FAVJTATI.Q 

1060  REM  F  LASER  SPEED  NORMAL 

1070  PRINT"  £3<4SPACE>:  LA5AK (5H 1 FT-SPACE ) 5 PEEJD (4SPA 
CE>:  12SPACE  }.HÜAWU.(2SPACE  >  » 

1080  REM  F  ANZAHL  SCHIFFE 

1090  PRINT“  £5  (4SPACE1 :  UVAn.L.  (SH  I F  T  -SPACE  15CHIFFE  : 
(2SPACE  >3 (2SPACE } " 

1100  REM  F  MUSIK  EIN 

1110  PRINT"  £.7  (4SPACE1 :  flUälftX  10SPACE  > :  <2SPACE>£IH" 

1120  REM  CRSR  +  FIJELSAEULE  SCHNELL 

1130  PRINT“  CK5R  f.U.£.L.5AU. L.E. (6SPACE > :  (2 SPACE ) .S.CAHE.L 

L" 

1140  REM  RETURN  START 

1150  PRINT"  RILTHRN:  .S.TJWT  " 

1160  FOR  T-0  TO  30: NEXT : A=P£EK (203) 

1170  ON  A  GOSUB  1430,1240,1200,1270,1340,1400 
1180  IF  A-~l  THEN  POKE  SI +24 , 15:  GOTO  1600 
1190  GOTD  1160 
1200  CX=2/:CY=20: GOSUB  3120 

1210  IF  MU=1  THEN  PRINT"/TU-5"  :  M1J-0:  RETURN:  REM  AUS 
1220  IF  MU=0  THEN  PRINT" UK"  : MU=  1  : REM  EIN 
1230  RETURN 

1240  CX=27:CY=21: GOSUB  3120 

1250  IF  FS-1  THEN  PRINT  ".IJlKOAftn"  :  FS»B:  RETURN:  REM  LAN 
GSAM 

1260  IF  FS=0  THEN  PRINT".5.CJWELLL."  :  FS=1 :  RETURN:  REM  SCH 
NELL 

1270  6R=GR+ 1 : I F  GR >4  THEN  GR=1 
1280  CX=27:CY= 17: GOSUB  3120 

1290  IF  GR=1  THEN  PRINT"  ATJUUl (5SPACE > 11 :  REM  STARK 
1300  IF  GR=2  THEN  PRINT"  5CJtRR.C.H (2SH 1 F T -SPACE  T  SPACE  > " 
: REM  SCHWACH 

1310  IF  GR=3  THEN  PR I NT " C4SPACE > " : REM  NORMAL 
1320  IF  GR=4  THEN  PR  INT"  ££&Hß££tl£AM :  REM  SCHWAECHER 
1330  RETURN 

1340  LS=LS+ 1 : IF  LS>3  THEN  LS=1 
1350  CX=27:CY  18: GOSUB  3120 

1360  IF  LS=1  THEN  PR  1  NT "  APJLNJLl-L  "  !  REM  SCHNELL 
1370  IF  LS=2  THEN  PRINT  ".LAK.G_5.Hn  " :  REM  LANGSAM 
1380  IF  LS=3  THEN  PR I  NT " KOJUAL  < 2SPACE > "  :  REM  NORMAL 
1390  RETURN 

1400  SH=SH+1 : IF  SH>15  THEN  SH=3 
1410  CX=26: CY=19: GUSUB  3120 
1420  PRINT  SH  CHR*< 157) CHR*  ( 32) : RETURN 
1430  PRINT " (HOME , 8D0WN J " 


<206> 


<068> 

<076> 
<074  > 
<  182> 

<141  > 
<232> 
<230.' 
<251  > 
<253> 
<243> 

<234  > 
<075' 


<17! 

<085 


<235> 

<175; 

<090 

<ui5 
<184 
<154 
•  250 


•  040 

<213- 

'116 

< 05 7  > 

<125 

•rrio  • 


<027 

<218: 

<187 

<045  = 

<094  > 
<184- 
■  001  > 
<075> 

<111  > 
<108 
09 1  > 

<  003 

<  250 


<  1  60  > 
•:  174'- 


<205> 

<199- 


<155  > 

<  !  38  > 

013- 
.  12B> 


<011> 

<1  17> 
<135> 
<219> 
<122> 
<085: 
<251  > 
<22S> 
<243> 
<027> 
<096> 
<010: 

<061  > 

<083: 
<031  > 
<056> 
<237> 

<040: 
<0ii> 
<  062 > 
<197> 
<125> 

<  127> 
<063> 
<064  > 

<  087  > 
<001  > 
<222> 

<  187> 

<  191  > 
<019> 


1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1B00 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1090 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 
2100 
21  10 
2120 
2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 


FOR  T=0  TO  4  <052> 

PRINT" <37SP ACE >"  <140> 

NEXT  <059> 

REM  JOYSTICK  IN  PORT  1  <207> 

PR  I  NT  "<  1 1  SPACE  >-JArALlCAvSH  I  FT-SPACE  )  lü  (SHI FT-SP 
ACE  >  AOAT  (SH  I  FT-SPACE  1 1  <7SPACE>*'  <B07> 

FOR  T=0  TO  7  < 1 05  > 

PR 1 NT " (37SPACE  > "  < 1 90  > 

next  -:i09:> 

AW= 1 73: EW=255:SW=1;S1=0:S2=2: GOSUB  1560  <155> 

POKE  V+16, 3: AW=0: EW= 100: GOSUB  1560  <188> 

POKF  V+0,0: POKE  V+2,ß:P0KE  V+16,0  <032> 

RETURN  <162> 

REM  SCHLEIFE  <240> 

FOR  K=AW  TO  EW  STEP  SW: POKE  V+S1,K:P0KE  V+S2,K  <106> 
FOR  T=0  TO  30: NEXT: NEXT  <104> 

RETURN  <202> 

IF  LS=1  THEN  POKE  33004 , 40: POKE  33020,20  <114> 

IF  LS=2  THEN  POKE  33004 , 200: POKE  33020,100  <2l8> 

IF  LS=3  THEN  POKE  33004 , 1 00: POKE  33020,50  <184> 

IF  GR-1  THEN  GR-30  <192> 

IF  GR =2  THEN  GR=150  <254> 

IF  GR=3  THEN  GR=70  <218> 

IF  GR-4  THEN  GR“ 255  <026> 

KUKfc  33032, 230: POKE  33033,249  <119> 

POKE  366 11,  1 : POKE  36607 ,8  < 1 98  > 

POKE  331 56, MS  :POKE  36860,5  <062> 

IF  FS=1  THEN  POKE  32978,10  <137> 

IF  FS“0  THEN  POKE  32978,50  \  150> 

POKE  SI+2,2: POKE  SI+3,7  <216> 

IF  MU=0  THEN  POKE  33152,  96:P0KE  SI+24,15  <189> 


POKE  V+21,247 

POKE  56549, SP: POKE  36862,51 
SYS  32768: POKE  V+30,0:POKE  V+31,0 
IF  RI  =  1  THEN  L1=5:L2=1  tL3— 1 


IF  RI=0  THEN  L 1 = 1 : L2=6 : L3= 1 

FOR  LA=L1  TO  L2  STEP  L3: TI *="000000" 

AX=PEEK  (V+21  )  :  POKE  V+2l,0 

ON  LA  GOSUB  3520,3750,4020,4280,4550,4870 
POKE  V+21 , AX 

POKE  X , XK (RI ) : POKE  Y , YK (RI ) 

POKE  36614,0: IF  RI-1  THEN  POKE  36614, MB 
CX=0  :CY=22: GOSUB  3120 
PRINT " (WHITE, £ 

»JütAJÜWQg 


REM 
PRINT" 
ACEJ- 
PRINT" 
OME  3  " 


SHIPS  TIME  SCORE 

-5AIAS.:  (3SPACE) .  _T  C6SPACE  >  -  (8SP 


CX=8  : CY=23: GOSUB  3120:PRINT  SH;:BOSUB  3150 
GOSUB  3170: CX-31: GOSUB  31 20: PRINT  SC;: POKE  3302 


POKE  251 ,0: POKE  V+30,0:POKE  V+31,0 
SYS  8*4096 

IF  PEEK (251) THEN  2780 
POKE  250, RI 

A=PEEK (V+31 ) : IF ( A  AND  7) THEN  2B30 
A=PEEK ( V+30 ) 

IF  A=60  THEN  GOSUB  2940 

IF  A  AND  128  THEN  2060 

IF ( A  AND  7) THEN  2830 

IF  PEEK (36862) >=250  THEN  2050 

IF (PEEK (56321 ) AND  16) =0  THEN  GOSUB  3080 

CX= 18: CY— 23: GOSUB  3120:PR1NT  MID» (TI*, 3,2) j 

PRINT": "RIGHT* (TIS, 2) : GOTO  1940 

PUKE  53274,0: POKE  53280,0: POKE  33028, 1 : OF  1 : GOT 

O  1940 


<  1 49> 

<  187> 

<  1 75> 
<230> 
<069> 
<156> 
<096> 
<H2> 
<226  ‘ 

<  189  > 

<  1  10> 
<055> 

<077> 

<022> 

<110> 

<  165> 
<171  > 

<135> 
<051  > 
<230> 
<073> 

<  1 54> 
<202> 
<034  > 

<  1 78> 
<082> 
<078> 
<240> 

<  2 1 0  > 
<204> 
<224> 

<  162> 


A=0: ON  LA  GOTO  2190,2070,2070,2070,2700,2080  <174> 

GOTO  2000  <105> 


RI =1: POKE  V+l 4 ,0: POKE  V+15,0:POKE  36610,1 :POKE 


33030,40  <059> 

A=0: IF  U=1  THEN  2000  <187> 

GOSUB  3150  <146> 

POKE  648, 4: FOR  H=0  TO  5  : FOR  1*7  TO  18  <151> 

CX=15:CY=I: GOSUB  3120  <097> 

PRINT" (RVSON , BL  UE , 23SPACE  > “  <104> 

CX=1 5: CY=I : GOSUB  3120  <117> 

PRINT" (R VSUN , RED , 23SPACE  > "  <121> 

CX=15:CY=I: GOSUB  3120  <137> 

PRINT" (RVSON , YELLOW , 23SP ACE ) “  <  0 1 5  > 

NEXT: NEXT: U=l: POKE  648, 192: GOSUB  31 70: GOTO  2000  <142> 
IF  PEEK (36610) Ol  THEN  2000  <050> 

POKE  V+23, 176: POKE  V+29 , 128: POKE  50174,200  <249> 

POKE  V+12, 176: POKE  V+13,90  <0S6> 

POKE  33038, 45: POKE  V+21 , 195: POKE  SI+24,0  <185> 

SYS  52736: POKE  32809 , 1 62 : POKE  32810,128  <149> 

SYS  32768: POKE  V+40,2:POKE  V+32,0  <149> 

POKE  V+26,0: FOR  1=0  TO  62:P0KE  62144+1 ,0:NEXT  <252> 
FOR  1=0  TO  3000: NEXT: GOSUB  3150  <059> 

FOR  1=0  TO  2: CX=0: CY=22+I : GOSUB  3120  <139> 

PRINT" C39SP ACE <  008 > 
PRINT  CHR* (20) "  " ; : NEXT  <072> 

SYS  020: POKE  V+45,1*P0KE  V+46,B  <122> 

POKE  501 72, 203: PUKE  501 73, 203: POKE  V+43,6  <146> 

POKE  V+44, 6: POKE  V+8, 152: POKE  V+7,194  <027> 

POKE  V+l 1,1 94: POKE  V+10,216:POKE  V+21 , 243: POKE 
646,6  <169> 


FÜR  1=0  TO  62  STEP  3:PÜKE  62144-M,255  <078> 
FOR  J=0  TO  50:  NEXT  J,I  <104> 
FOR  1=0  TO  4: CX= 16: CY=18+I : GOSUB  3120  <BS6> 
PR I NT " Q (7SPACE  >0 " ; x  NE  X  T  <193> 
FOR  1=194  TO  220  STEP  2: POKE  V+9,I:P0KE  V+11,I  <169> 
FOR  J=0  TG  50: NEXT  J,I  < 144> 
FOR  1=0  TO  1 : CX= 1 6: CY»23+I : GOSUB  3120  <069> 


72 
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2410  PRINT"Q C7SPACEJ0" ; sNFXT 

2420  POKE  V+21 , 195:P0KE  V+23, 128: POKE  V+29, 176 

2430  POKE  501 73, 195: POKE  50172,195 

2440  POKE  V+8 ,141: POKE  V* 1 0 , 1 89: POKE  V+9,186 

2450  PDKE  V+l 1 , 186: POKE  V+21, 243 

2460  CX~ 1 7i CY~ 1 7 : GOSUB  3 1 20 x  PR I NT " C7SPACE > " ; 

2470  FOR  1=0  TO  29: PDKE  V+S, 141-1: POKE  V+10,1B9+I 
2480  FOR  J=0  TO  20:NEXT  J,I 
2490  FOR  1=0  TO  3000: NEXT 

2500  FOR  I=PEEK<V)TO  176  STFP  SGN ( 1 76-PFFk < V ) ) 

2510  POKE  V , I : POKE  V+2,1 

2520  FÜR  J-0  TD  20: NEXT  J , I : FOR  10  TO  1000: NEXT 
2530  FOR  I =PEEK ( V+ 1 ) TO  246: POKE  V+l, Is POKE  V+3,I 
2540  FOR  J=0  TO  20: NEXT  J,I 

2550  SP=SP-10:LE=LE+1: IF  SP<=35  THEN  SP=SP+10 
2560  FOR  1=0  TD  3000: NEXT: POKE  V+21 ,0: PRINT  CHR*(142 
) 

2570  PR INT" <CL R , WH I TE , 4 DOWN , 7 SPACE J HER Z L I CHEN  GLUECK 
WUNSCH  ! ! 

2580  PRINT"C3D0WN,11SPACE>SIE  HABEN  IHRE 
2590  PRINT" CD0WN,9SPACE>MISSI0N  ERFOLGREICH 
2600  PRINT" C2DÜWN, 14SPACE JBEENDET  !! 

2610  PRINT" C3D0WN,6SPACE JAB  JETZT  WIRD'S  SCHNELLER  • 

2620  PRINT" C2DDWN, 15SPACE) LEVEL  : "LE 

2630  FUK  1=0  IU  5000: NtXI 

2640  GOSUB  3190 

2650  PRINT  CHR*(14> 

2660  POKE  V+2 1,243 

2670  POKE  33038, 40: POKE  36610,0 

2680  R 1=0: GOTO  1750 

2690  GOTO  2000 

2700  GOSUB  3150: POKE  V+14,0:POKE  V+15,0:POKE  V+12,25 
5 

2710  FÜR  Z=9  IO  13: CX-31:CY-Z: GOSUB  3120: PRINT"  " 

2720  PDKE  S 1+18, 33: PÜKE  Sl+18,32 

2730  FOR  1=0  TO  300: NEXT: NEXT 

2740  CX-36:CY=6: GOSUB  31 20: PRINT"  " 

2750  FOR  1=7  TO  16: CX=35: CY=Z: GDSUB  3120: PRINT" C2SPA 
CE>":POKE  SI+18,33 

2760  PDKE  51* 18,32: FOR  1=0  TO  300: NEXT : NEXT 
2770  CX=36:CY=Z: GOSUB  3120: PRINT " C2SPACE 3 ": GOSUB  317 
0: GOTO  2010 

2780  IF  RI = 1  AND  LA=1  THEN  POKE  251,0: GOTO  1940 
2790  SC=SC+(  (240-VAL(TI*)  >#10) 

2800  CX=30:CY=23:  GOSUB  31 20: PRINT ".5A°AMSHIFT-SPACE J 
:  "SC;: POKE  251,0 
2810  RFM  SCORF 
2820  NEXT: GOTO  1770 
2830  REM  RUEITEL  ROUTINE 

2840  KR=PEEK  < V+ 17): GOSUB  3150: POKE  SI+1 1 , 129: POKE  SI 
+8,50 

2050  POKE  SI+12, 16*  1*5 
2860  POKE  SI+13,16*  1+1 

2870  FOR  1=1  TO  10:POKE  V*17,23:P0KE  SI *1 1 , 129: FOR  T 
=0  TO  50: NEXT 

2880  PDKE  V+17, 16: POKE  SI+1 1 , 128: FOR  T=0  TO  50:NEXT: 
NEXT 

2890  POKE  V+17 , KR: POKE  SI+1 1,0 
2900  PUKE  36862,51 

2910  POKE  SI+12,71: POKE  SI+13, 25: SH=SH-1 x Tlf="000000 

2920  IF  SH=0  THEN  SH=3: GOTO  3010 
2930  GOTO  1830 

2940  GOSUB  3150: Y1=PEEK (Y) : POKE  BI+5,255:F0R  I~0  TO 
500: NEXT 

2950  IF  OF=l  THEN  OF=0:POKE  53274 , 24 1 : POKE  33028, GR: 
POKE  36862,250 

2960  FOR  I=PEEK (36862) TO  51  STEP- 1: POKE  36862,1: POKE 
S1+  8,1-51 

2970  PDKE  SI+1 1,17: POKE  SI+1 1 , 18: NEXT 
2980  POKE  Y,Y1-1: GOSUB  3180: FOR  XY=0  TO  100 
2990  NEXT : IF  PEEK < V+30) THEN  Yl=Yl-l:GOTO  2980 
3000  GOSUD  3 170: POKE  SI+1 1 ,0: A=0: POKE  S I +5 , 77: RETURN 
3010  SYS  52/36: POKE  V+21,0:POKE  53280,0: POKE  S 1+4,0 
3020  PRINT  CHR» (147) :CX-15:CY-12:ÖUSUB  3130: PRINT"G£ 
OVE^" 

3030  IF  SC>HS  THEN  HS=SC 

3040  PK  1  NT  "C3D0WN,9SPACEJ  .§£&&£  :  “SC: REM  SCORE 

3050  PRINT“  CD0WN,4SPACE k&L*JL  :  "HS:  REM  HIGH  - 

3060  FOR  1=0  TO  4000: NEXT: RI=0:SC=0 

3070  POKE  V+21 , 3: CQ=1 : SP=100: GOTO  830 

3080  IF( (PEEK (V+21) ) AND  4)  4  THEN  3100 

3090  PUKE  V+2 1, PEEK ( V+2 1 ) OR  4: GOTO  3110 

3100  POKE  V+21 , PEEK (V+21) AND  251 

3110  RETURN 

3120  REM  CURSOR  POSITIONIEREN 

3130  POKE  21 1 , CX: POKE  214,CY:SYS  58640: RETURN 
3140  REM  RAUMSCHIFF  FESTHALTEN 

3150  SYS  33217: POKE  V+2 1 , PEEK ( V+2 1 ) AND  207: RETURN 

3160  REM  RAUMSCHIFF  LOSLASSEN 

3170  SYS  33204:  POKE  36608 , 50:  RFTIJRN 

31B0  POKE  V+l  ,  Y 1  :  POKE  V+3,Yl:Pni<F  V+5,Yl:POKE  V+7,  Y1 
: RETURN 

3190  KEM  SPRITES  INITIALISIEREN 

3200  POKE  V+31 ,  0: POKE  33048,4 

3210  POKE  V+39,  7: POKE  V+40  ,2 

3220  POKE  V+4 1 ,  1 : PÜKE  V+42  ,0 

3230  POKE  V+43 ,  5: POKE  V+44  ,5 

3240  POKE  V+32,  0:POKE  V+33  ,0 

3250  POKE  V+23,48: POKE  V+27  ,240 

3260  POKE  V+29 , 64 : POKE  33052,84 

3270  FOR  T=0  TO  62: POKE  61632+T,0: NEXT 

3280  FOR  T -0  TO  23: POKE  61632+T, 255: NEXT 

3290  POKE  50168, 192: POKE  50169,193 

3300  POKE  50170, 194: POKE  30171,195 


<233> 

3310 

<069> 

3320 

<  132> 

3330 

<247> 

3340 

<088?- 

3350 

<04  1> 

3360 

<020> 

3370 

<231  > 

<146> 

3380 

<084> 

3390 

<  177> 

<022 > 

3400 

<219> 

3410 

<035> 

3420 

<203> 

3430 

<235> 

3440 

3450 

<108; 

3460 

<1 15> 

3470 

<064> 

3480 

<072> 

<  175> 

3490 

<136> 

3500 

<0sS3> 

<  1 80> 

3510 

<122> 

3520 

<  045  > 

3530 

s205> 

3540 

<143> 

3550 

<215> 

3560 

3570 

<013> 

3580 

<223> 

3590 

<  1 4  7  > 

3600 

<015> 

3610 

<214> 

3620 

<030> 

3630 

<062? 

3640 

<040? 

3650 

<  209  > 

3660 

<063? 

3670 

<167> 

<  0 1 5  > 

3680 

<035? 

<243^ 

3690 

3700 

<  1 58  > 

3710 

<108? 

3720 

<195> 

3730 

3740 

<180;- 

3750 

<  1 43> 

3760 

<242  > 

<145> 

3770 

<  090  > 

3700 

<041  > 

<210> 

3790 

<  174> 

3000 

<126> 

3810 

<230> 

3820 

<066> 

<071  > 

3830 

<08b> 

<251  > 

3840 

<216> 

3850 

3860 

<247> 

<216> 

3870 

<01 2> 

<234 > 

3880 

<056  J 

<143> 

3890 

<235> 

<038> 

3900 

<011> 

<  192> 

3910 

<145> 

<015> 

3920 

<181> 

<222> 

3930 

<143> 

<057? 

3940 

<742  > 

3950 

<084  > 

<022> 

3960 

<  1 43> 

3970 

<140? 

>980 

<163> 

3990 

<  159> 

4000 

<078> 

4010 

<198> 

4020 

<  126> 

<24 1  > 

4030 

<232> 

<232> 

POKE  50172,196: POKF  50173,196 

POKE  50174, 197: POKE  50175, 198: POKE  36610,0 

POKE  SI+  2,  2: POKE  SI+  3,  7:U=0 

POKE  SI+  5,  77 : POKE  SI+19,0sPOKE  SI+20,244 

PDKE  Sl+15,  30: POKE  36614, 0:POKE  V+16,0 

POKE  S I +6 , 24 : POKE  SI+24 , 15: RETURN 

READ  ZE: PRINT  TAB ( 1/8) CHR* ( ZE) ; : C=C+1 : A*=A$+CHR 

*(ZE> 

RETURN 

PRINT" {ORANGE , DOWN , 13RIGHT , SPACE 3 (£)  19B4 {2SPAC 
E>A£  “ 

PR I NT " {DOWN , 5RIGHT , 2SPACE  J "B* : RETURN 
REM  AKTUELLE  DATAZFILF 

CZ"PEEK (63) +PEEK (64) *256: IF  CK=1  THEN  AZ=CZ:RET 

URN 

RETURN 

REM  PRUEFSUMMENROUT I NE 
GOSUB  3410: CK=0 
IF  A>255  THEN  CS-AtGOTO  3480 
S=S+A: RETURN 

IF  SOGS  THEN  GOSUB  3420:  FRTNT"mLLL*  :  "AZM- 
"CZ; CS-S 

IF  S<>CS  THEN  READ  A: F=1 : S=0: CK=1 : RETURN 

IF  S=CS  THEN  GOSUB  3420: PR  I  NT  "  .ZJLLl-E.  :"AZM-"CZ"Ä 

i" 

S=0: CK=1: READ  A: RETURN 
REM  •  *  LABYRINTHE  ** 

PR I NT " {CLR , BLUE , 2D0WN , 1 8SPACE >UOQQS 
PR I NT " C 1 6SPACE >  UOQT  VOQS 
PR I  NT “{ 1 5SPACE JUGT C5SPACE > VQS 
PR I NT - < l 4SPACE >UßT C7SPACEJVBS 
PR INI" C14SPACEJQT C9SPACEJVQ 
PR I NT “ U  3SPACE  JUO  < 1 1 SPACE  >QS 
PRINT“ <13SPACEJQT(1 1 SPACE >VO 
PRINT“ { 1 2SPACE  JUQ  < 1 3SPACE  >QS 

PRINT "UOQQQQQQGQQQGT  CI  3SPACE  JVDOODQQDOQQQQ“  ; 

PRINT " ARABFAPL  DFAB <WH 1 TE >0 <BLUE , 1 5 SPACE .WHITE >G 
CBLUE 3  FLOLPLFEABF “  ; 

PR 1 NT " CDCD C2SPACE I AB  C2SPACE JCD C 1 BSPACE  > FPLOB  C2S 
PACE > CD 

PRINT" C6SPACE  >CD  C23SPACE  > ABF C6SPACEJ" ; 

PRINT" C40SPACFJ " ; 

PRINT " GH 1 1 3SPACE JGH { 7SPACE >GH { 1 0SPACE 3 GH  C2SPACE 

PRINT"  1 J9K I J  C2SPACE  >K I J (S  {WH I  TE > G  CBLUE ,  SPACF > 01 J 
C75PACE > I JKK CWH I  TE  5Q  CBLUE  ,  6SP ACfc  J (ä 1  J  ä  "  : 

PRINT" GOODDOOOGOODOOQQQQOQGODOQQQOQQQGDÖQGQQGQ " 

POKE  36614,0: XK (0) =1 /4: YK(0>  =130 

POKE  V+8, 248: POKE  V+9, 139: POKE  V+l 2,0 

POKE  V+ 13,0: POKE  V+10, 120: POKE  V+l 1,139 

POKE  V+23, 176: PÜKE  V+29, 192 

POKE  50 ■ 75 , 1 98: POKE  V+l 4 , 164: POKE  V+15,73 

XK ( 1 ) =54: YK( 1) =151 :MB=15: POKE  V» 46, 8: RETURN 

PRINT" (Ci  R,RFD>OLI  OLPOLQLGGPLLLLLLLOQLLPLLOLGLL 

PLLODLLL"; 

PR 1 NT ” LOLLPLLOQLLOQOLLLLQLLOLPLLLLOLOPLLLQOLLL " 

PRINT  "  OLOPLLQLOLLPLLLOLLQLLPOLLGLLQOPLLLLLPOLL  *' 
1 

PR  INT"  LOGJLLQLLLOPQLLLPL  OL  L  POLOLLOLLLOLLLLPLLQL  *' 

; 

PR I NT - llollpollpolllpolqlpllqpüollqlpollpolllo " 

PRINT-LLLOPLLOPLLOLPLL Ol  POLLPLLOLOLPLPOLLLOLLP" 

PR I NT " L l  LQLLOLLOOlLOLPLLQLLPLQLPOLLLPLLOLLLULL " 

PRINT" EF ABE  CWH I T E 3 G (RED 5 ABPLLPLLPOLQLABEF  C WH 1 TE 
3  0  CRED5ABFABFEABFFABFFA" ; 

PRINT" C2SPACE  JCD  C2SPACE JCDFABOLLOLODFCD C3SPACE  > 

CD  CSSPACE  JCD  C2SPACE >CD  C2SPACE >C " ; 

PRINT" C9SPACE  3  CD ABLP1 . 0  CRRPACF , SH I F  T-SP ACE  > 

PR INT " C 1 1 SPACE  3  C DF OLE C2 1 SPACE  3 " ; 

PR INT" C2SPACE > I JK  C 1 1 SPACE  JAB  C5SPACE  > I J  CWH I TE  5  Q  C 
RED> JPI J C5SPACE> I JÖGH&  “ ; 

PR  I NT" LOOLL  CWH I TF) O  CRFD , SPACE >  6GH CSH IFT-SPACE , 3 
SPACE JCD  C4SPACE 3 KOLPQLLL C5SPACE  JOLOPLDL " ; 

PRINT" LLLDLOLL 1 J  Ö  C BSPACt  J 1 LPLLLOPL C5SPACE 3  LLLOL 

LL“;  _ 

PRINT "LLLPOLQPLLL8  C6SPACE J I LLOLLLLOL ^TFFJLLLPOL 
L  * ; 

PR I NT “ LLPLOOPQLLLPL 8  GH@POLLOLLLPLLLLLLLLPLLQL “ 
PR I NT-LPOLLOOL  LLPLLL  01 JLGLOLPOQPLLLLOLPLPULLLO  M 

pr  i  nt  ••  pllol  i  loloollopllolopolplqllllppllllolll  " 

PK IN  I "ULULULLLULLULPLÜLLQPLQOüLLÜLLLPOLLLLPOLL" 
PR I NT "LQLLPOLLLOLPOßOLLLPOLLF'OLLLLLPLLOLLPLLOL " 

PR I NT - llopllolqlolloqülllllplllllllllllollllll " 

: 

print-llpolllolllolllpolllpollllllllllllllllll" 

POKE  3661 4 , 0: XK ( 0) =26: YK (0) =1 1 6: XK ( 1 ) =59 
YK  ( 1 >  = 1 1 7 : Mb= 1 5 : PÜKE  V+46,0 
POKE  V-f  0 , 64 :  F  OKE  V+9, 106:  POKE  V+10, 208 
POKE  V+l 1,1 06: POKE  V+l 4,0: POKE  V+15,0 
POKE  V+l 2, 245: POKE  V+l 3, 150: RETURN 

PK1NI " CCLK, PURPLE JABEFABAPOLPLOGLPLOLLPOPLLLPLQ 

lloploloopl-j 

PRINT-CD  C2SPACE  JCD  OQPGLPOQOLLOPLLOLLF’OLLQLLOQL 

ULUUL“ ; 

Listing  »6510«  (Fortsetzung) 


<249> 

<055;- 

<  154> 
<225> 
<1B6> 
<137> 

<12B> 
< 207  > 

<  184  > 

<002:- 

<216> 

<051  > 
<001  > 
<137> 
<134> 

<  108> 
<  1 66  > 

<  1 44> 
<059> 

<173> 

<109> 

<246? 

<001> 

<050> 

<154> 

<  1  64  > 
<006> 
<01 4> 
<027> 
<035> 
<21 1  > 

<  135> 

<1B2> 

<174> 

<  1 04  ?• 

<  1 7  4  > 

<  060 > 

<  046  > 
<192> 
<126> 

<  208 > 
<096> 
<209> 
<219> 

<155> 

<240> 

<253> 

<0073- 

<028 > 

<027> 

<034 > 

<102? 

<171? 
<171> 
<222 > 

<096> 

<189? 

v  005 > 

<075> 

<004  > 

<120> 

<  149> 
<160> 

<  1 63> 

<  153> 
-- 095> 
<040> 

<132> 

<  207  > 

<  144> 

<  057  > 

<238> 

<  008  > 
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COIEI 
Ji  ILL 


C  64 


4040  PR1  NI  “  C7SPACE  JFOLF'LFAB  «SPACE ,  WHITE >D  «PURPLE JFL  A 

BFLOLLLOLOLABABABABO")  <15B> 

4050  PRINT"  «7SF'ACE  JGPPOLB «5SPACE >FCD  FABNLPOLLCDCD <2 

SPACE >C  L“i  <1937 

4060  PR I NT " SH < 3SPACE > I OOPOM « 1 2SPACE  JNPLLUM (9SPACEJ "  ;  <055> 
4070  PRINT"!J0(45PACE)APPOB«13SPACE>FLLOM«105PACE>"!  <Z04> 
4030  PRINT"OQL J  (4SPACEJFLPJ  «7SPACE  JGH  «4SPACE  JFLLOM«! 

0SPACEJ"!  <1307 

4090  PR I N I "LOPB (4SPACE 1 1 PLB  C4SPACE , WH I TE >0  «PURPLE) I J 

IJ«5SPACE)LLLM«10SPACE>":  <1907 

4100  PRINT“LPOJ (4SPACE ) AOLJ  f 4SPACE 10QPLPH «4SPACE >FLM 

«11 SPACE)" ;  <0637 

4110  PRINT "PLOLJ  C4SPACE  >PQB«4SPACE  >LPLP0L«5SPACE)LM« 

1 1 SPACE  > " j  <0067 

4120  PR I NT “ ABFEF « 4SPACE > OL D < 3SPACE JNQLPLLM  «5SP  ACE ) NM  <209> 
4120  PR I NT "CD  1 7SPACE ) AB  «4SPACC ) NL POBFE (4SPACE JNM « 1 2S 

PACE)";  <245> 

4140  PRINT" (SH I FT-SPACE , BSPACEJCD  «3SPACEJN0LLF  «7SPAC 

E  >LP1  ( 1 2SPACE )  “  ;  <145> 

4150  PRINT" <13SPACE)B0LBF «7SPACEJNLMGH C10SPACEJ";  <0627 
4160  PRINT"  «5SPACE >GH «6SPACE JAPLM  «5SPACEJGI JQOMIJ  «9S 

PACE1L" ;  <174> 

4170  PRINT" C5SPACE)IJ@GH  B I POM {4SPACE > I QLÜLLLOLQLQDM 

(4SPACEJNQ";  <040> 

4180  PRINT'OLPQOLLLI JÖQPLPM (4SFALL , WHI I t)U «PURPLE >BF 

EF  AB  E  AB (5SPACE  JAB " ;  <0277 

4190  PR  INT"  LPLLPLQF'LQPLPLPM  1 1 5SPACE  >CD  C5SPACE  )CD  " ;  <1197 

4200  PR I NT "POLQLOFQLPQQOLQM «24SPACE7 " ;  <1277 

4210  PRINT“ LLLOLLOQPLOLPOLLGH «6SPACE >GH «2SPACE >GH «5S 

PACE JGH  GH”;  <0667 

4220  PR I NT " LLLLQLLULLLPLLOL I J  0  «SPACE , WHI TE)0  «PURPLE , 

2SPACE19IJS  I.I  01J  IJ«IJ"(  <0237 

4230  PRINT"OLLLLLLPOLPLLLLOLLLLLLLLLLLLLLLLLLLLLLLL" 

;  < 1597 

4240  POKE  36614,0:  XK  (0>  =30:  YM0>  =65:  POKE  V+12,18  <0797 

4250  POKE  V+13,  160: POKE  V*14,0:POKE  V+B,132  <1997 

4260  POKE  V+10, 1 84 i POKE  V+l 1 , 175: POKE  V+15,0  <0047 

4270  XK  ( 1 )  =57:  YK  (  i  1=102: MB=I5:  POKE  V+9,70:RETURN  <2367 

4280  PRINT" «CLR.LIB. BLUEJABFBFEAOLBABOLOOPOOOLLOPLLO 

0LPL008ABF  EF";  <0817 

4290  PR1NI "CD (5SPACE7AB  CDAOLPLQLOLOLOLOLLPBAB «2SPAC 

E>CD  <1397 

4300  PRINT" { 1 4SPACE >FQLL ABOLGPLLQPL  <0107 

4  310  PR I NT " GH  «2SPACE  JGH «9SPACE )F  «SPACE , WH I TE  JO  <L I G . B 

LUE JCDAQPOLOPLB  «9SPACE JGH" ;  <0187 

4320  PR1NT-IJ8  I J @ (3SPACE ) ft ( 1 0SPACE  JPLQOPFF  «5SPACE ) 0 

B  @  IJ-1  <0897 

•  ”0  PRINT" QOLQPLLOLPLL (9SPACE JFLOOOS C5SPACE JNSPQOOL 

P",  <2517 

4340  PRINT" LPLBABCD C3SPACEJA «WH I TE  JO  «L I G . BLUE , 9SPACE 

JABFLO0GH  C3SPACEJPQÖL0P0" ;  <2267 

4350  PRINT”PLB  CD«19SPACE JFAOI J «3SPACEJFAOOLOL" 1  <0027 

4360  PRINT "OL J  «2SPACE , SHI FT-SPACE , 20SPACE  JNQLB «SH 1 FT 

-SPACE, 4SPACEJOOOPO";  <0197 

4370  PRINT "LOL J «4SPACE ) 0 (BSP ACE ,WHITE)Q«LIG. BLUC , SPA 

CEJIJ  «5SPACE)NLF£4SPACE)@ILPPDL"i  <0337 

4380  PR1NT"QP0L (3SPACE JNPJGH «SHI FT -SPACE, 3SPACEJN0LL 

PJ  «4SPACE  JLF  <4SPACE  > ILOPPOLQ" ;  <1057 

4390  PRINT"PFAB «4SPACE JFLPJ <5SPACE)N0PLB«3SPACE)@Le« 

4SPACE ) ALPPOOOL " ;  <  067  > 

4400  PRINT "B  CDISSPALEJNLOIUHITEJQ IL1G. DLUE , 4SPOCE JN 

PAB  «4SPACE  JPQL@<4SPACE JFAQLODL “ (  <0917 

4410  PR 1 NT " M (BSP ACE ) @0L J (4SPACE JPFCD  «3SPACE  JNOLLLM  «5 

SPACEJALPOO";  <0637 

4420  PRTNT“J  <7SPACE)0OLOB«3SPACE JNLJ (4SPACE JNLLOLF (4 

SPACE JGHIPOLL" ;  <2217 

4430  PR INT "LJ  «5SPACE  J IOLOL (4SPACE JLLLJ  «4SPACEJFLP0  £5 

SPACE  > I JPLQOL " ;  <0067 

4440  PRINT" QLQPOLOLPBAB «4SPACE JLLLL «4SPACE J0PLF «4SPA 

CE J6LLQLLQL" ;  <18B7 

4450  PR I NT " ABF AOOBFF «/SPACEJÜPLF  C3SPACE jePLF «4SPACEJ 

NLLOOLQOO“ 1  <0277 

4460  PR I NT"CD  «2SPACE  JAB  «9SPACE  JNPAB  «4SF'ACE  )  ABF  (5SPAC 

E ) 1 OLQLLQLP " ;  <067» 

4470  PRINT" «1 1 SPACE >GH@0PBCD<10SPACE)ßlLPQLLQQLO";  <0257 

4480  PRINT"GH(8SPACE )@1J0PB<13SPACE>I0PLLUQQL0Q":  <0777 

4490  PR I NT “ I J • (3SP ACE , SHI FT-SPACE , SPACE JNLLOLLOJ «2SP 

ACE JGH ( 2SP ACE  )  @  (  3SPACE ) @ I J OLDPOLQQLLL "  <0807 

4500  POKE  36614, 0: XK 10) =34: YK (0) =196: POKE  9*12,35  <1407 

4510  POKE  V*I3, 160: POKE  V+14,0:POKE  V*B,120  <1997 

4520  POKE  V+9 , 1 06: POKE  V*10, 160: POKE  V+11,80  <0087 

4530  POKE  V+15,0:POKE  V+46,0  <1797 

4540  POKE  9*46,0:  XK (11=59:  YK < 1 > =56: MB=15:  RETURN  <2077 

4530  PRINT" (CLR , ORANGE JJCD (2SPACE > ALPOPOOLLPLOLBABAO 

QJ  <066  7 

4S60  PR 1 NT “ BGH <2SFACt  J 1 QOPLOF  EF AB  C3SPACE JCD  FOQJ  «13S 

PACEJ1"!  <2447 

4570  PR I NT “ J 1 JBLQPLOQB (3SPACE JCD «7SPACF  JE  «WHI TE >0 «OR 

ANGE  JP J  < 1 1 SPACE ) I B" ;  <003> 

4580  PR I NT "QLOLQLOAB ( 1 BSP ACE  > AL J  «9SP ACE  J I B  "j  <0227 

4590  PRlNT"LL00LPFCDC17SPACEJALJ-«Wir»WIB«2SPACE)";  <2487 
4600  PR I NT”PLOPL  B  C6SPACE ) I J  «5SP ACE ) I J  0  C5SPACE  J ALTSTT 

TFTB  «3SPACEJ " i  <1437 

4610  PR INT"OOPOLJ (ASPACE > ALOBOB (WH I TE )Q «ORANGE JF AOJ « 

5SPACE ) AP J  «3SPACE ) I BB!3SPACE ) - j  <1947 

4620  PRINT"LPLOOQBGH  «4SPACE JAUJCD«3SPACEJE0J (5SPACE J 

QLJ  IBOT(3SPACEJ"l  <2377 

4630  PR  IN  I  "PCJLQPLP IJ  C3SPACE7PB «6SPACE 7EO  «WHITEJQCORA 

NGE , 4SPACE) ABOPB  SU«3SPACE>";  <1887 

4640  PRINT“LLOLOPLOL J (4SPACEJAJ «7SPACEJP0J  C5SPACEJD« 

3SPACE)BH«3SPACE>"I  <0827 

4650  PRINT"QLP0Q0I0AB(4SPACE )Nb«7SPACEJFL0 (5SPACEJQ  « 

3SPACE  J’fiHJ  C3SP  ACE  J  "  ;  <1077 

4660  PRINT "UPOQOQOBCD  C4SPACEJLJ «2SPACE , WH I TE  JO (ORANG 

E , 4SPACF ) PBF (5SPACEJQ «3SPACE  JOT« 3SPACEJ" ;  <  059  7 


4670  PRINT "PLLQPLB «6SPACE ) AOPQLB C4SPACE JLJ «6SPACE >0 « 

3SPACEJOT«3SPACE)"i  <1317 

4680  PR INT" OQLLOL J  GH «6SPACF  JF (6SPACE  J AL  «4SPACE  J GHQ  « 

3SPACE)OT«3SPACE)"i  <0477 

4690  PRINT" ABFEF AQ J I J ( 1 1 SPACE > I J I L «4SPACE > I JLU (2SPAC 

E)mi<3SPACE)-s  <2437 

4700  PR I NT "CD (4SPACE )LPLL@@ «BSP ACE  J SLÜOF C4SPACE ) OLOP 

J  OT«3SPACE)"i  <0197 

4710  PRINT" «6SPACE > ABPOLU J I J 0 ( 3SPACEJ I POBF C4SPACE ) @0 

OPOLJBü«3SPACE)"i  '  <0817 

4720  PRINT" «6SPACEJCD  E «2SPACE JALLPLOLBAB (SSPACE)@OL 

PLOOLJU<3SPACE>"!  <1577 

4730  PR INT" GH 1 1 0SPACE ) CD « 5SP ACE  J APPDOLPGL J  «3SPACE > " ;  <190: 
4740  PRINT" I J6(24SPACE> 10LQQL0LQLJ 12SPACE I "  ;  <213  . 

4750  PR INT "LPG J @1 J GH  £ 1 6SPACE JGHALOOPOQOLOPJ  <131 

4760  PRlNT"PLL0L0LIjeBBBB«.1JSBbBl?WOlJI0L000LP0PLQJ"  <077. 
4770  POKE  36614,0: XK (0>=43: YK 10) =1B0:POKE  9*12,0  <092> 

4780  POKE  9*13,0:POKE  9+ 1 4 , 145: POKE  9*8,216  <2237 

4790  POKE  9*9, 74: POKE  9*10, 168: POKE  9*11,102  <030: 

4800  POKE  50175, 199: POKE  9*23,4B:P0KE  9*29,64  <218: 

4810  POKE  9*15,123:XK<1) *54: YK ( 1 ) =136: MB- 15  <162> 

4820  ON  RI  GOTO  4840  <1077 

4830  POKE  9+46, 1 : RETURN  <0227 

4840  FOR  Z=9  TO  13: CX=3I : CY=Z : GOSUB  3120:PRINT"  " : NE 

XI  <Z43> 

4850  CX=36:CY=6  iGOSUB  3120:PRINT"  “  <02G7 

4860  CX=36:CY»17: GOSUB  3120:PRINT"  "  <0887 

4870  FOR  Z=7  TO  16: CX=35: CY-2: GOSUB  3120: PRINT" «2SPA 

CE) "  <093: 

4880  NEXT : POKE  9+46,0: RETURN  <0047 

4B90  PR 1 N  T " <CLR , YELLOW  JOPOLOLLPLLLÜQPLOPLLQLRRRRRRRR 

LLDLPLLOLOP"!  <1987 

4900  PR I NT "POQOLQPQLQLRRRRRRRRRRR «WHITEJQTYELLOW >777 

y <WH I TE  JO  «YELLOW  JRRRRRRRRRRRR " ;  <2137 

4910  PRINT"LQLBF  FAOLLB YYYVY Y Y Y 1 Y «6SP ACE ) YVYvVyYVy YY 

A";  <1907 

4920  PRINT"OLB «5SPACE >F00T«27SPACE>T" I  <145* 

4930  FRINT " AB C7SPACE JA07 C275PACE )  T“ ;  <2357 

4940  PRINT"CDf8SPACE)PT«27SPACE»r"!  <1857 

4950  PRINT" «10SPACE JR7«5SPACE)RRRRR «WHITE JO «4SPACEJ0 

(YELL0WJRRRRR«6SPACE>r":  <1837 

4960  PRINT" C5SPACE)R«4SPACE JRT «3SPACE  >R«4SPACE  > I J (6S 

PACE ) I J  «4SPACE )R  C4SPACE IT" :  <1007 

4970  PRINT "6H C3SPACEJR «4SPACEJR5’ «3SPACEJR «2SPACEJRRR 

RRR  f 2SPACE  JRRRRRR «2SPACEJR  «4SPACE  >r" ;  <1757 

4980  PRINT" IJ@  IR«4SPACE)RT«3SPACE)R<2SPACEJRP0D0R:2 

SPACE JRPQQOR  «2SPACEJR  «4SPACE)f " ;  <0567 

4990  PRINT" POLOLR «4SPACE >Rj'(3SPACL JR J I ROQOPR J 1 ROQOPR 

J I R  f 4SPACE  Jf“ ;  <1037 

5000  PR I  NT" DLOLLR  « 4SPACE >R  7 «3SPACE JRQPROOPOROPRQOPDR 

0PR«4SPACE>r“!  < 143: 

5010  PRINT " PBCDAR («SPACE >R5'«3SPACE JRPOROPDQRPORQPOOR 

POR  C4SPACE JT" j  <1137 

5020  PRINT " B (4SP ACE ) R «4SP ACE ) RT < 3SP ACE JRB ARPQQORBARP 

QQ0RBAR«4SPACE>r"I  <0157 

5030  PR I NT “ T «9SPACE >  RT  «35P ACE  >  R  «SPACE , SH 1 F  T - SP ACE ) RO 

QOPR  «2SPACE  JROOOPR «2SPACE  JR (4SPACE  >7" !  <  0B I 

5040  PR  I  NT  “  «9SPACE  JR5-«3SPACE  JR  (SH  I  FT-SPACE  ,  SPACE  JRR 

RRRR «2SPACE 5 RRRRRR  C2SPACE ) R  «4SPACE  JT":  <105 

5050  PRINT "T «9SP ACE ) RT «3SPACE  J R <4SPACE ) AB C6SPACE ) AB  « 

4 SPACE JR  <4 SPACE JE"  I  <0017 

5060  PR I NT " r«3SPACE  JRRRRRRRT (5SPACF JRRRRRRR (2SPACE  JR 

RRRRRR <6SPACE)T-;  <2017 

5070  PRINT"T(38SPACE)r“;  <1007 

5060  PR I NT" T «38SPACE >f" ;  <1107 

5090  PRINT“ J «I9SPACE,2SHI FT— SPACE, 17SPACE J I " ;  <2247 

5100  PR I NT " LOOPfll  OOPOOLOOOLPLLLOLLOOPOLLLQOOP1  1  l.OOQ” 


;  <0917 

5110  PRINT" «4UPJ"  <0427 

5120  POKE  36614, 0:  XK  (0)  -25:  YK  <01  =96l  XK  ( 1 )  =25  <1227 

5130  YK ( I ) =96: POKE  9+12,0:POKE  9+13,0  <1347 

5140  POKE  9*8 , 240 : POKE  9+9,60:POKE  9+10,201  <0707 

5150  POKE  9+1 1 ,60: POKE  50 175, 200: POKE  9+15,59  <0317 

5160  POKE  9+23 , 48+ 1 28: POKE  9*29, 192: MB=0: POKE  33038. 

46  <0447 

5170  POKE  36610, 1:P0KE  9+14, 200:  POKE  9+21 ,243:RETURN  <2397 

5180  REM  DATAS  <098 > 

5190  DATA  120,169,  49,141,  20,  3,167,234,141,  21  <1027 

5200  DATA  3,169,  0,141,  26,208,  88,  96,120,169  <0327 

5210  DATA  51,133,  1,169,  0,133,  95,133,  90,133  <023> 

5220  DATA  88,169,208,133,  96,169,240,133,  89,169  <021 > 

5230  DATA  224,133,  91,  32,191,163,169,  55,133,  1  <1507 

5240  DATA  OB,  96,5895  <0337 

5250  REM  DATEN  FUER  SPRITES  +...•»..*•»»..»»+*»«»  <0957 

5260  DATA  0 ,0, 0 ,0, 0 , 0,0, 0 ,0, 0, 0 , 0, 0 ,0, 0: REM  15  X  0  <0187 

5270  DATA  64,126,  2,  32,195,  4,  17,129,136,  11  <0387 

5280  DATA  0,208,  6,  0,  96,  62,  0,124,122,  0  <0867 

5290  DATA  94,119,129,238,120,255,  30,  30,  60,120  <2521 

5300  DATA  7,129,224,  0,255,3144  <0427 

5310  DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0: REM  15  X  0  <068 

5320  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM  15  X  0  <0787 

5330  DATA  0,  0,  60,  0,  0,126,  0,  0,255,  0  <2247 

5340  DATA  1,255,128,  1,255,128,  1,255,128,  0  <1037 

5350  DATA  126 , 0, 0, 0, 0,0, 0 , 0, 0,0, 0 ,0 , 0,0: REM  13  X  0  <1197 

5360  DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM  15  X  0  <118, 

5370  DATA  0,0, 0,0, 0,0 ,0, 0,0 ,0 ,0,0, 0 ,0,0: REM  15  X  0  <1287 

5380  DATA  0 , 0, 0,0 ,0 , 0 ,0 , 0 , 0,0. 0 ,0,0, 0,0:  REM  15  X-  0  <139  ;- 

5390  DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0: REM  15  X  0  <149- 

5400  DATA  12,  0,  48,  24,  0,  24,  48,  0,  12,120  <2017 

5410  DATA  0,  30,252,  0,  63,192,  0,  3,192,  0,273 

9  <2157 

5420  DATA  3,192,  0,  3,192,  0,  3,192,  0,  3  <1287 

5430  DATA  192,  0,  3,192,  0,  3,192,  0,  3.192  <2437 

Listing  »6510«  (Fortsetzung) 
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5440 

DATA 

0,  3,192,  0,  3,255,255,255,225,100 

'.204:. 

6410 

DATA 

27,132, 

27,  4, 

55,136,  39,134 

<126> 

5450 

DATA 

55,225,109,247,239,108,247,227,108,247 

<077  > 

6420 

DATA 

27, 135, 

27,  4, 

55,136,  39,134 

<136> 

5460 

DATA 

206,  9,225,206,  8,  33,255,255,255,240 

<  130> 

64  30 

DATA 

27,132, 

226,132, 

39,134,  55,136 

<•37  > 

5470 

DATA 

0,  15,740,  0,  15,740,  0,  15,  2,  0,668 

64  40 

REM 

T  A 

K  T 

2  •••*««•*•••• 

<046> 

9 

<2191 

6450 

DATA 

27,132, 

27,  4, 

55,136,  39,134 

<166> 

54Q0 

DATA 

64,130,  0,  65,130,  0,  65,194,  0,  67 

<  1 43  > 

6460 

DATA 

27.132. 

27,  4, 

55,136,  39,134,3070 

<166> 

5490 

DATA 

66,  0.  66,  98,  0,  70,  34,  0,  68,  50 

<01 6>  . 

64  70 

DATA 

27,132. 

27,  4, 

55,136,  39,134 

<1B6> 

5500 

DATA 

231,  76,  10,189,  72,  27,129,216,136,129 

<235> 

6AP0 

DATA 

27, 132, 

226,132, 

39,134,  55,136 

<087  > 

5510 

DATA 

17,207,129,243,  96,129,  6,  63,129,252 

<  1  9 1  > 

6490 

REM 

T  « 

K  T 

3  «**•*#*****» 

<097*> 

5520 

DATA 

0,129,  0,255,129,255,  0,129,  0,  3 

<1 79> 

6500 

DATA 

27,132, 

27,  4, 

53,136,  39,134 

<216> 

5530 

DATA 

129,192,  14,129,112,  56,129,  28,224,255,57 

6510 

DATA 

27,132, 

226,132, 

39,134,  55,136 

<117> 

65 

<051  ;• 

6520 

DA  Iß 

169,131 

,169,  3 

,  81,135,123,133,3787 

<  132> 

5540 

DATA 

7,  0,  0,240,  0,  1,252,  0,  3,  6 

<144;. 

6  530 

DATA 

169,131 

,156,132 

,123,133,  01,135 

<232^ 

5550 

DATA 

0,  6,  3,  0,  6,  3,  0,  6,  3,  0 

<  205  ' 

6540 

REM 

T  A 

K  T 

<148> 

5560 

DATA 

6,  3,  0,  6,  3,  0,  3,  6,  3,  3 

<  21 8> 

6550 

DATA 

66,131 , 

66,  3, 

133, 134,226, 132 

<  101  > 

5570 

DATA 

252,  0,  7,248,  0,  15,  0,  3,158,  0 

<075> 

6560 

DATA 

66, 131 , 

81 .135, 

226,132,133,134 

<210> 

5580 

DATA 

3,252,  0,  9,248,  0,125,240,  0,  63 

<186> 

65  70 

DATA 

77,132, 

27,  4, 

55,136,  39,134 

<  030', 

5590 

DATA 

224,  0,  63,192,  0,  31,128,  0,  15,  0,28 

65B0 

DATA 

27,132, 

226 ,132, 

39,134,  55,136,4255 

<1B3> 

43 

<185- 

6590 

REM 

T  A 

K  T 

5  «*••****••*• 

<  1997 

5600 

DATA 

0,  14,  0,  0,  0,  0,  0,  3,195,192 

<247 > 

6600 

DATA 

27, 132, 

27,  4, 

55,136,  39,134 

<  060  > 

5610 

DATA 

15,126,240,  15,255,240,  3,  0,192,  3 

<  109.> 

6610 

DAT  A 

27,132, 

27,  4, 

55,136,  39,134 

<070> 

5620 

DATA 

126,192,  15,  66,240,  15,126,240,  3,  0 

<  1 73> 

6620 

DATA 

27,132. 

27,  4, 

55,136,  39,134 

<080 > 

5630 

DATA 

192,  3,126,192,  15,  0,240,  15,  94,240 

<187;: 

6670 

DATA 

27,132, 

276, 132, 

39,134,  55,136 

<237> 

5640 

DATA 

3,  82,192,  3,114.192,  15,  0,240,  15,448 

66*0 

REM 

T  « 

K  T 

<250> 

9 

<  09S  > 

6050 

HAT« 

77,132, 

27,  4, 

55,1 £6,  -V, 1 39 

<  1 1  w  > 

5650 

DAIA 

78,240,  i,  74,192,  3,126,192,  IS,  0 

<1  1  6> 

6660 

DATA 

27,132, 

27,  4, 

55.136,  39,134,3624 

<1  16> 

5660 

DATA 

240,  15,255,240,  3,255,192 

<  086  > 

6670 

DATA 

27,132, 

27,  4, 

55,136,  39,114 

<131> 

5670 

DATA 

200,193,210,193,204, 196,  32,194,197,201 

<023 > 

6660 

DATA 

27,132, 

226,132, 

39,134,  55.136 

< 032 > 

5680 

DATA 

206,197,  32,  38,  32,193,210,206,197,  32 

<  1  45.> 

6690 

RFM 

r  a 

K  T 

<046  > 

5690 

DATA 

202, 193,206,21 1 , 197,206 

<069> 

6700 

DATA 

77,132, 

27,  4, 

55,136,  39,134 

<161  > 

5700 

REM  DATEN  FUER  DIE  ZEICHEN  «*******••.#****• 

4  041  > 

6  10 

DATA 

27, 132, 

226 ,132, 

39,134,  55,136 

<062> 

5710 

DATA 

8,  B,  28,  28,  62,126,127,255,127,  63 

<241  ^ 

DATA 

169,131 

,169,  3 

.  01,135,123,133 

<072  > 

5720 

DATA 

31,  15,  3,  7,  7,  3,255,254,252,240 

<129> 

6?30 

DAT« 

169,131 

,156,132 

,123,133,  81,135 

<  1  77  > 

5730 

DATA 

248,240,240,224,  0,  1,  1,  0,  0,  0 

<01 1> 

6*40 

REM 

T  A 

K  T 

<097> 

5740 

DATA 

0,  0,224,128,192,128,120,  0,  0,  0 

<134> 

6750 

DAT« 

66,131 , 

66,  3, 

133, 134,226, 132,5730 

<049  > 

5750 

DATA 

252,110,  60,  24,  16,  0,  0,  0,252,126,10 

6  7£.0 

DAT« 

66,131, 

81 ,133, 

226,132,133,134 

<  1 55  > 

916 

<232> 

^77  fl 

DATA 

6o,l31 , 

66,  3, 

133,134,226,132 

<066> 

5760 

DATA 

124,  56,  56,  16,  16,  16,  0,  0,  0,  1 

<  008  > 

6  7R0 

DATO 

66. 131 , 

81,135, 

226,132,133,134 

<175> 

5770 

DATA 

1,  3,  3,  7,  0,  0,  0,  0,  0,120 

<000> 

6  790 

REM 

T  A 

K  T 

9  ************ 

<  1 4B> 

5780 

DATA 

128,192,  4,  15,  15,  31,  31,  63,  63,255 

<038> 

6800 

DATA 

226,132 

,226,  4 

,196,137,  81,135,4030 

<151  > 

5790 

DATA 

192,224,224,240,240,248,252,255,  B,  8 

<254> 

6810 

DATA 

226.132 

, 226 ,  4 

,196,137,  81,135 

<  166> 

5800 

DATA 

8,  28,  28,  62,126,255,  46,127,223,126 

<170> 

6020 

DATA 

226 , i 32 

, 226 ,  4 

.196,137,  81,135 

<176> 

5810 

DATA 

239,251 , 191,237,192,224,1 12,248,252,  76 

<176> 

6830 

DATA 

226, 132 

i  39,134 

,  01,135,196,137 

<  240  > 

5820 

DATA 

76,196,  3,  6,  14,  31,  63,  50,  51,  34 

<  1B7> 

fp4p 

RFM 

T  A 

K  T 

10  •»****•**«** 

<238 > 

5030  DATA  63,  31,143,207,199,225,240,252,252,240 
5840  DATA  225,195,207,143,143,  63,255,255,255,255,10 
422 

5050  DATA  255,255,255,255,  0,126,126,102,102,126,12 

6,0 


5860  REM  **  MASCH I NENRQUT I NE  ** 

5070  DATA  120,169,  32,141,  20,  3,169,128,141 

5880  DATA  21,  3,169,129,141,  26,208,173,254 

5890  DATA  143,141,  18,208,173,  17,208,  41,127 
5900  DATA  141,  17,208,  88,  96,173,  25,200,141 
5910  DATA  25,208,  48,  10,  32,  95,128,173,  13,6425 
5920  DATA  220,  88,  76,  49,234,173,253,143,201 
5930  DATA  1,240,19,169,  0,141,  32,200,173 

5940  DATA  254,143,141,  18,208,169,  1,141,253 

5950  DATA  143,  76, ie8, 254, 173,252, 143, 141 ,  32 
5960  DATA  208,169,255,141,  10,208,169,  2,141 

5970  DATA  253,143,  76,180,754,173,  1,970,  41,7590 

5980  DATA  1,208,101,173,  1,220,  41,  2,208 

5990  DATA  91,173,  1,220,  41,  4,200,  78,173 

6000  DATA  1,220,  41,  8,208,  74,165,240,141 

6010  DATA  0,208,141,  2,208,141,  4,208,141 

6020  DATA  6,208,165,249,141,  1,208,141,  3 

6030  DATA  208,141,  5,208,141,  7,208,173,  6,6321 

6040  DATA  143,141,  16,208,206,  0,143,240,  55 

6050  DATA  206,  1,143,240,  92,206,  5,143,240 

6060  DATA  34,173,  2,143,208,  92,173,  30,208 

6070  DATA  234,234,  32,  21,129,234,234,234,234 
6080  DATA  234,  32,125,129,  96,  76,  82,129,  76 
6090  DATA  09,129,  76,  77,129,  76,  72,129,238 
6100  DATA  254,143,169,100,141,  5,143,  76,172,6131 

6110  DATA  128,173,  3,143,  73,  1,141,  3,143 

6120  DATA  208,  16,173,  21,208,  41,207,141,  21 
6130  DATA  208,169,  90,141,  0,143,  76,162,128 

6140  DATA  173,  21,208,  9,  48,141,21,209,169 

6150  DATA  45,141,  0,143,  76,162,128,169,150 

6160  DATA  141,  1,143,234,234,  76, 167, 128,238,6207 

6170  DATA  40,208,  76,177,128,  41,  8,165,248 

6180  DATA  201,  24,240,  20,201,  64,208,  34,173 
6190  DATA  16,208,  41,  3,240,  27,198,248,165 

6200  DATA  250,200,  21,  76,  60,179,173,  16,208 
6210  DATA  41,  3,208,  11,230,248,165,250,240 

6220  DATA  5,169,  1,133,251,234,  96,169,  3,6960 

6230  DATA  141,255,127,  96,230,249,  76,102,128 
6240  DATA  198,249,  76,109,128,230,248,240,  14 
6250  DATA  76, 1 16, 128, 198, 24B, 165, 248, 201 , 255 
6260  DATA  240,  14,  76,123,128,173,  6,143,  9 

6270  DATA  15,141,  6,143,  76,116,120,173,  6 

6280  DATA  143,  41,240,141,  6,143,  76,123,128,7147 

6290  DATA  234,234,234,206,255, 142,240,  1,  96 

6300  DATA  169,  7,141,255,142,238,254,142,174 

6310  DATA  254,142,199,  0,197,141,  0,212,189 

6320  DATA  0,198,  41,127,141,  1,212,189,  0 

6330  DATA  17Q,  41,120,208,  6,169,  64,141,  4 

6340  DATA  212,  96,169,  64,141,  4,212,169,  65,7254 

6350  DATA  141,  4,212,  96,120,169,128,141,  42 

6360  DATA  128,169,  95,141,  41,128,  88,  96,120 
6370  DATA  169,129,141,  42,128,169,125,141,  41 
6380  DATA  128,  88,  96 

6390  REM  TAKT  1  »#*******«*• 

6400  DATA  27,132,  27,  4,  55,136,  39,134,3869 


<244> 

<  177> 
<237> 

<  123> 
<145> 
<201  > 

<  1 75> 
<072> 
<209> 
< 085 > 
<251  > 
<064> 
<025  > 
<237> 

<  068 > 

<  103> 
<161  > 

<  154> 

<  1  79> 
<183> 
<033> 
<249> 
<015> 

<  1  70  > 
<059  > 
<007> 

<  1 49> 
<213> 
<1 14> 

<  142> 
<102> 
<159> 
<218> 

<  1  45  > 
<169> 

<  157> 
<210> 
<205> 
<000> 
<091  > 

<  108> 

<  174> 
<170> 
<180> 
<023> 
<089> 
<162> 
<067  > 
<170> 
<201  > 
K  053 > 
<097> 

<  132> 
<227> 
<089> 

<250> 

<122> 


6^:50  DATA  226,137,226, 
6860  DATA  226,132,226, 
6c"Ma  DATA  *'76,132,226, 
6880  DATA 
6^90  REM 


4.196.137,  81,135 

4.196.137,  81,135,5402 
4,196,137,  81,135 

76.132,  39,134,  81,135,196,137 
TAKT  1!  »mtMiMi« 


r '90®  DATA  39,134,  39,  6,  7B.140,  56,137 

6-10  DATA  039 ,  1 34  ,  PP1  ,  1 35,056 , 1 37 , 078 ,  1  40 
•c20  DATA  123,  133,  123,  5,247,138,  55,136,4380 

c.T30  7ATA  123,133,232,134,055,136,247,138 
6940  RtM  TAKT  12  ************ 

6950  DATA  226,132,226,  4,196,137,  81,135 

6960  DATA  226,132,  39,134,  01,135,196,137 
6970  DATA  726,132,226,  4,196,137,  01,135 

6930  DATA  226,132,  39,134,  81,135.196,137 

699 es  REM  TAKT  13  ************ 

7300  DATA  226,132,226,  4,196,137,  81,135,6646 

>010  DATA  226,132,226,  4.396,137,  81,135 

7070  DATA  226,132,226,  4,196,137,  01,135 

703®  DATA  226,132,  39,134,  81,135,196,137 
7040  rem  TAKT  14  **»•*»*«•*** 

7050  DATA  226,132,226,  4,196,137,  81,135 

7060  DATA  726,132,226,  4,196,137,  81,135,5402 

7C70  DATA  226,132,226,  4,196,137,  01,1.35 

7030  DATA  226,132,  39,134,  81,135,196,137 
7090  REM  TAKT  15  ************ 

7100  DATA  39,134,  39,  6,  78,140,  56,137 

71 !Q  DATA  39,134,  81,135,  56,137,  78,140 
7 1 20  DATA  123,133,123,  5,247,130,  55,136 

7130  DATA  123,133,232,134,  55,136,247,138,5578 
7140  REM  TAKT  16  ************ 

7150  DATA  226,132,226,  4,196,137,  81,135 

7160  DATA  226,132,  39,134,  31,135,196,137 
7170  DATA  27,132,  27,  4,  55,136,  39,134 

7180  DATA  27,132,226,132,  39,134,  55,136 
7190  : 

7200  DATA  120,169,  50,141, 

49 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA  72,173,  33,208,  72,162,  2,134,  2,162,700 


0,212,141,  1,212,169,46 


7210 

7220 

7730 

7240 

7250 

7:60 


3,141,  3,212,169, 
5,717, 169,  37,141 , 
11 ,217,169,242,141, 


17,141,  12,212,141 
11,212,169,  33,141 
6,212, 1 69 ,114,141 


13,212.169,  15,141,  24,212,169,  16,141 
4,712,169,129,141,  4,212,173,  32,208 


6 

7r*»0  DATA  128,160,255,238,  32,208,238,  33,208,173 
77R0  DATA  24,212,  73,  15,141,  24,212,136,200,239 
71-0  DATA  202,203,234,198,  2,208,228,  88,169,  0 

DATA  141,  4,212,141,  11,212,141,  74,212,104 

77 i 0  DATA  141,  33,208,104,141,  32,200,  96 
7320  DATA  169,  4,141,136,  2,169,131,141,  7,  3 

/  :  DATA  169,164,141,  3,  3,  0,  0,172,  1,  0 

7340  DATA  2,  50,130,  1,  l,  3,172,110,  -l,  0 

/-.so  DATA  2,  42,  42,42.  32.28,  54,  53,  49,  48 
7^0  DATA  32.150.  42,  42,  42,254,177,  -1,  0,  2 

7370  DATA  130,  80,  -1,  1,  3,173,755,  1,  0,  2 

7380  DATA  0,  70 


<206  > 
<207> 
<  226  > 
<034> 
<033> 

<  1 17> 
<159> 
<010> 
<!73> 
<0O5> 
<051  > 
<115> 
<071  > 
<135> 
<136> 
<103> 
<1  lis 

<  121  > 
<185> 
<107> 

<  131  > 
<152> 

<  1 71  > 

<  235 > 

<238> 

<  062  > 
<  1 68  > 
<215> 
<074  > 
<033> 
<251  > 
<059> 
<  121  > 
<022> 
<10B> 

<037> 

<01 8> 
<087  > 
<197> 
<  1  60  > 

<123> 

<027> 
<051  > 
<201  > 
<  1 82  > 

<  193> 

<  1  44  > 
<041  > 
<095 > 

<  084  > 

<  1  90  > 
<021  > 

<  1 25  > 
<054> 


Listing  »6510«  (Schluß) 
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Ordnung  ist  das  halbe  Leben 


Mit  diesem  Programm  bringen  Sie  auf 
bequeme  Weise  Ordnung  in  die  Direc- 
tories  Ihrer  Disketten. 

Ist  Ihnen  das  auch  schon  mehrmals  passiert:  Sie  hatten  auf 
einer  Diskette  ein  schön  geordnetes  Directory  und  beim  Ab¬ 
speichern  eines  weiteren  Files  stand  dieses  nicht  sauber  am 
Schluß  des  Directory,  sondern  mitten  zwischen  den  anderen 
Programmen.  Mit  dem  hiervorgestellten  Directory-Sortierpro¬ 
gramm  ist  es  nun  möglich,  diese  »falsch  hineingeratenen«  Files 
herauszunehmen  und  an  geeigneter  Stelle  wieder  einzuset¬ 
zen.  Auch  das  hinfügen  von  Irennstrichen  ist  möglich.  Bild  1 
und  Bild  2  zeigt  Ihnen  den  Unterschied  eines  unsortierten  zu 
einem  sortierten  Directory. 

Nach  dem  Starten  des  Programms  legt  man  die  Diskette  ein, 
die  sortiert  werden  soll,  und  drückt  eine  Taste.  In  der  linken 
oberen  Ecke  wird  nun  die  Sektornummer  des  Directory-Blocks 
angezeigt,  den  der  Computer  gerade  einliest,  rechts  daneben 
die  Anzahl  der  in  den  Speicher  eingelesenen  Files.  Nach  been¬ 
detem  Einlesen  erscheint  links  vom  obersten  File  ein  schwar¬ 
zer  Pfeil,  der  sich  mit  den  Funktionstasten  F3  nach  oben  und 
F5  nach  unten  bewegen  läßt.  Mittels  Fl  kann  nun  ein  mit  die¬ 
sem  Pfeil  gekennzeichnetes  File  nach  rechts  herausgescho¬ 
ben  und  mit  F3  und  F5  verschoben  werden.  An  gewünschter 
Stelle  wird  es  mit  Fl  wieder  eingefügt.  Somit  ist  ein  beliebiges 
Vertauschen  aller  Files  im  Directory  möglich. 

F8  schreibt  das  sortierte  Directory  wieder  auf  die  Diskette 
zurück.  Will  man  das  gänderte  Directory  nicht  abgespeichert 
haben,  so  kann  statt  dessen  mit  F6  noch  einmal  das  alte  oder 
ein  anderes  eingelesen  werden. 

Zur  optischen  Abgrenzung  mehrerer  Files  dient  der  Trenn¬ 
strich,  den  man  mit  F2  erzeugen,  mit  F3  und  F5  verschieben 
und  schließlich  wieder  mit  Fl  einfügen  kann.  Wem  übrigens  ein 
anderer  Trennstrich  besser  gefällt,  der  kann  in  Zeile  500  für  die 
Minuszeichen  andere  einsetzen,  zum  Beispiel  SHIFI  +  ’. 
SHIFT  +  C  ist  nicht  zu  empfehlen,  da  dieser  Strich  bei  Groß- 
Kleinschrift-Umschaltung  ein  großes  »C«  ergibt.  Der  Trenn¬ 
strich  belegt  keinen  Block  auf  der  Diskette  und  istzur  besseren 
Unterscheidung  mit  DELim  Directory  gekennzeichnet.  Ein  ver¬ 
sehentlich  mit  »F2«  erzeugter  Trennstrich  kann,  wenn  er  nach 
rechts  gebracht  wird,  mit  F4  wieder  gelöscht  werden.  In  glei¬ 
cher  Weise  können  auch  Files  aus  dem  Directory  gelöscht 
werden.  Dabei  werden  aber  die  von  dem  File  belegten  Blöcke 
nicht  wieder  freigegeben,  so  daß  ein  abschließendes  »VALI- 
DATE«  der  Diskette  erforderlich  ist,  wenn  man  ein  File  gelöscht 
hat. 

Nun  zum  Aufbau  des  Programms.  Es  ist  vorwiegend  in  Basic 
geschrieben  und  enthält  zwei  kurze  Maschinensprache- 
Routinen.  Die  erste  dient  zum  Einlesen  der  Filenamen  und  Fi¬ 
leparameter  und  wird  mit  SYS  52992,  log.  Filenummer,  Länge, 
String  aufgerufen.  Das  Lesen  mit  GET #  in  Basic  wäre  dafür 
viel  zu  langsam.  Mit  dem  zweiten  Maschinenprogramm  wer¬ 
den  die  am  Bildschirm  angezeigten  Files  nach  oben  oder  un¬ 
ten  gescrollt.  Aufgerufen  wird  es  mit  SYS  53056, r,oz,ls, uz, rs. 

Dabei  haben  die  Parameter  folgende  Bedeutung: 
r  =  Scrollrichtungen:  0  für  nach  oben  und  1  für  nach  unten 
oz  =  oberste  Zeile, 

Is  =  linke  Spalte, 
uz  =  unterste  Zeile, 
rs  =  rechte  Spalte. 

Durch  Abspeichern  des  Speicherbereichs  von  $CF00  bis 
$CFFF  kann  diese  Routine  auch  in  andere  Basic-  oder  Ma¬ 
schinenprogramme  eingebunden  werden.  (Edwin  Göbel/hm) 
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23 

" MORSETRA I NER " 

PRG 

2 

"DEMO" 

SED 

23 

"SUPERVOC" 

PRG 

40 

"LEHRERKALENDER" 

PRG 

39 

" CHART-GRAFIK (  SB )  " 

PRG 

27 

"HOT  WHEELS" 

PRG 

17 

"LOGIC  DISASSEMBL" 

PRG 

7 

"MASCHINE  G.MANOR” 

PRG 

3 

"SUPERVOC. DEMO" 

PRG 

6 

"GRAFIK  GHOST  M. " 

PRG 

13 

"MOVCMAGTER" 

PRG 

10 

"GHOST  MANOR" 

PRG 

53 

"UNDERGROUND" 

PRG 

7 

"LOADER  MOVEM. " 

PRG 

393 

BLOCKS  FREE. 

READY. 

Bild  1.  Das  Durcheinander  eines  unsortierten  Directorys 

0  UC%  5S»  a  EWaKEsE  HW:i 

23 

" MORSETRA I NER " 

PRG 

0 

>• - 

DEL 

40 

" LEHRERKALENDER " 

PRG 

2 

"DEMO" 

SEQ 

0 

"  II 

DEL 

23 

"SUPERVOC" 

PRG 

3 

"SUPERVOC. DEMO" 

PRG 

0 

II  II 

DEL 

39 

"CHART-GRAFIK (SB) " 

PRG 

0 

II  M 

DEL 

27 

"HOT  WHEELS" 

PRG 

0 

■■ - » 

DEL 

17 

"LOGIC  DISASSEMBL" 

PRG 

0 

II  II 

DEL 

7 

"MASCHINE  G.MANOR" 

PRG 

6 

"GRAFIK  GHOST  M. " 

PRG 

10 

"GHOST  MANOR” 

PRG 

0 

II  II 

DEL 

7 

"LOADER  MOVEM. " 

PRG 

13 

"MOVEMASTER" 

PRG 

0 

II  II 

DEL 

53 

"UNDERGROUND" 

PRG 

393 

BLOCKS  FREE. 

READY. 

Bild  2.  Der  Directory-Sorter  schafft  schnell  Ordnung 

100  REM  *»#***■»»**»■»»****»****** 

—— 

<227> 

110  REM  * 

* 

H 

<081  > 

120  REM  «  DIRECTORY  GORT  VI. 0 

* 

IM 

<106> 

130  REM  *  - 

* 

<188> 

140  REM  »  AUTOR: 

* 

<052> 

150  REM  *  EDWIN  GOEBEL 

* 

<158> 

160  REM  *  SCHUETZSTR.  1 

* 

<001> 

1/0  RtM  *  8522  HEKZUGENAUKACH 

* 

<  1 1 6  > 

1B0  REM  » 

* 

<166> 

iVW  KtPl  ************************ 

<061  > 

20E  GOTO  430 

<232> 

210  REM  »■»**«*»***********»»**»*»*■»**** 

<119> 

Listing  zum  Directory-Sorter. 

Beachten  Sie  den  Checksummer  auf  Seite  54. 
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TI OC  I  INH  TQin/C 

I  ir  J  Ul  tU  ll\IU  U 


C  64 


220  REM  UNTERROUTINEN 

230  REM  ******************************* 

240  INPUTttl ,F1 ,F*,F2,F3: IF  F1=0  THEN  RETUR 
N 

250  PR  I  NT  '•  {CYAN ,  DOWN  ) " F 1 ; FS , F2 ; F3 " {BL ACK ) " 

:  END:  REM  "  {C Y AN )  "  =C  Y AN ;  " {BLACK) "=SCHW 
ARZ 

260  REM  - 

270  IF  NO+EN>=C  THEN  RETURN 
280  SYS  53056,0,2,2,23, 18:N8=N0+1 
290  POKE  214,23:  POKE  2U,2:SYS  5B732:PRINT 
NA* (ZU (NO+EN— 1 ) ) j : RETURN 

300  REM  - 

310  IF  NO-0  THEN  RETURN 
320  SY5  55056, 1 , 2,2,23, 18: NO=NO- 1 
330  POKE  214,2: POKE  2 11, 2: SYS  58732: PRINT 
NA* ( ZU (NO+1 ) ) : RETURN 

340  REM -  - 

350  PRINT" {CLR, BLACK, RVSON)"TAB( 13) "DIRECT 
ORY-SORT" 

360  PRINT  TAB (12)  “ - " 

370  PRINT" {CYAN, DOWN, SPACEJDISKETTE  EINLEG 
EN  UND  TASTE  DRUECKEN" 

380  GET  TS:  IF  TS=" "THEN  380 

390  PRINT" {HOME, 3D0WN,37SPACE>": RETURN 

400  REM  ******************************* 

410  REM  BEGINN  DES  HAUFTPROGRAMMES 
420  REM  ******************************* 

430  POKE  53280,0: POKE  53281 , 1 1 : GOSUB  350 
440  OPEN  1,8,15,"I" :DIM  AN* ( 145) ,NA* ( 145) , 
RE*  C 1 45) , ZU ( 146)  ,SN(19> 

450  FOR  1=1  TO  18: READ  SN(I):NEXT 
460  FOR  1=52992  TO  53242: READ  S:POKE  I,S:N 
EXT 

470  GOSUB  240: OPEN  2, 8, 2, : GOSUB  240 
480  S=1 : C=1 : N*=CHR* (0) : NNS=NS+NS+NS+NS+NS+ 
NS+NS+NS+NS+NS 

490  NU*=NNf +NN1+NN* : RE* (0) =NN*+N* 

500  AN* (0) =CHR*  £128) +CHRS (18) +CHRS ( 1 > : NA* ( 

0)=" - "  :  REM  TRENNSTRICH 

510  REM  ******************************* 

520  REM  EINLESEN  DES  DIRECTORYS 

530  REM  ******************************* 

540  PR I  NT#  1 , "Ul  2  0  18 "S: PRINT" {HOME , LIG. R 
E  D ) " S " {LEFT , SP ACE ) " : REM  " {L I G . RED > " =HE 
LLROT 

550  GE  T#2 , TS : GET#2 , SS : S=ASC ( S*+N* ) 

560  FOR  BP=0  TO  7: PRINT#1 , "B-P  2";BP*32+2 
570  SYS  52992,2,3, X*: AN* (C) =X*: IF  LEFT* ( X* 
, 1 ) =N* 1 HbN  NtXT : GOTO  600 
580  SYS  52992,2, 16, X*: NA* (C) =X*: SYS  52992, 
2, 1 1 ,X*: RE* (C) =X* 

590  ZU ( C ) =C : PR I NT " {HOME , 4R I GHT > " C" {LEFT , SP 
ACE) “ : C=C+ 1 : NEXT 
600  IF  T*<  >" "THEN  540 

610  CLOSE  2: POKE  650 , 1 28: PRINT" {HOME , 2D0WN 
, BLACK) > {CYAN , UP ) " ; s  CP=2: NO=0 : NU=0 : EN= 
C: IF  EN >23  THEN  EN=23 
620  PRINT  CHR* ( 13) TAB (2) NA* (NU+l ) ; : NU=NU+1 
: IF  NU4EN-1  THEN  620 
630  REM  ******************************* 

640  REM  TASTATURABFRAGE 

690  REM  ******************************* 

700  BET  TAS:IF  TAS=" "THEN  700 
710  IF  TAS=" {F3)"THEN  IF  CP>2  THEN  CP=CP-1 
:  SYS  53056,0,2,0,23,0 

720  IF  TA*="{F3)"THEN  IF  CP=2  THEN  GOSUB  3 
10 

730  IF  TAS="  {F5VTHEN  IF  CP<EN  THEN  IF  NO+ 
CPCC  THEN  CP=CP+1 : SYS  57056,1,2,0,23,0 
740  IF  TA*=" {F5)"THEN  IF  CP>=23  THEN  GOSUB 
270 

750  IF  TAS=" {F1)“THEN  810 

760  IF  T AS= “ <F2 > " THEN  IF  C<145  THEN  F=1:C= 
C+ 1 :  PR I NT " {L I G. RED , HOME , 4R I GHT > " C- 1 " <L 
EFT, SPACE, CYAN)":EN=EN+1: IF  EN>23  THEN 
EN=23 

770  IF  TAS=" CF2)"THEN  IF  F=1  THEN  F=0: TE-0 
:TE*=NA*(0) :GDTO  B40 
7B0  IF  TAS— " {FS>"THEN  1000 
790  IF  TAS="  {F6VTHEN  1090 
800  GOTO  700 

810  TE=ZU (NO+CP— 1 ) i TES=NAS (TE) 

820  SYS  53056,0, CP, 2, 23, 18: IF  023  THEN  EN 
=EN+1 : GUSUB  290:EN=EN-1 


<  1 09  > 
<139> 

<122> 


<011> 
<007> 
<079> 
<249  > 

<022> 

<047> 

<11B> 

<035> 

<  146> 
<087  > 

<01S> 

<069> 

<093> 
<011> 
<1 14> 
<054> 
<056> 
<074> 
<101> 

<  129> 

<  053  > 

<097> 

<183> 

<055> 

<252> 

<253> 

<164> 

<208> 

<  185> 


<233> 
<  126> 

<  032  > 

<086? 

<101> 

<083> 

<  069  > 


<152> 

<  020  > 
<029> 

<  1 1 3> 

<  089  > 

<202> 

<105> 

<003> 

<227> 

<001  > 

<239> 


{027> 

<227> 
<061  > 
<079> 
<035> 
<1  16> 

<063> 


830  FOR  I =N0+CP-2  TO  C-l : ZU ( 1+1 ) =ZU ( 1+2) : N 
EXT 

840  POKE  2 14, CP: POKE  211,19:SYS  58732 
850  PRINT"TT"TFS: REM  " T" =COMMODDRE + " T " 

B60  GET  TA*: IF  TA*=" "THEN  860 
870  IF  T A*= " {F3 > " THEN  IF  CP>2  THEN  CP=CP-1 
.-SYS  53056,0,2, 19, 24, 37:SYS  53056,0,2, 
0,23,0 

880  IF  TA5="<F3)"THEN  IF  CP=2  THEN  GOSUB  3 
10 

890  IF  TA*="{F5)"THEN  IF  CP<EN  THEN  CP=CP+ 
1 : SYS  53056 ,1,2,19, 24 , 37 : SYS  53056,1,2 
,0,23,0 

900  IF  T A*= " {F5 ) " THEN  IF  CP=23  THEN  GOSUB 
270 

910  IF  TA*="{F1)"THEN  950 

920  IF  TA*="{F4)"THEN  TE*=" {16RIGHT > " : C=C— 
1 : EN=C: IF  EN >23  THEN  EN=23 
930  ir  TA*=" CF4)"THEN  PRINT" {HOME ,L IG. RED, 
4 R I GHT > " C— 1 " {LEFT .SPACE ,CYAN)":GUIU  97 
0 

940  GOTO  860 

950  SYS  53056,1 , CP, 2, 23, 18 

960  FOR  I=C-1  TO  NO+CP— 1  STEP— 1 : ZU ( 1+1 ) =ZU 
( I ) : NEXT: ZU (NO+CP— 1 ) =TE 
970  POKE  214, CP: POKE  211,2:SYS  58732 
980  PRINT  TE* " { 1 9SPACE > " 

990  GOTO  700 

1000  REM  ••••*•*•*•*•**••*•*•*•••••••*• 

1010  REM  SCHREIBEN  DES  SORTIERTEN  DIR. 
1020  REM  ****************************** 
1030  OPEN  2,8,2, "#":T=1B:F0R  1=0  TO  INT((C 
-2>/8):IF  B*I+8>=C— 1  THEN  T=0 
1040  PRINTttl , "B-P  2  0":PRINT#2,CHRSCT)CHR* 
(SN (1+2) ) 

1050  FOR  BP=0  TO  7 : PR I NT# I , " B— P  2";BP*32+2 
1060  IF  BP+8*I+1 >=C  THEN  PRINT#2 , NUS; : NEXT 
: GOTO  1080 

1070  PRINT42 , ANS ( ZU (BP+8*I+1 ) ) NA* ( ZU (BP+8* 
1+1 ) ) RE* ( ZU (BP+B*I+1 ) > ; :NEXT 
1080  PRINTttl ,  "U2  2  0  18"SN(I  +  1)  :PRINT"  {LIG 
. RED , HOME  > " TAB ( 36 ) SN ( I  + 1 ) " {LEFT , SP ACE 
, CYAN)": GOSUB  240: NEXT 
1090  CLOSE  2: GOSUB  350: GOTO  470 
1100  REM  ****************************** 
1110  REM  SEKTOREN  DES  DIRECTORY  TRACKS 
1120  REM  ****************************** 
1130  DATA  1,4,7,10,13,16,2,5,8,11,14,17,3, 
6,9,12,15,18 

1140  REM  ****************************** 
1150  REM  INPUT  MASCH I NEN-ROUT I NE 
1160  REM  ****************************** 
1170  DATA  32,253,174,32,158,183,32,30,225, 
32,253,174,32,158, 183,138,72,32,253 
1180  DATA  174,32,139,176,133,73,132,74,32, 
163,182,104,32,117, 1 80 , 160, 2, 1 B5 
1190  DATA  97,0,145,73,136,16,248,200,32,18 
,225, 145,98,200,196,97,208,246,32 
1200  DATA  204,255,96,0,0,0,0,0 
1210  REM  ****************************** 
1220  REM  SCROLL  MASCH I NEN-ROUT INE 
1230  REM  ****************************** 
1240  DATA  32,245,207,138,72,32,245,207,224 
,0, 176,3,76 

1250  DATA  72,178,224,24,176,249,134,251,32 
,245,207,224,0,144,240,224,39,176 
1260  UAIA  236, 134, 253, 32, 245, 20/, 224, 25, 17 
6,227, 134,252,232,138,56,229,251 
1273  DATA  1  44 , 21 B , 240, 216 , 133, 250 , 32,245 , 2 
07,224,40,  176,207,228,253,144,203 
1280  DATA  134,254,104,170,165,172,72,165,1 
73,72,165,174,72,165, 175,72,224,0 
1290  DATA  208,22,166,251,198,250,240,44,32 
,240,233,232,189,240,236, 133,172 
1300  DATA  181,217,32,219,207,48,236,202,24 
0,3,76,72, 178,166,252,198,250,240 
1310  DATA  16,32,240,233,202,189,240,236,13 
3, 172,181,217,32,219,207,48,236, 164 
1320  DATA  254,32,240,233,32,36,234,169,32, 
145,209,136,196,253,16,249,76,00 
1330  DATA  233,41,3,13,136,2,133,173,32,224 
,233,164,254,177,172,145,209,177 
1340  DATA  174,145,243,136,196,253,16,243,9 
6,32,253,174,76,158,183 

Listing  zum  Directory-Sorter  (Schluß) 


<040> 

<020> 

<  1 38  > 

<  1 14> 


<093> 

<164> 

<214> 

<241  > 
<149> 

<08B> 


<012> 

<214> 

<250> 

<141> 

<  094  > 

<  1 13> 
<001> 

<  102> 
<015> 
<122> 

<242> 

<057> 

<01  2> 

<132> 

<255> 


<129> 

<213> 

<203> 

<  173> 
<223> 

<07 1  > 
<243> 

<  138> 
'  007  > 

<010> 

<122> 

<201  > 

<  252  > 
<057> 
<015> 
<077> 

<  172> 

<  251  > 
<213> 
<254> 
<030> 
<234> 


<053> 

<  14B> 
<0~4> 
<016> 
<128> 
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Basic-Befehle 
im  Griff 

Gerade  für  den  Anfänger  ist  es  nicht 
immer  leicht,  sich  alle  Basic-Befehle 
zu  merken.  Man  denke  nur  an  ausge¬ 
fallene  Befehle  wie  CMD  oder  POS(X}. 

Exbasic  Level  II  kennt  als  Abhilfe  den  Befehl  HELP,  mit  dem 
eine  Liste  sämtlicher  Exbasicbefehle  auf  den  Bildschirm  ge¬ 
bracht  werden  kann.  Die  folgenden  kurzen  Programme  (drei 
Lösungsmöglichkeiten  für  dasselbe  Problem),  die  sich  als 
Hilfsprogramme  (Utility)  zum  Einbau  in  ein  zu  entwickelndes 
längeres  Hauptprogramm  verstehen,  simulieren  diesen  Befehl 
HELP  für  das  reine  Basic,  das  heißt,  sie  geben  eine  Liste  aller 
Befehle  auf  dem  Bildschirm  aus. 

Wie  geschieht  das  nun  im  einzelnen? 

Eine  unmittelbare  Ausgabe  aller  Basic-Befehle  auf  dem  Bild¬ 
schirm  per  PRINT-Anweisungen  hätte  zwar  gegenüber  den 
neuen  zu  besprechenden  drei  Methoden  den  Vorteil,  daß  man 
diese  Liste  alphabetisch  ordnen  könnte.  Sie  wäre  aber  viel  zu 
langsam  (in  der  Größenordnung  5  Sekunden)  und  das  gene¬ 
rierte  Basic-Programm  wäre  viel  zu  lang:  Eine  Liste  aller  anein¬ 
andergereihten  Basic-Befehle,  mit  Trennzeichen  zwischen  Be¬ 
fehl  und  Befehl,  umfaßt  331  Bytes.  Einschließlich  PRINT-Be- 
fehle,  Hochkommata  und  Zeilennumerierungen  würde  ein  sol¬ 
ches  Programm  also  mindestens  375  Bytes  benötigen. 

Nun  enthält  aber  das  Betriebssystem  bereits  eine  Tabelle  al¬ 
ler  Basic-Befehle:  49310-49565  ($C09E-$C19D).  Diese  hat 
lediglich  den  Nachteil,  daß  sie  keine  Trennzeichen  verwendet, 
sondern  das  Ende  eines  Basic-Befehlswortes  dadurch  kenn¬ 
zeichnet,  daß  der  ASCII-Code  des  betreffenden  Zeichens  um 
den  Wert  128  (Bit  7  gesetzt)  erhöht  wird.  Das  Vorhandensein 
einer  solchen  Tabelle  wollen  wir  in  den  folgenden  drei  Vor¬ 
schlägen  zur  Simulation  von  HELP  ausnützen. 


Methode  1:  »HELP«  in  Basic 


de  Zeichen  vor  dem  Ausdrucken  (auf  dem  Bildschirm)  zuerst 
normalisiert  wird  und  daß  dann  zusätzlich  noch  ein  Befehls¬ 
worttrennzeichen  eingefügt  wird  (in  Listing  1  an  der  Stelle 
X$=" .  ”,  welches  Symbol  vom  Leser  beliebig  abgeändert  und 
individuellem  Geschmack  angepaßt  werden  kann).  Nachteilig 
ist  bei  allen  drei  zu  besprechenden  Vorschlägen,  daß  man  sich 
sinnvollerweise  mit  der  durch  die  CBM-Tabelle  vorgegebenen 
Unordnung  zufriedengeben  muß. 


Methode  2:  »HELP«  per 
Maschinensprogramm 


Das  in  Listing  2  aufgeführte  Maschinensprogramm  zur  Aus¬ 
gabe  der  Basic-Befehlsliste  auf  dem  Bildschirm  ist  zwar  ein 
wenig  länger  als  das  Basic-Programm  in  Listing  1,  nämlich  106 
Bytes  lang.  Dafür  benötigt  es  aber  zum  Einlesen  der  Data- 
Zeilen  deutlich  weniger  als  '/3  Sekunde  und  erzeugt  die  Basic- 
Befehlsliste  nach  dem  Aufruf  per  SYS700  in  einem  kaum 
wahrnehmbaren  Bruchteil  einer  Sekunde.  Das  eigentliche  Ma¬ 
schinenprogramm  ist  nur  21  Bytes  lang  und  kann  (voll  ver¬ 
schiebbar)  überall  abgelegt  werden,  wo  es  nicht  stört,  zum 
Beispiel  in  einem  durch  Herabsetzen  der  RAM-Grenzen  ge¬ 
schützten  Maschinensprachbereich  oder  im  Kassettenpuffer 
oder  eben  auch  dort,  wo  wir  es  hingelegt  haben,  nämlich  in 
den  für  den  Benutzer  freien  Bereich  678-767  (02A6-02FF). 
Wir  haben  es  als  mit  SYS700  aufrufbar  gestaltet.  Bei  Ablage 
an  anderer  Stelle  aaaa  müßte  POKE7 00  +  l,X  in  Zeile  6 1 0  von 
Listing  2  durch  POKEaaaa+l,X  ersetzt  und  das  Programm  per 
SYSaaaa  aufgerufen  werden.  Legt  man  das  Programm  nicht  in 
den  Kassettenpuffer,  sondern  wie  hier  vorgeschlagen,  nach 
700ff.,  dann  kann  man  das  generierende  Basic-Programm  aus 
Listing  2  natürlich  nach  dem  Einlesen  des  Maschinenpro¬ 
gramms  wieder  löschen  (ein  Maschinenprogramm  für  größere 
Löschvorhaben  wurde  im  64’er  Ausgabe  5/84,  Seite  85,  ver¬ 
öffentlicht).  Listing  3  gibt  eine  ausführlich  kommentierte  Dar¬ 
stellung  des  Maschinensprogramms  in  Assemblernotierung. 


Methode  3:  Maschinenprogramm¬ 
erzeuger  ohne  Datenzeilen 


Das  Basic-Programm  nach  Listing  1  ist  der  kürzeste  unserer 
drei  Vorschläge  (nur  80  Bytes  lang),  es  hat  aber  den  Nachteil, 
daß  es  zum  Aufbau  der  Basic-Befehlsliste  mehr  also  vier  Se¬ 
kunden  benötigt.  Es  wird  (im  Direktmodus  oder  vom  Hauptpro¬ 
gramm  aus)  per  GOSUB500  aufgerufen  und  PRINTet  Zeichen 
für  Zeichen  der  Tabelle  493 10  —  49565,  wobei  es  darauf  ach¬ 
tet,  daß  immer  wenn  ein  Befehlswort  zu  Ende  ist,  das  betreffen- 


500  REM: HELP 

5 1 0  FOR I =0TD254 : X=PEEK ( 493 1 0+ I ) : I FX >99TH 
ENX=X— 128: X*=” . " : G0TD530 
520  XS=,,M 

530  PRINTCHRi ( X ) +X4; :NEXT:  RETURN 
READY. 

Listing  1.  Simulation  von  HELP  als  reines  Basic- 
programm,  Länge  80  Bytes,  Ausführungszeit  4  s 


Will  man  das  Maschinenprogramm  in  den  Kassettenpuffer 
legen,  so  muß  man  es  gegebenenfalls  (bei  zwischenzeitlicher 
Ausführung  von  LOAD,  SAVE  oder  VERIFY)  oder,  wenn  sich 


600  REM: HELP 

610  FORI — 0T020 : READ X : P0KE700+ I , X : NEXT 
620  DATA  160,255,200, 1B5,15B, 192, 16,7,41 
, 127,32,71,203,169,46,32,71,203,208,238, 
96 

READY. 


Listing  2.  Simulation  von  HELP  per  Maschinenpro¬ 
grammlader.  Länge  106  Bytes.  Einlesen  0,3  Sekunden. 
Ausführung  »augenblicklich«,  Ansprung  SYS700. 
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mehrere  Hilfsprogramme  den  Kassetten puffer  teilen)  vor  je¬ 
dem  Aufruf  neu  generieren.  Die  Schwierigkeiten,  die  dadurch 
entstehen,  daß  der  Basic-Datenzeiger  per  RESTORE  nur  im¬ 
mer  an  den  Datenanfang  gesetzt  werden  kann,  lassen  sich 
beispielsweise  durch  ein  in  Computer  persönlich,  Ausgabe 
10/84,  Seite  52,  beschriebenes  Hilfsprogramm  beseitigen, 
mit  welchem  der  Datenzeiger  an  beliebige  Stellen  gesetzt  wer¬ 
den  kann.  Das  nun  noch  zu  beschreibende  Programm  nach  Li- 
sting  4  vermeidet  die  Schwierigkeiten  durch  ausschließliche 
Verwendung  von  POKE-Anweisungen  anstelle  von  DATA-Zei- 
len.  Um  den  Aufwand  so  gering  wie  möglich  zu  halten,  wurde 
angestrebt,  mit  möglichst  weniger  POKE-Anweisungen  aus¬ 
zukommen.  Das  wurde  mit  einem  Trick  erreicht:  Das  für  die 
Rückübersetzung  der  Token  beim  Ausdrucken  nach  dem  LIST- 
Befehl  zuständige  Maschinenunterprogramm  des  Betriebssy¬ 
stems  enthält  fast  alle  Betehlssequenzen,  die  wir  für  unsere 
Zwecke  benötigen.  Das  Programm  in  Listing  4  lädt  den  Ma¬ 
schinenprogrammabschnitt  50929  bis  51008  (C6F1  — 
C740),  der  zugegebenermaßen  viel  für  unsere  Zwecke  über¬ 
flüssigen  Ballast  enthält,  mit  einer  einfachen  FOR-NEXT- 
Schleife  in  den  Kassettenpuffer,  (Es  wird  mit  GOSUB700  an¬ 
gesprungen).  Jeder  zweite  und  weitere  Ansprung  kann  mit 
GOSUB730  erfolgen  und  wird  dann  in  kaum  wahrnehmbaren 
Bruchteilen  einer  Sekunde  ausgeführt. 


(Fred  Behringer/ev) 


LDY 

#$FF 

ZEICHENZAEHLER 

NEXT 

INY 

NAECHSTES  ZEICHEN 

LDA 

SC09E,Y 

IN  AKKU 

BPL 

NORM 

WORTENDE  ? 

AND 

4M-7F 

DANN  NORMALISIERT 

JSR 

*CB47 

ZEICHEN  AUSBEBEB 

LDA 

#*2E 

WORTTRENNZEICHEN 

NORM 

JSR 

*CB47 

ZEICHEN  AUSBEBEB 

BNE 

NEXT 

ZEICHEN  IN  AKKU  =  0  ? 

ENDE 

RTS 

DANN  ZURUECK  ZU  BASIC 

Listing  3.  Assemblerdarstellung  des  nach  Listing  2  er- 

zeugten  Maschinenprogramms 

700  REM: HELP 

710  FORI=OTOBO: P0KE828+I ,PEEK  C50929+I )  :N 
EXT 

720  P0KE836 , 55 : P0KE892 ,169: P0KE893 , 1 66 :  P 
0KE897 , 6 : P0KE903 ,180: F0KE909 , 96 
730  P0KE782 , 255 : SYSB98 : RETURN 
READY. 

Listing  4.  Simulation  von  HELP  als  Maschinen¬ 
programm  für  Kassettenpuffer,  ohne  DATA-Zeilen. 

Länge  106  Bytes,  Einlesen  1,5  s,  Ausführung 
»augenblicklich«. 


Genau 

betrachtet: 

RS232/V.24- 

Schnittstelle 

Eine  kurze  und  bündige  Beschreibung 
der  RS232-Schnittstelle  Ihres  C  64. 
Was  machen  die  Signale,  wie  sind 
die  Pin-Belegungen? 

Bei  der  RS232-Schnittstelle  werden  die  Daten  Bit  für  Bit 
übertragen,  im  Gegensatz  zur  Centronics-  oder  IEEE-488- 
Norm,  bei  der  ganze  Bytes  übergeben  werden.  Die  Bits  wer¬ 
den  als  eine  Folge  von  Spannungsimpulsen  mit  einer  bestimm¬ 
ten  Dauer  übertragen.  In  der  Praxis  werden  dabei  Pakete  von  5 
bis  8  Datenbit  übertragen,  die  von  einem  Startbit  und  1  bis  2 
Stop-Bit  eingerahmt  sind  (Bild  1).  Das  Startbit  hat  grundsätzlich 
logischen  Low-  und  die  Stop-Bits  High-Pegel.  Vor  dem  Stop-Bit 
kann  ein  sogenanntes  Paritäts-Bit  vereinbart  werden,  das  die 


Anzahl  der  High-Zustände  im  Datenwort  immer  gerade  oder 
ungerade  macht. 

Beispiel:  Sind  in  einer  8-Bit-Übertragung  5  Bit  gesetzt,  wird 
das  Paritäts-Bit  ebenfalls  gesetzt,  wenn  gerade  Parität  verein¬ 
bart  wurde. 


Päckchenweise  Übertragung 


Um  die  Störungs-Anfälligkeit  der  Übertragung  zu  mindern, 
wird  logisch  »Eins«  (gesetztes  Bit)  nicht  durch  +5V  (TTL- 
Pegel)  realisiert,  sondern  mit  einer  Spannung  von  —3  bis  —1 2  V 
und  logisch  »Nulkmit +3  bis  +12V  (RS232  nach  DIN  66020). 
Eine  andere  Norm  ist  die  RS232/TTY,  die  gegen  äußere  Stö¬ 
rungen  recht  unempfindlich  ist.  Bei  dieser  Norm  werden  die  lo¬ 
gischen  Zustände  durch  das  Fließen  oder  Fehlen  eines  Stro¬ 
mes  (20mA)  dargestellt.  Der  C  64  hat  zwar  die  nötige  Software 
für  eine  RS232-Schnittstelle  im  Betriebssystem  integriert,  ver¬ 
fügt  aber  nicht  über  die  entsprechenden  Spannungspegel.  Im 
C  64  gibt  es  nur  zwei  Spannungen:  +5V  (TTL)  und  9V  Wech¬ 
selspannung.  Es  ist  also  ein  Interface  zur  Spannungskonver¬ 
tierung  nötig.  Links  in  Bild  2  finden  Sie  den  Schaltplan  eines 
solchen  Interfaces  (Bauanleitung  in  Ausgabe  3/85).  Rechts  im 
Bild  die  diskrete  Lösung,  für  die  Konvertierung  von  0/5V  auf 
±12V  (oben)  und  von  ±12V  auf  0/5V  (unten).  Beachten  Sie, 
daß  jede  Sende-  und  Empfangsleitung  die  entsprechende 
Transistorschaltung  braucht. 

Mit  einer  Masse-  und  einer  Datenleitung  könnte  schon  eine 
Übertragung  von  Texten  an  einen  Drucker  erfolgen.  Was  ist 
aber,  wenn  die  Datenübertragung  schneller  ist,  als  der 


High  ft 


Kein 


Zeichen 


=  Stop  (high) 
Low  - 


Olcill 

Bit  ; 

. 

i  0 

1 

2 

3 

4 

5 

6  j  P  ! 
. . ; 

-tt 


Bit  1  I  Bit  2  I  Zeichen 


Bild  1.  So  sieht  eine  RS232-Übertragung  schematisch  aus 
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User-Port  RS232 

PIN  SIGNAL 


Bild  2.  Schaltpläne  für  ein  RS232/V.24-lnterface.  Links  die  Lösung  mit  IC,  rechts  die  diskrete  mit  Einzeieiementen 


Drucker  die  Zeichen  zu  Papier  bringen  kann?  Der  Drucker  muß 
dem  Computer  sagen,  wenn  er  zuviel  Arbeit  bekommt.  Er  kann 
dies  auf  drei  verschiedene  Arten  tun: 

—  Software-Protokoll  mit  XON/XOFF 

Es  wird  eine  zusätzliche  Leitung  zwischen  Computer  und 
Peripherie  eingerichtet,  über  die  das  empfangende  Gerät  den 
Code  $13  (XOFF)  sendet,  wenn  es  keine  Daten  mehr  anneh¬ 
men  kann.  Dieses  Signal  hat  die  gleiche  Aufgabe  wie  die  Busy- 
Leitung  einer  Centronics-Schnittstelle;  es  stoppt  die  Daten¬ 
übertragung.  Die  Freigabe  erfolgt  mit  dem  Code  $11  (XON). 
Die  Codes  $11  und  $13  entsprechen  den  ASCII-Codes  DC1 
und  DC2. 

Die  neue  Leitung  kann  natürlich  auch  zur  Übertragung  von 
mehr  Informationen  verwendet  werden.  Sende-  und  Emp¬ 
fangsgerät  müssen  dann  allerdings  in  der  I  age  sein,  zwei  Lei¬ 
tungen  (XON/XOFF  und  die  normale  Datenleitung)  gleichzeitig 
zu  verwalten.  Mit  dieser  zusätzlichen  Leitung  wird  auch  der  so¬ 
genannte  Vollduplex-Betrieb  möglich.  Vollduplex  heißt,  daß 
beide  Geräte  gleichzeitig  senden  oder  empfangen  können.  Im 
Gegensatz  zum  Halbduplex-Betrieb,  bei  dem  zur  gleichen  Zeit 
nur  in  eine  Richtung  übertragen  werden  kann. 


—  Software-Protokoll  mit  ETX/ACK 

Auch  bei  dieser  Lösung  kommt  man  nicht  ohne  eine  zusätzli¬ 
che  Leitung  aus.  Sie  heißt  DTR  (Data  Terminal  Ready).  Ist  zum 
Beispiel  der  angeschlossene  Drucker  bereit,  Daten  anzuneh¬ 
men,  aktiviert  er  die  DTR-Leitung  und  sendet  $06  (ACKnow- 
ledge).  Der  Computer  schickt  nun  eine  Reihe  Datenworte  über 
die  Sendeleitung  und  schließt  die  Übertragung  mit  $03  zwi¬ 
schendurch  immer  wieder  ab.  Den  nächsten  Datenblock  sen¬ 
det  er  erst  dann,  wenn  der  Drucker  sein  ACK  gegeben  hat.  Da¬ 
mit  die  Übertragung  nicht  in  einem  Chaos  entartet,  muß  der 
Sende-Computer  über  das  Puffervermögen  des  Empfängers 
informiert  sein,  um  rechtzeitig  ein  ETX  (End  Of  Text)  senden 
zu  können.  Nur  so  kann  ein  Überlauf  des  Puffers  und  der  damit 
einhergehende  Datenverlust  verhindert  werden. 

Hat  das  Fmpfangsgerät  ein  FTX  festgestellt,  werden  die 
empfangenen  Daten  bearbeitet.  Kann  der  Empfänger  neue 
Daten  aufnehmen,  sendet  er  ein  ACK  an  den  Computer  und 
die  Übertragung  beginnt  von  Neuem. 

—  Hardware-Protokoll 

Spätestens  hier  wird  es  unübersichtlich.  Es  hilft  nur  noch  Ta¬ 
belle  1  zur  Erklärung  der  ganzen  Signale.  Als  üblicher  Stecker 


Bit  (dez.  Wert) 

Bit  7  (128) 

Bit  6  (  64) 

Bit  5  {  32) 

Bit  4  (  16) 

Bit  3  (  8) 

Bit  2  (  4) 

Bit  1  (  2) 

Bit  0  (  1) 

Bit  7  (128) 

Bit  6  (  64) 

Bit  5  (  32) 

Bit  4  (  16) 

Bit  3  (  8) 

Bit  2  (  4) 

Bit  1  (  2) 

Bit  0  (  1) 


Bedeutung 

1.)  Kontrollregister  (8  Bit) 

0  =  1  Stop-Bit  1=2  Stop-Bits 
0 ") 

8  Daten-Bits  1  I  7  Daten-Bits 


:} 


nicht  benutzt 
Baudraten  (Bit/sec) 


50 


75 


Kommandoregister  (8  Bit) 

1  keine  Paritäts- 
1  Überprüfung  (alle 
0  vier  Komb.) 


0  Vollduplex 

nicht  benutzt 
nicht  benutzt 
nicht  benutzt 


0  Freilaufmodus  (3-Draht) 


1  Halbduplex 


:} 


6  Daten-Bits 


;) 


5  Daten-Bits 


150 


'  300 


■  600 


n  n  n 

°  >1200  °  >1800  °  >2400 


1  Bit  8:1 
0  ohne 
1  Par. 


1  Bit  8:0 
1  ohne 
1  Par. 


Tabelle  2.  Funktion  des  Kontrull-  und 
Kommandoregisters 


1  Hardwarehandshake  (X-Draht) 
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für  V.24-Signale  hat  sich  ein  25-poliger  D-Sub-Stecker  (im  La¬ 
borslang  Cannon  gennant)  durchgesetzt.  Die  Bezeichnung 
der  Kontakte  ist  gleich  dreimal  genormt:  DIN  66020,  CCITT 
V.24  (Comite  Consultatif  International  Telegraphique  et  Tele- 
phonique)  und  EIA  RS232C  (Electronic  Industries  Associa¬ 
tion).  Die  Bedeutung  der  Signale  ist  bei  allen  Normen  gleich, 
nur  die  Signalpegel  differieren.  Die  deutsche  Norm  verlangt,  im 
Gegensatz  zu  den  anderen,  negative  Logik. 

Zum  Anschluß  einer  RS232/V.24-Schnittstelle  ist  es  in  den 
allermeisten  Fällen  nicht  nötig,  alle  Leitungen  zu  benutzen.  So 
werden  nur  wenige  unter  Ihnen  eine  synchrone  Datenübertra¬ 
gung  mit  zusätzlichem  Clock-Signal  realisieren,  wie  beim  se¬ 
riellen  lEC-Bus  des  C  64.  Normalerweise  reichen  die  folgen¬ 
den  Leitungen  aus: 

1.  eine  Masseleitung 

2.  je  Richtung  eine  Datenleitung 

3.  je  Richtung  eine  Busyleitung 

Punkt  1  und  2  dürften  klar  sein.  Punkt  3  kann  auf  vielfältige 
Art  realisiert  werden.  In  aller  Regel  werden  die  Kontakte  S2 
(RTS)  und  M2  (CTS)  benutzt.  Die  Erklärung  erfolgt  am  besten 
an  einem  Beispiel:  Der  Drucker  zeigt  seine  Empfangsbereit¬ 
schaft  an,  indem  er  M2  aktiviert.  Dieses  Signal  fragt  der  Com¬ 
puter  ständig  am  Anschluß  S2  ab.  Ist  M2  inaktiv,  stoppt  der 
Computer  die  Datenübertragung.  Nehmen  wir  an,  anstelle  des 
Druckers  sei  ein  Meßgerät  angeschlossen,  das  nur  ab  und  zu 
Anweisungen  vom  Computer  bekommt  und  ansonsten  sich 
um  interne  Aufgaben  kümmert.  Dann  wäre  es  wenig  vorteilhaft, 
wenn  das  Meßgerät  ständig  Befehle  vom  Computer  erwartet; 
für  die  eigentlichen  Meßaufgaben  bliebe  zu  wenig  Zeit.  In  die¬ 
sem  Fall  gestattet  das  einfache  Abfragen  des  Kontaktes  S1 
(per  Interrupttechnik)  eine  fast  ungestörte  Bearbeitung  eines 
Programmes.  S1  ist  mit  RTS  (Request  To  Send)  identisch.  Akti¬ 
viert  der  Computer  S1,  »spitzt  das  Meßgerät  die  Ohren«  und 
das  Meßprogramm  verzweigt  in  die  Datenempfangsroutine. 
Nicht  auf  die  Norm  verlassen 

Die  Hersteller  von  V.24-Schnittstellen  scheinen  sich  nicht 
immer  völlig  einig  zu  sein,  wie  die  Belegung  und  Bedeutung 
der  einzelnen  Stecker-Pins  ist.  So  sind  diesem  Beitrag  haupt¬ 
sächlich  Praxiserfahrungen  zugrunde  gelegt.  Besser  als 
Normblätter  ist  die  Überprüfung  der  Schnittstelle  mit  einem 
Speicheroszilloskop  oder  einem  Digital-Analyzer.  Zumal  die 
Steuerleitungen  ab  und  zu  mit  Fantasienamen  belegt  oder 
nicht  eindeutig  als  Sende-  oder  Empfangsleitung  gekenn¬ 
zeichnet  werden.  Zum  störungsfreien  Betrieb  einer  Schnitt¬ 
stelle  sollten  nichtbenutzte  Leitungen  auf  ein  festes  Potential 
gelegt  werden.  Man  verhindert  dadurch,  daß  die  Übertragung 
bei  einer  eventuellen  Abfrage  einer  solchen  Leitung,  mit  Unde¬ 
finiertem  logischen  Zustand,  nicht  unterbrochen  wird. 


V.24  beim  C  64 


Beim  C  64  kann  diese  Schnittstelle  als  Gerät  der  Nummer 
2  angesteuert  werden.  Zur  Bestimmung  der  Kontrollparame- 
ter  sind  zwei  Register  vorhanden,  die  auch  von  Basic  aus  er¬ 
reicht  werden  können. 

Einstellparameter 

Mit  Tabelle  2  können  Sie  die  Werte  bestimmen,  die  Sie  in 
Kommando-  und  Kontrollregister  schreiben  müssen,  um  ein 
bestimmtes  Übertragungsprotokoll  zu  bewerkstelligen.  Eine 
»1«  bedeutet  ein  gesetztes  Bit. 

Das  Einschalten  der  RS232-Schnittstelle  geschieht  beim 
C  64  mit  OPEN  filenr.,2,0,CHR$(Kontrollreg.)+CHR$(Kom- 
mandoreg.). 

Beispiel:  OPEN20,2,0,CHRS(64+4+2)+CHR$(32+1). 

Mit  dieser  Anweisung  wird  für  Filenummer  20  vereinbart:  1 
Stop-Bit,  6  Datenbit,  300  Baud,  ungerade  Parität,  Vollduplex 
und  Hardwareprotokoll. 
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Pin/Bsdeutung 

DIN 

CCITT 

EIA 

Usor-Port  C  64  (VC  20) 

1  Massv 

El 

lül 

AA 

A-GND  (A  GND) 

2  Transmit  data  (TD) 

Ober  diese  Leitung  sendet  der  C  64 
Oalon  an  den  Akustikkoppler 

Dl 

103 

SA 

M-PA2  IM-C62)  out 

3  Received  data  (RD) 

Die  FnipfiingBleltufiü- 

D2 

104 

BB 

B-F1 2  +  C-PBO 
(BCB1  +  C-PBO) 

4  Request  ro  send  (RTS) 

Frage  des  Computers  an  das 
Peripheriegerat,  ob  es  zur 
Datenübertragung  bereit  ist. 

S2 

105 

CA 

D-PB1  (D-PBI)out 

5  Ctear  Io  send  (CTS) 

Poslllvo  Antwort  dos  Peripherie- 
cerates  auf  RTS. 

M2 

106 

CB 

K-PB6  (K-PB6) 

6  Data  sot  ready  (OSR) 

Akustikkoppler  ist  betriebsbereit 

Mi 

107 

cc 

L-P87  (L-PB7) 

7  Signämasse 

E2 

102 

AB 

N-GND  (M-GND) 

8  Recorvod  öie  Signal  (DCD) 

9  Testzwecke 

10  Testrwecke 

1 1  nicht  belegt 

M5 

109 

CF 

H  P34  (H-PB4) 

1 2  Socondivy  carner  ciolarlnr 

HM  5 

122 

SCF 

— 

13  Sococ.dary  clear  to  send 

HM2 

121 

SCB 

— 

1 4  Secondary  transmitted  Data 

HD1 

1 :8 

SBA 

— 

1 5  Transmit  dock  (TCI  front  modern 

T2 

114 

DB 

— 

1 6  Secondary  received  data 

HD2 

119 

SBB 

1 7  Receiver  Signal  clock  (RC) 

18  n-cht  belegt 

T4 

115 

DD 

1 9  Secondary  requost  to  send 

HS2 

120 

SCA 

— 

20  Data  terminal  ready  (DTR) 

Terminal  ist  zur  Datenübertragung 
bereit 

Sl.x 

108.x 

CD 

E-PB2  (E-PB2)  out 

21  &gna!  quaiity  dotoctor 

M6 

1 10 

CG 

— 

22  Ring  indientor  (RI) 

M3 

126 

CE 

F-PB3  (F-PB3) 

23  Data  Signa,  miedet  terminal 

S4 

111 

CM 

— 

modern 

M4 

1 12 

CI 

— 

24  Transmit  clock  to  modern 

25  mcht  bolegt 

Tabelle  1.  Belegung  der 
RS232-Leitungen 

TI 

113 

DA 

Wird  eine  Filenummer  größer  als  128  verwendet,  sendet  der 
Computer  (wie  üblich)  nach  jedem  Carriage  Return  (SOD)  ein 
Linefeed  ($0A).  Sollten  diese  Einstellmöglichkeiten  nicht  aus¬ 
reichen,  können  Sie  direkt  in  die  RS232-Routine  eingreifen. 
Einige  Speicherstellen  finden  Sie  in  Tabelle  3. 


S0293 

Kontrollregister 

$0294 

Kommandoregister 

S0295— $0296 

nicht-standard  (Bit  time  2^100) 

$0297 

Statusregister 

$0298 

Anzahl  Bits 

$0299— S029A 

Baudrate 

Tabelle  3.  Zeropage- 

$0298 

Zeiger  Aufnahme 

Adressen,  die  von  der 

$029C 

Zeiger  Eingabe 

RS232-Schnittstelie 

.  S029D 

Zeiger  Senden 

benötigt  werden. 

$029e 

Zeiger  Ausgabe 

Übertragungsraten  größer  als  2400  Baud,  können  nur  mit 
eigenen  Maschinenprogrammen  realisiert  werden. 

Fehlerabfrage 

Das  Betriebssystem  des  C  64  verfügt  über  eine  Fehlerbe¬ 
handlung  der  RS232-Schnittstelle.  Der  Status  dazu  kann  ent¬ 
weder  durch  die  Variable  ST  abgefragt  werden,  oder  direkt  mit 
Speicherzelle  $0297.  Die  Bedeutung  der  einzelnen  Bits  von 
ST  finden  Sie  in  Tabelle  4.  (Jens  Maßmann/hm) 


Bit 

dez. 

Bedeutung 

0 

i 

Paritätsfehler 

1 

2 

Rahmenfehler 

2 

4 

Empfängerpuffer  voll 

3 

8 

unbenutzt 

4 

16 

CTS-Signai  fehlt  Tabelle  4.  Bedeutung 

5 

32 

unbenutzt  der  Statusvariablen 

6 

64 

DSR-Signal  fehlt 

7 

128 

Break-Signal  empfangen 
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Longscreen 
VC  20 


Diese  kleine  Utility  wird  sicher  bei  al¬ 
len  Anwendern  Freude  finden,  die  das 
unproportionale  Breitschriftformat  des 
VC  20  stört. 


Die  Routine  dreht  den  kompletten  Zeichen,  Färb-  und  Bild¬ 
schirmspeicher  um  90  °.  Das  Ergebnis  ist  eine  hervorragend 
lesbare  Bildschirmmatrix  mit  herrlich  schlanken  Zeichen  (siehe 
Bild).  Natürlich  sind  nach  wie  vor  beide  Zeichensätze  vorhan¬ 
den. 

Für  das  Programm  benötigt  man  mindestens  eine  8-KByte- 
RAM-Erweiterung.  Nach  dem  Start  wird  folgende  Speicherauf¬ 
teilung  vorgenommen: 


Basic-RAM 


Maschinenprogramm 


Gratik- 
RAM  (2K) 


Video-RAM 


Prinl-RAM 


$1d18  (7448) 
$1c00  (7168) 

$1400(5120) 

$1200(4608) 

$1000(4096) 


Die  Position  des  Speichers  für  Print-Operationen  bleibt  also. 
Falls  in  diesen  Bereich  gePOKEt  wird,  werden  solche  Zeichen 
auch  übertragen.  Der  VIC  zeigt  jetzt  allerdings  nicht  mehr  das 
Print-RAM,  sondern  das  Video-RAM,  wo  der  Inhalt  des  Print- 
RAM  um  90  Grad  gedreht  dargestellt  wird.  Die  Routine  wird 
über  das  IRQ-Signal  gesteuert.  Das  Bild  wird  1 2mal  pro  Sekun¬ 
de  aufgebaut. 


Folgende  RAM-Adressen  werden  benutzt: 

$00/01 

Zeiger  in  Video-RAM 

$02/03 

Zeiger  in  Print-RAM 

$06/07 

Zeiger  in  Video-Farb-RAM 

$08/09 

Zeiger  in  Print-Farb-RAM 

S04 

Y-Hilisregister  für  Print-RAM 

$05 

Y-Zeiger  in  Video-RAM 

Sollte  die  RESTORE-Taste  betätigt  worden  sein,  so  befindet 
sich  der  Rechner  wieder  im  Normalmodus.  Durch  Eingabe  des 
Befehls  »SYS  7410«  kann  die  Routine  ohne  Programm-Verlust 


nn  cbm  basic  v2  **** 


1712?  bytes  -free 


ready. 


10  print"Hier  kommt  di 
e  Alter-  native  zum  Co 
mmodöre  PC  12S  — " 


29  print"Der  VC  ztf  mit 
**  LONGSCREEN 

**" 

run 

Hier  kommt  die  Alter¬ 
native  zum  Commodore 
PC  123  — 

Der  VC  20  mit 
**  LONGSCREEN  ** 


ready. 


Den  Monitor  auf  die 
Seite  gelegt,  und 
schon  hat  man  eine 
hervorragend  lesbare 
Bildschirmanzeige 


wieder  gestartet  werden.  Die  Umschaltung  in  den  Grafik-/ 
Großschrift-Modus  erfolgt  über  »PRINT  CHR$  (142)«,  in  den 
Textmodus  zurück  gelangt  man  über  »PRINT  CHRS  (14)«. 

(Wolfgang  W.  Wirth/ev) 


100 

REM— 

<105> 

105 

REM! 

LONGSCREEN  ! 

<042> 

110 

RFM  1 

VERSION  2  '  TI 

<  151  > 

115 

REM— 

-  n 

<120> 

120 

REM 

<007> 

125 

REM— 

<  130> 

130 

REM1 

BY  .' 

<238> 

135 

REM! 

W.WIRTH  ! 

<  1  07  > 

140 

REM— 

<145> 

145 

REM! 

06703/B68  ! 

<055> 

150 

REM— 

<  155> 

155 

REM 

<042> 

160 

FOKE 

56,27iCLR 

<013> 

165 

POKE 

36879 ,12 

<220> 

170 

PRINT" CCLR, DOWN, RI GHT, WHITE, CTRL  NJLAD 

EPRG. 

FUER  s " 

<244> 

175 

PRINT" CDOWN , R I GHT , RVSON JLONGSCREEN  VER 

SION 

2C3D0WNJ" 

<07 1  > 

180 

FÜR 

=7168  TO  7489 

<134> 

185 

READ 

J : POKE  I , J: S=S+J 

<1601 

190 

PRINT  I ; J ” CUP>  " : NEXT 

<  1 82  > 

195 

IF  S=37513  THEN  210 

<144> 

200 

PRINT" C2D0WN , R I GHT ICHECKSUMMENFEHLER  ' 

" 

<238> 

205 

PRINT" {DOWN, RIGHTJDATA-ZEILE  PRUEFEN  ! 

CDOWN > " : STOP 

<169> 

210 

PRINT" CR I GHT JRESTORE-TASTE  NOCH" 

<  198> 

215 

PR I NT " CDOWN , R I GHT  > I NT AKT ! “ 

<206> 

220 

PRINT" CDOWN, RIGHTJFALLS  BETAETIGT,  MIT 

" 

<00B> 

225 

PRINT" CDOWN , RIGHT , RVSQN1SYS  741 0CRVOFF 

, SPACE >NEU  STARTEN" 

<100> 

230 

PRINT" C2D0WN,RIGHTJZUM  START  BITTE" 

<004  > 

235 

PRINT" CDOWN, R I GHT )F1 -TASTE  DRUECKEN" 

<108; 

240 

POKE 

198,0: WA IT  198,1:SYS  7448 

<255> 

245 

DATA 

206,255,017,016,106,169,004,141 

<  1 12> 

250 

DATA 

255,017,162,010,181 ,255,072,202 

<  1 14> 

255 

DATA 

208,250,160,016,134,002,132,003 

<  1 04  > 

260 

DATA 

160,148,134,008,132,009,160,022 

<122> 

265 

DATA 

132,005,056,162,227,160,019,134 

<132> 

270 

DATA 

000,132,001, 160,151,134,006,132 

<  1 1 1  > 

275 

DATA 

007,160,021 , 177,002, 170, 177,00R 

<  1  4  0  > 

280 

DATA 

132,004, 164,005,145,006,138, 145 

<144> 

235 

DATA 

000 ,164,004,165, 000 , 233 , 023 , 1 33 

<  132> 

290 

DATA 

000 ,133, 006 ,176, 005 ,198,001,198 

<  159> 

295 

DATA 

007,056,136,016,222, 165,002,233 

<158> 

300 

DATA 

234 ,133, 002 ,133, 008 ,144, 004 , 230 

<  151  > 

305 

DATA 

003,230,009,198,005,016, 187,162 

<  177> 

310 

DATA 

246, 104,149,010,232,208,250,076 

<  179> 

315 

DATA 

191 ,234,072,165,154,201,003,240 

<  178> 

320 

DATA 

003,076,133,242,104,072,133,215 

<1B0> 

325 

DATA 

138,072,152,072,165,212,240,003 

<  1B9> 

330 

DATA 

076,073,231,165,215,201,014,240 

<  1 93  > 

335 

DATA 

007,201 , 142,208,243, 162,128,172 

<201  > 

340 

DATA 

162,136,160,000,132,096,134,097 

<21 1  > 

345 

DATA 

162,020,132,098,134,099, 162,008 

<222> 

350 

DATA 

1 77 , 096 ,145, 098 , 200 , 208 , 249 , 230 

<239  > 

355 

DATA 

097,230,099,202,208, 242 ,160,008 

<231  > 

360 

DATA 

132,099,160,020,134,096,132,097 

<230; 

365 

DATA 

162,007,160,007,169,000,133,090 

<235> 

370 

DATA 

1 77 , 096 ,010,145, 096 , 038 , 09R , 1 36 

<0PIB> 

375 

DATA 

016,246,165,098,072,202,016,234 

<252> 

380 

DATA 

160,007,104,145,096,136,016,250 

<248.1 

385 

DATA 

165,096,024,105,008,133,096, 1 44 

<007> 

390 

DATA 

215,230,097, 19B, 099, 208, 209, 076 

<033> 

395 

DATA 

220,230,120,162,000, 160,020,142 

<240> 

400 

DATA 

020,003,140,021 ,003, 162,114,142 

<238> 

405 

DATA 

038 ,003,140,039, 003 , 0BB ,162, 005 

<013> 

410 

DATA 

189,018,029,157,000,144,202,016 

<025> 

415 

DATA 

247 , 096 ,012, 038 ,151,044, 097 , 205 

<039> 

420 

DATA 

120,032,141 ,253,032,082,253,032 

<01B> 

425 

DATA 

249 , 253 , 032 , 024 , 229 , 032 , 091 , 228 

<0451 

430 

DATA 

162,024, 160,029,032, 138,254,032 

<0401 

435 

DATA 

242,028,169,014,032,210,255,141 

<0441 

440 

DATA 

015,144,169,001,141, 134,002,076 

<0451 

445 

DATA 

123,227 

<1581 

Llsting  » 

Longscreen«  für  den  VC  20. 
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C  16:  HELP 
und  TRACE 
verbessert 

Dieses  kleine  Programm  implemen¬ 
tiert  eine  wesentlich  erweiterte 
TRACE-Funktion.  Auch  HELP  wird  da¬ 
mit  um  einiges  übersichtlicher. 

Nachteilig  bei  der  bisherigen  Fehlersuche  durch  »HELP*  ist 
das  entnervende  Blinken  der  Fehlerstelle  und  aller  nachfolgen¬ 
den  Zeichen.  Eine  konzentrierte  Fehlersuche  ist  kaum  mög¬ 
lich.  Durch  die  Änderung  dieser  Routine  wird  die  Fehlerstelle 
fortan  nicht  mehr  blinkend,  sondern  in  reverser  Schreibweise 
ausgegeben  und  auch  nur  diese  einzige  Stelle,  nicht  mehr  die 
gesamte  Restzeile.  Der  Fehler  ist  somit  mit  einem  einzigen 
Blick  zu  erfassen. 

Das  C16-Tracing.mag  etwas  für  Leute  mit  Facettenaugen 
sein,  aber  wohl  nichts  für  die  Mehrzahl  der  Anwender.  In  der 
durch  dieses  Programm  erzeugten  neuen  Version  werden 
nicht  mehr  wild  die  abgearbeiteten  Zeilennummern  ausgege¬ 
ben,  sondern  die  gesamte  aktuelle  Programmzeile  gezeigt. 
Der  Befehl,  auf  dem  der  Programmzeiger  gerade  steht,  er¬ 
scheint  revers  geschrieben.  Nach  jeder  Zeilenausgabe  stoppt 
das  abzuarbeitende  Programm,  und  die  Trace-Routine  wartet 
auf  irgendeinen  Tastendruck. 

Danach  wird  die  angezeigte  Zeile  bis  zum  folgenden  Trenn¬ 
zeichen  ausgeführt.  Dieser  Vorgang  wiederholt  sich  bis  zum 
Programmende.  Der  Programmablauf  läßt  sich  wie  gewohnt  mit 
der  STOP-Taste  unterbrechen. 

Vor  allem  für  Basic-Anfänger  ist  dieses  verbesserte  Trace  ei¬ 
ne  wertvolle  Hilfe,  da  sich  das  Programm  bei  der  Ausführung 
von  Befehl  zu  Befehl  direkt  verfolgen  läßt. 

(Wolfgang  W.  Wirth/ev) 


100 

REM 

************************** 

110 

REM 

* 

* 

120 

REM 

* 

EXTENDED  HELP  &  TRACE 

* 

122 

REM 

* 

* 

124 

REM 

* 

C  16  /  C  116 

* 

130 

REM 

* 

* 

134 

REM 

* 

* 

140 

REM 

* 

BY  WOLFGANG  WIRTH 

* 

144 

REM 

* 

* 

150 

REM 

* 

THEODOR-HEUSS-RING 

* 

154 

REM 

* 

* 

160 

REM 

* 

6556  WOELLSTEIN 

* 

170 

REM 

* 

* 

180 

REM 

************************** 

190 

REM 

200 

REM 

220  ADRESSE=819: ANZAHL=8 

230  FDR  ZEILE=410  TG  760  STEP  10 

240  SUMME=0 

250  IF  ZEILE=760  THEN  ANZAHL=3 
260  FDR  SPALTE=1  TO  ANZAHL 
270  READ  BYTE* : BYTE=DEC (BYTE*) 

280  SUMME=SUMME+BYTE  AND  255 

290  POKE  ADRESSE, BYTE 

300  ADRESSE= ADRESSE+ 1 

310  NEXT 

320  READ  TEST* 

330  IF  SUMME=DEC ( TEST * )  THEN  360 
340  PR  TNT  "FEHLER  IN  7E I  LE  "  ;  7ETI  E 
350  FLAG=1 

360  NEXT  — 

370  IF  FLAG  THEN  END 
380  SYS  1082 
400  REM 

4 1 0  DAT A-38 , 66 , 53 ,  A0 , 03 , 84 , 49 , 84  ,  E5 
420  DAT A0F , 20 , 5F , A4 , A9 , 20 , A4 , 49 , E8 
430  DATA29 , 7F , 20 , B2 , 90 , C9 , 22 , D0 , C5 
440  DATA06 , A5 , 0F , 49 , FF , 85 , 0F , C8 , 5E 
450  DATAF0 , 09 , A2 , 00 , 86 , C2 , 24 , 53 , 5A 
460  DAT A10,19,A6, 60 , 98 , 18, 65, 5F, A3 
470  DATA90,01 ,EB,EC,F6,04,D0,0B,3A 
480  DATACD , F5 , 04 , 90 , 06 , F0 , 04 , 26 , 76 
490  DAT AC2 , 46 , 53 , 20 , D 1 ,04,F0,E3,23 
500  DATA 1 0 , C8 , C9 , FF , F0 , C4 , 24 , 0F , 87 
510  DAT A30 ,  C0  ,  A A ,  84 , 49  ,  A0',  Bl,  84 , 0C 
520  DATA23 , A0 , 8E , 84 , 22 , A0 , 00 , CA , 61 
530  DATA 1 0 , 0F , B 1 , 22 , 48 , E6 , 22 , D0 , 1 2 
540  DAT A02 , E6 , 23 , 68 , 1 0 , F4 , 30 , EF , 96 
550  DATACB , B 1 , 22 , 30 , 99 , 20 , B2 , 90 , C6 
560  DATAD0 , F6 , 60 , AE , EF , 04 , E8 , F0 , 9F 
570  DAT A 1 9 , AD , F0 , 04 , AC , F 1 ,04,85,E0 
580  DAT A 1 4 , 84 ,15, 20 , 3D , 8A , 90 , 0A , 2E 
590  DATA20, 3E, 90, A6, 14, A5, 15,20,82 
600  DATA33 , 03 , 4C , 3E , 90 , 20 , 73 , 04 , E7 
610  DAT A20 , D9 , 03 , 4C , DC , 8B , F0 , B3 , 22 
620  DAT A2C , EB , 02 , 10, 2E, 24, 81 , 10, 0C 
630  DAT A2 A , 48 , A4 , 3C , A6 , 3B , D0 ,01, 04 
640  DAT A8B , CA , 8E , F5 , 04 , 8C , F6 , 04 , 5F 
650  DAT A A5 , 39 , A4 , 3 A , 85 , 14,84, 15, EE 
660  DAT A20 , 3D , 8A , A6 , 1 4 , A5 , 1 5 , 20 , 7B 
670  DATA33 , 03 , 20 , 3E , 90 , 20 , DD , EB , 0C 
680  DATAF0 , FB , 68 , C9 , E A , F0 , 03 , 4C , 45 
690  DAT A3F , BC , 20 , 73 , 04 , 4C , AE , 03 , 5F 
700  DATAA2 , FF , 86 , 3A , 20 , 5A , 88 , 86 , E9 
710  DAT A3B , 84 , 3C , 20 , 73 , 04 , AA , F0 , 2C 
720  DAT AEF , 90 , 09 , 20 , 53 , 89 , 20 , 79 , 1 D 
730  DATA04 , 4C , D3 , 03 , 4C , 2E , B7 , A2 , C9 
740  DAT A03 , 8E , 09 , 03 , E8 , 8E , 03 , 03 ,19 
750  DAT AA2 , D0 , 8E , 08 , 03 , A2 , 1B,8E,56 
760  DAT A02 , 03 , 60 ,65 

READY. 
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C  64/VC  20 


Bücher 


Basic-Wegweiser 
für  den 

Commodore  64 

Hinter  diesem  eher  beschei¬ 
den  wirkenden  Titel  verbirgt 
sich  mehr  als  ein  bloßes  Remake 
des  C  64-Handbuchs,  wie  es  zur 
Zeit  leider  allzu  oft  in  der  nahezu 
unüberschaubaren  Fachbuch¬ 
landschaft  anzutreffen  ist.  Viel¬ 
mehr  bietet  dieses  im  Rahmen 
der  »Wegwciser«-Reihe  des 
Wiesbadener  Vieweg-Verlags 
erschienene  Buch  auf  244  Seiten 
einen  interessanten  Einstieg  in 
das  weite  Feld  der  Datenverar¬ 
beitung,  der  nicht  nur  dem  Laien 
einiges  Neue  vermitteln  mag 

Beginnend  mit  grundlegen¬ 
den  Begriffsklürungen  wie  »Was 
ist  Hardware,  Software,  Firmwa¬ 
re?«  oder  »Welche  Unterschiede 
gibt  es  zwischen  Großrechnern 
und  Mikrocomputern?«,  erläu¬ 
tert  Autor  Dr.  Ekkehard  Kaier 
dem  Leser  ausführlich  die  Funk¬ 
tion  von  Betriebssystem  und  An¬ 
wenderprogramm  und  stellt 
kurz  die  derzeit  wichtigsten  Pro¬ 
grammiersprachen  vor.  Auch 
auf  die  fundamentalen  Techni¬ 
ken  des  Anlegens  von  Pro¬ 
gramm-  und  Datenstrukturen 
wird  in  diesem  ersten  von  drei 
Abschnitten  des  Buches  einge¬ 
gangen.  Erst  nachdem  der  Be¬ 
nutzer  seinen  Computer  in  den 
Gesamtrahmen  der  Informatik 
einzuordnen  vermag,  wird  er 
von  Expertenhand  behutsam  in 
die  Welt  seines  C  64  geführt. 

Dies  macht  sich  der  zweite  Teil 
der  Lektüre  zur  Aufgabe,  an 
dessen  Anfang  eine  gründliche 
Einweisung  in  Tastatur.  Bild¬ 
schirm  und  Diskettengerät  steht. 
Anschließend  lernt  der  Leser 
anhand  kleiner  Beispielroutinen 
den  gesamten  Basic-Wortschatz 
seines  C  64  kennen  und  erstellt 
sein  erstes  Programm.  In  die¬ 
sem  Zusammenhang  wird  auch 
kurz  auf  die  Spracherweiterun- 
gen  Basic  4.0  und  Simons  Basic, 
sowie  auf  die  Kompatibilität  von 
C  64-Programmen  zu  Compu¬ 
tern  der  anderen  Commodore- 
Serien  hingewiesen.  Nach  dem 
Studium  dieses  zweiten  Ab¬ 
schnitts  sollte  der  Benutzer  sei¬ 
nen  C  64  selbst  bedienen  und 
einfache  Programme  erstellen 
können. 

Im  dritten  und  mit  128  Seiten 
weitaus  umfangreichsten  Tteil 
des  »Basic-Wegweisers«  erfolgt 
eine  gründliche  Einarbeitung  in 
die  Basic-Programmierung  des 
C  64.  Der  Einsatz  von  Folge-, 
Auswahl-,  Wiederholungs-  und 
Unterprogrammstrukturen,  das 
Suchen,  Sortieren  und  Mischen 
von  Daten  lehrt  den  Leser  syste¬ 
matisch  zu  programmieren.  Pro¬ 
bleme  der  Stringverarbeitung 
werden  hier  erörtert,  Wege  zur 
Behandlung  sequentieller  und 
Direktzugriffsdateien  aufge¬ 
zeigt.  Alle  theoretisch  erarbeite¬ 


ten  Inhalte  erhalten  durch  aussa¬ 
gefähige  Beispielprogramme 
praktischen  Bezug.  Bei  einem 
abschließenden  Ausflug  in  Si¬ 
mons  Basic  soll  sich  der  Benut¬ 
zer  mit  Musikprogrammierung, 
hochauflösender-  und  Sprite- 
grafik  vertraut  machen.  Un¬ 
glücklicherweise  ist  dieses  Ka¬ 
pitel  für  Nichtbesitzer  von  Si¬ 
mons  Basic  —  vermutlich  die 
Mehrzahl  der  Leser  gänzlich 
nutzlos. 

Von  diesem  geringfügigen 
Mangel  abgesehen,  präsentiert 
sich  mit  »Basic-Wegweiser  für 
den  Commodore  64«  ein  außer¬ 
gewöhnlich  klar  strukturiertes 
und  inhaltsstarkes  Buch,  von 
dem  selbst  bei  einem  Preis  von 
3b  Mark  nicht  nur  der  Verleger 
profitiert. 

Die  im  Buch  abgedruckten 
Lehrprogramme  können  gegen 
42  Mark  bei  Vieweg  auf  Diskette 
angefordert  werden.  (Jörg  Veit) 

Dr.  E.  Kaier.  Basic-Wegw6iser  furden  Cora- 
modore  64,  Vieweg  &  Sohn  Verlag  GmbH 
244  Seilen,  ISBN  3-528-04303-2,  36  Marl:, 

Dienstprogramme 
VC  20, 

Commodore  64 
und  Executive 

Im  Verlauf  der  letzten  12  Mo¬ 
nate  hat  es  sich  herumgespro¬ 
chen,  daß  Computerliteratur  ein 
Renner  auf  dem  Büchermarkt 
ist.  Das  hat  zu  allerlei  merkwür¬ 
diger.  »Buchblüten«  geführt:  Pa¬ 
pier  ist  geduldig!  Der  durch 
Schulbücher  und  wissenschaftli¬ 
che  Werke  renommierte  Vie- 
weg-Verlag  hat  die  Zeichen  der 
Zeit  erkannt.  Auf  einen  Vertrau¬ 
ensvorschuß  beim  Käufer  bau¬ 
end,  bietet  er  inzwischen  den  8. 
Band  seiner  Reihe  »Anwendung 
von  Mikrocomputern"  an,  wobei 
er  großzügig  auch  Homecompu¬ 
ter  wie  den  VC  20  oder  den 
Commodore  64  einschließt. 

Emst-Friednc'n  Remking  wen¬ 
det  sich  mit  diesem  Buch  sowohl 
an  den  »weniger  vorgebildeten« 
als  auch  an  den  »guten«  Pro¬ 
grammierer.  Tatsächlich  bietet 
er  auch  jedem  etwas: 

Ein  Drittel  des  Inhaltes  führt  m 
die  Assembler-Programmie¬ 
rung  ein.  Wer  allerdings  erwar¬ 
tet.  hier  auf  knapp  32  Seiten 
wirklich  Assembler-Program¬ 
mierung  lernen  zu  können,  muß 
enttäuscht  werden  Mehr  als  ei¬ 
ne  kleine  Gedächtnisstütze  ist 
auf  so  wenig  Platz  nicht  unlerzu 
bringen.  Ganz  nett  ist  die  Aufli¬ 
stung  der  Kernal-Routmen,  die 
jeweils  noch  mit  einem  kleinen 
Beispiel  gewürzt  sind. 

Danach  geht's  eist  richtig  los: 
Wem  noch  Utilities  wie  AUTO¬ 
NUMBER.  RENUMBER  (mit  GO¬ 
TO,  GOSUB, ...),  MERGE,  TRACE 
oder  SINGLE-STE?  in  seiner 
Programmsammlung  fehlen, 
der  findet  diese  Ergänzungen 


hier.  Und  das  in  Maschinenspra¬ 
che.  sauber  programmiert  und 
sehr  gut  erklärt.  Außerdem  fin¬ 
det  man  noch  eine  DUMP- Funk¬ 
tion  (für  die  einfachen  Varia¬ 
blen),  ein  Programm  zum  Her¬ 
vorheben  von  REM-Zeilen  und 
SEARCH,  was  erlaubt,  aus  ei¬ 
nem  Basic-Programm  beliebige 
Suchbegriffe  mit  Angabe  der 
Zeilennummei  herauszufinden. 
Die  Eingabe  des  Gesuchten  ist 
allerdings  etwas  eigentümlich: 
Eine  Zeile  0  mit  dem  Suchbegriff 
muß  vor  das  Basic-Programm 
gehängt  werden. 

Kritik  finden  muß  auch  eine 
ziemlich  unsinnige  Routine,  die 
sich  etwas  hochtrabend  »+/- 
Scrolling«  nennt,  aber  nichts  wei¬ 
ter  tut,  als  ein  Programm  auf 
reichlich  unbequeme  Weise  Zei¬ 
le  für  Zeile  zu  listen. 

Und  weil  gerade  das  Negative 
dran  ist:  Warum  kann  Reinking 
die  an  sich  ganz  nützlichen  Sor¬ 
tierroutinen  HEAPSORT  nicht 
auch  in  Maschinensprache  an¬ 
bieten?  In  Basic  sind  sie  wirklich 
zu  langsam!  Außerdem  ist  es  ein 
Jammer,  daß  ei  gerade  hier  von 
der  Praxis  alles  sehr  deutlich  zu 
erklären  abweicht  und  den  Le 
ser  mit  einem  etwas  undurch¬ 
schaubaren  Flußdiagramm  ab¬ 
speist.  Durch  ein  Programm 
»Sortiertes  Directory«  (in  Basic) 
und  ein  weiteres,  »Unscratch«, 
welches  —  zwar  auch  langsam, 
weil  in  Basic  —  versehentlich  ge¬ 
löschte  Fües  auf  der  Diskette 
wieder  herstellt,  wird  man  aller¬ 
dings  ganz  gut  entschädigt.  Ein 
»UNNEW«,  durch  das  mittels 
NEW  oder  Reset  gelöschte 
Basic-Programm  vom  Interpre¬ 
ter  wiedergefunden  werden,  ei¬ 
ne  Hardcopy-Routine,  die  den 
Inhalt  des  normalen  Bildschir¬ 
mes  per  Drucker  für  die  Nach¬ 
welt  fixiert  (allerdings  mit  ande¬ 
rem  Zeilenabstand,  was  sich  bei 
Grafiken  nachteilig  auswirk;) 
fehlen  ebensowenig  wie  ein 
kleiner  Disassembler  (ebenfalls 
in  Basic). 

Alle  Programme  sind  sowohl 
für  den  VC  20,  als  auch  den  C  64 
und  den  Executive  (SX  64)  aus¬ 
gelegt.  Lediglich  zwei  wurden 
speziell  auf  den  VC  20  zuge¬ 
schnitten:  Ein  Hardcopy-Pro 
gramm,  das  einen  selbstdefi¬ 
nierten  Zeichensatz  mitberück¬ 
sichtigt  und  ein  Programm  zum 
Zeichnen  von  Funktionen  auf 
dem  Bildschirm,  was  alle  VC 
20-Besitzcr  ohne  Supererweite¬ 
rung  freuen  wird.  Im  Anhang  fin¬ 
det  sich  noch  eine  Lisxe  von  nütz¬ 
lichen  Interpreter- Routinen.  Lei¬ 
der  kann  man  aber  ohne 
ROM-Listing  nicht  viel  damit  an 
fangen:  Es  fehlen  alle  Angaben 
darüber,  wie  man  Parameter 
übergibt  oder  Ergebnisse  ab¬ 
ruft. 

Resümee:  Ein  trotz  der  ge 
schilderten  Kritik  empfehlens¬ 
wertes  Buch  für  den  fortge¬ 
schrittenen  Anfänger,  der  aus 


den  vorgestellten  Assembler- 
Routinen  viel  lernen  kann. 

(Heimo  Ponnath) 

Info:  Ernst  Friedrich  Reinking.  Dienstpro¬ 
gramme  VC  20.  Commodore  64  und  Execu¬ 
tive,  Vieweg  &  Sohn  1984.  ISBN 
3-S28-04 299-0,  26,80  Mark 

Grafik  auf  dem 
Commodore  64 

Geht  man  in  eine  Buchhand¬ 
lung  und  blickt  in  die  Sammlung 
von  Büchern  über  den  Commo¬ 
dore  64,  so  sieht  man  auf  den  Ti¬ 
teln  immer  wieder  zwei  Wörter: 
Basic  und  Grafik. 

Mit  letzterem  beschäftigt  sich 
eine  Veröffentlichung  des  durch 
seine  Schulbücher  bekannten 
Westermann-Verlags. 

In  »Grafik  auf  dem  C  64«  wird 
allerdings  nicht,  wie  schon  öf¬ 
ters  geschehen,  erklärt,  wie 
man  selbige  mit  viel  POKEs  und 
Tricks  auf  die  heimische  Matt¬ 
scheibe  bekommt.  Vielmehr  be¬ 
schäftigt  es  sich  mit  den  vielfälti¬ 
gen  Anwendungsmöglichkeiten 
der  Grafikbefehle  von  Simons 
Basic. 

Und  so  wimmelt  es  denn  auf 
den  vorliegenden  210  Seiten  nur 
so  von  Programmbeispielen. 
Dabei  sind  unter  anderem  ein 
hervorragender  Funktionsplot¬ 
ter,  der  allerdings  noch  einiges 
mehr  kann,  oder  ein  Programm 
zum  Zeichnen  dreidimensiona¬ 
ler  Funktionen  ohne  die  soge¬ 
nannten  »verdeckten  Linien«. 

Doch  bei  alledem  kommt  auch 
die  Theorie  nicht  zu  kurz.  So  er¬ 
fährt  man  beispielsweise  wie 
man  Kurven,  also  nicht  einfach 
Kreise  oder  Ellipsen,  sondern 
beliebig  gekrümmte  verschlun¬ 
gene  Gebilde  nach  dem  Bezier- 
Verfahren  zeichnen  kann,  oder 
wie  man  ein  Niveaulinienbild  ei¬ 
ner  dreidimensionalen  Funktion 
erhält.  Manchmal  wird  aller¬ 
dings  über  das  Ziel  hinausge¬ 
schossen,  wenn  es  um  Differen¬ 
tialgleichungen  oder  gar  Diffe¬ 
rentialgleichungssysteme  geht. 
Hier  ist  zum  genauen  Verständ¬ 
nis  schon  ein  gehöriger  Schuß 
Oberstufenmathematik  notwen¬ 
dig.  Insgesamt  gesehen  ist  das 
Buch  doch  recht  mathematisch 
gehalten,  aber  immer  noch  ganz 
gut  lesbar. 

Zu  erwähnen  wäre  vielleicht 
noch,  daß  natürlich  alle  Pro¬ 
grammbeispiele  erklärt  wer¬ 
den.  Sogar  der  Befehlssatz  von 
Simons  Basic  wird,  sofern  er  die 
Grafik  betrifft,  verständlich  ge¬ 
macht. 

Ein  klares  Fazit:  Empfehlens¬ 
wert  für  jeden,  der  Grafik  nicht 
nur  verstehen,  sondern  auch 
ausnutzen  möchte. 

(Boris  Schneider) 

Walter  Bachmann.  Grafik  auf  dem  C  64 
Westeimann-Verlag  1684.  204  Seilen,  ISBN 
3-14-508811-4,  39  Mark. 
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Tips  &  Tricks 


Fehlerteufel 


Einige  POKEs  für  den  VC  20 


Im  folgenden  ist  X  immer  eine  Zahl  zwischen  0  und  255. 

POKE  36865, X:  Zentriert  den  Bildschirm  in  vertikaler  Rich¬ 
tung.  Man  kann  dadurch  den  Bildschirm  nach  oben  oder  unten 
verschieben.  Der  Normalzustand  wird  mit  X=38  erreicht. 

POKE  36864, X:  Dieser  Befehl  ist  für  die  horizontale  Bild¬ 
zentrierung  zuständig.  Er  verschiebt  den  Bildschirm  nach  links 
oder  rechts.  Der  Normalwert  ist  X=12. 

POKE  37879.X:  Mit  diesem  Befehl  wird  die  interne  Uhr  des 
VC  20  beeinflußt.  Man  kann  sie  schneller  oder  langsamer  lau¬ 
fen  lassen.  Die  letzte  Möglichkeit  ist  besonders  beim  LISTen 
interessant.  Drückt  man  nämlich  bei  verlangsamtem  Zeitgeber 
zusätzlich  noch  die  CTRL-Taste,  dann  kann  man  sich  einzelne 
Zeilen  fast  beliebig  lange  betrachten.  POKE  37879,72  stellt 
den  Normalzustand  wieder  her.  (Detlef  Krischak) 


Basic-Programme  retten 


Die  Betriebssystemroutine  »Angleich  von  Koppeladressen« 
ab  Adresse  42291  ermöglicht  ein  schnelles  und  einfaches 
»UNNEW«  nach  einem  versehentlichen  »NEW«  oder  Reset: 
POKE  2049,1  :  POKE  2050,1  :  SYS  42291 
Danach  kann  zumindest  wieder  geLISTet  werden.  Ein  vollstän¬ 
diges  »UNNEW«  verlangt  allerdings  die  Korrektur  der  Zeiger 
auf  den  Beginn  der  Variablen  und  Felder.  Dazu  wäre  die  Kennt¬ 
nis  der  Programmlänge  notwendig.  Man  kann  sich  aber  behel¬ 
fen,  indem  man  das  Programm  notfalls  in  Teilen  auf  dem  Bild¬ 
schirm  auf  LISTet  und  die  einzelnen  Zeilen  mit  der  RETURN- 
Taste  neu  übernimmt.  (Gerhard  Wagner) 


Spezialeffekt 


Wenn  man  beim  C  64  in  die  Speicherstelle  53270  Werte 
zwischen  0  und  15  schreibt  (POKE  532 70, x),  kann  man  den 
Bildschirm  um  bis  zu  sieben  Bildpunkte  nach  links  oder  rechts 
scrollen  lassen.  Ist  x  kleiner  als  8,  dann  scrollt  der  Bildschirm¬ 
ausschnitt  um  x  Bildpunkte  nach  links,  sonst  um  x-8  Bildpunk¬ 
te  nach  rechts. 

POKE  53270,8  stellt  den  Normalzustand  wieder  her. 

Dieser  Trick  läßt  sich  gut  bei  Action-Spielen  als  optische  Un¬ 
termalung  beispielsweise  einer  Explosion  einsetzen. 

(Michael  Keukert) 


In  C  64-Spielen  gePOKEt 


Hier  sind  einige  interessante  POKE-Befehle,  mit  denen  man 
jeden  Highscore  überbieten  kann.  Doch  Vorsicht,  diese  Be¬ 
fehle  funktionieren  nicht  bei  allen  Versionen  dieser  Spiele. 

*  Fort  Apocalypse:  »POKE  14697,0  :  POKE  14760,0 :  POKE 
36366,0«.  Danach  hat  man  beliebig  viele  Hubschrauber,  ei¬ 
nen  unendlichen  Treibstoffvorrat,  und  der  Bonus  wird  nie  er¬ 
niedrigt. 

*  Hunchback:  »POKE  9521,234  :  POKE  9522,234  :  POKE 
9523,234«.  Hier  hat  man  unendlich  viele  Helden  zur  Verfü¬ 
gung. 

*  Neptune:  »POKE  7870,60«.  Mit  diesem  POKE  hat  man  auf 
einen  Schlag  60  Taucher. 

*  Jungle  Hunt:  »POKE  2242,234  :  POKE  2243,234«  Der 

Held  hat  unendlich  viele  Leben.  (Frank  Bastian) 


Fehlerteufelchen 


Nachdem  es  nach  Erscheinen 
der  Ausgabe  4/85  des  64'er  Ma¬ 
gazins  einige  Tage  verdächtig 
ruhig  blieb  (hatte  das  Fehlerteu¬ 
felchen  Urlaub  genommen?), 
zerrann  die  Hoffnung  auf  eine 
fehlerfreie  Ausgabe  dann  doch 
noch.  Hier  die  Korrekturen: 


Epson  bedruckt  Ostereier,  Ausgabe 
4/85,  Seite  50 

Die  meisten  Leser  haben  er¬ 
kannt,  daß  es  sich  bei  diesem 
Artikel  um  unseren  Beitrag  zum 
1.  April  handelte.  Alle  Anfragen 
bezüglich  des  Bausatzes  oder 
Abänderungen  für  Orangen 
oder  Kieselsteine  sind  daher  lei¬ 
der  negativ  zu  beantworten. 


11  neue  Einzeiler,  Ausgabe  4/85, 

Seite  153 

Beim  Einzeüer  »Zeilen  löschen 
am  Bildschirm«  muß  es  in  Zeile 
50  POKE  781, ZN  heißen. 

Der  Einzeiler  »Zugriffszeit  der 
Floppy  verkürzen«  bringt  wegen 
des  Funktionsprinzips  bei  se¬ 
quentiellen  Dateien  natürlich 
keinen  Geschwindigkeitsge¬ 
winn. 


xBasic  64,  Ausgabe  4/85,  Seite  52 

Aufgrund  einer  Vertauschung 
paßt  die  abgedruckte  Befehls¬ 
erklärung  in  einigen  Punkten 
nicht  zu  dem  Programm.  Folgen¬ 
de  Änderungen  ergeben  sich 
dadurch: 

Beim  Befehl  HRG  entfallen  die 
Parameter  x  und  y. 

Der  Befehl  »TEXT«  muß  heißen 
»NRM«.  Der  Befehl  »NEGATE« 
muß  heißen  »INVERS«.  Der  Be¬ 
fehl  »1 N  VERS«  wird  ersetzt  durch 
»RESET«. 

Syntax:  RESET  (x,y).  Es  gilt  das 
unter  SET  gesagte,  jedoch  wird 
der  Punkt  gelöscht 
Der  Befehl  »AT«  muß  heißen 
@  PRINT. 

Syntax:  @  PRINT  s,z,  "Ttext" 
oder  @  PRINT  s,z, Variable. 

Hinzu  kommt  der  Befehl  ROM. 
Effekt:  Nach  Ausführung  dieses 
Befehls  holt  sich  der  Computer 
die  Bitmuster  für  die  Zeichen¬ 
darstellung  wieder  aus  dem 
ROM. 

Die  Befehle  KILL,  DELETE, 
AUTO,  DOKE  aus  Tabelle  1  ha¬ 
ben  in  der  abgedruckten  Ver¬ 
sion  keine  Bedeutung. 


SMON  -  Teil  5,  Ausgabe  4/85,  Seite  64 

Punkt  4,  Seite  67,  ist  leider 
falsch.  Es  muß  beim  Verschie¬ 
ben  der  »LDY  #CF«  in  Adresse 
$9f71  in  »LDY  #9F«  geändert 
werden. 

Unter  Punkt  5  ist  der  Bereich 
falsch  angegeben.  Es  muß  na¬ 
türlich  »M  9FD8  9FE4«  eingege¬ 
ben  werden,  sonst  wird  der  alte 
und  nicht  der  neue  SMON  geän¬ 
dert.  Unangenehmer  ist  ein  Pro¬ 
grammfehler:  Beim  Einlesen  ei¬ 
nes  Blocks  wird  das  letzte  Byte 
nicht  (!)  in  den  Speicher  über¬ 
nommen,  wohl  aber  beim  Zu¬ 
rückschreiben  ein  zufälliger 
Wert  als  256.  Byte.  Abhilfe: 

Zwei  Befehle  müssen  mit 
■NOP»  überschrieben  worden. 
Zuerst  mit  SMON  »O  CED8 
CEDC  EA«  eingeben,  dann  das 
Programm  mit»S  ”  :SMON  $C000 
DOOO«  wieder  abspeichern. 


Basic-Programme  auf  Trab  gebracht  — 
Compiler  im  Test,  Ausgabe  2/85, 

Seite  38 

Die  vollständige  Adresse,  un¬ 
ter  der  der  Petspeed  bestellt 
werden  kann,  lautet. 

Infotromk,  Dipl.  Ing.  Rolf  Dah¬ 
len,  Birkenstr.  40,  4100  Duisburg 
17. 

Durch  die  fehlende  Oriskenn- 
zahl  waren  einige  Briefe  etwas 
länger  unterwegs,  als  dies  nor¬ 
malerweise  üblich  ist. 


Text  gut  im  Griff,  Ausgabe  4/85, 

Seite  38 

Die  einzelnen  Bewertungen 
des  Textverarbeitungspro¬ 
gramms  »Protext  64«  von  S  +  S 
Soft  bezogen  sich  auf  Angaben 
des  Herstellers.  Die  mit  »Ja«  be¬ 
antworteten  Kriterien  sind  des¬ 
halb  mit  Vorsicht  zu  genießen. 
Es  entsteht  der  Eindruck,  daß 
dieses  9,80  Mark-Programm  mit 
wesentlich  teureren  konkurrie¬ 
ren  könnte.  Ein  Ttest  in  einer  der 
nächsten  Ausgaben  wird  dies 
klarstellen. 
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conpuTER-nmr 

_ £•„  .  . 

Wollen  Se  einen  gebrauchten  Computer  verkaufen  oder  erwerben?  Suchon  Sie  Zubohbr?  Haben  Sie 
Software  anzu bieten  oder  suchen  Sie  Programme  oder  Verbindungen?  Der  COMPUTER-MARKT  von 
>64er<  botet  allen  Conputerfnns  die  Gelegenheit,  tür  nur  5,—  DM  eine  private  Kleinanzeige  mit  bis 
zu  5  Zeilen  Text  in  der  Rubrik  Ihrer  Wahl  autzugeben.  Und  60  kommt  Ihre  private  Kleinanzeige  in  den 
COMPUTER-MARKT  der  Juni-Ausgabe  (erscheint  am  1  f.  Mai  8b).  Schicken  Sie  Ihlen  Anzeigenlexl 
bis  zum  19.  April  85  (Eingangsdatum  beim  Vaiiag)  an  •64e.-<.  Später  eingehende  Aulträgo  -worden 
in  der  Juli-Ausgabe  (erscheint  am  14.  Juni  85)  veröttentlicht. 

Am  basten  verwenden  Sie  dazu  die  vorbereitete  Auftrogskarte  am  Anfang  des  Heftes. 

Bitte  beachten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zeilen  mit  je  32  Buchstaben  betragen. 

Llburwulaon  Sie  den  Anzeigenpreis  von  DM  5  — auf  das  Postscheckkonto  Nr  14199-803  beim  Post¬ 
scheckamt  mit  dem  vermerk  >Markt  5  Technik  64eri  oder  schicken  Sie  uns  DM  5  —  als  Scheck  oder 
in  Bargeld.  Der  Verlag  behalt  sich  die  Veröffentlichung  längerer  Texte  vor.  Kleinanzeigen,  die  entspre¬ 
chend  gekennzeichnet  sind,  oder  deren  Text  auf  eine  gewerbliche  Tätigkeit  schließen  :äßt,  werden 

In  der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum  Preis  von  DM  11,— je  Zeile  Text  veröffentlicht. 

Private  Kleinanzeigen  Private  Kleinanzeigen 

Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private 


Private  Kleinanzeigen 


Private  Kleinanzeigen 


Private  Kleinanzeigen 


I 
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onpuTER-nmr 


Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 


Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 


Private 


i 

j 


I 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Private  Kleinanzeigen  Private  Kleinanzeigen 
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Der  Ada-Trainingskurs  auf  dem  C  64 


Ada  wurde  im  Jahre  1975  vom  amerikanischen 
Verteidigungsministerium  in  Auftrag  gegeben,  um 
die  Schwierigkeiten  und  die  hohen  Kosten  in  den 
Grift  zu  bekommen,  welche  durch  die  Vielfalt  kon¬ 
kurrierender  Programmmiersprachen  entstanden 
sind.  Jetzt  gibt  es  auch  auf  dem  C  64  die  Möglich¬ 
keit,  mit  dieser  modernen  Sprache  zu  arbeiten. 


ur  einige  wenige  Program¬ 
miersprachen  —  sogenannte 
Hochsprachen  —  haben  eine 
weite  Verbreitung  gefunden.  Cobol 
in  der  Wirtschaft,  Fortran  und  Pascal 
in  der  Naturwissenschaft  und  Basic 
in  der  Home-Computerei. 

Im  riesigen  Anwendungsgebiet 
der  Industrie  und  Technik  aber  sind 
Hochsprachen  selten  zu  finden. 

Warum?  Nun,  die  meisten  für 
Steuerungen  eingesetzten  Compu¬ 
ter  sind  nur  mit  einer  bestimmten 
Hochsprache  ausgestattet,  die  aber 
spezielle  Eigenschaften  des  Com¬ 
puters  oft  nicht  oder  nur  umständ¬ 
lich  ausnutzt.  Eine  solche  Hochspra¬ 
che  ist  daher  für  diese  Zwecke  in 
der  Regel  nicht  genügend  effizient, 
zu  langsam  und  zu  aufwendig  im 
Speicherbedarf. 

Industrie-Programmierer  greifen 
deshalb  viel  lieber  auf  Assembler¬ 
sprachen  zurück,  mit  dem  Ergebnis, 
daß  Programme  nicht  auf  andere 
Computer  übertragbar  sind,  mei¬ 
stens  nur  vom  Autor  selber  verstan¬ 
den  und  verbessert  und  nicht  zu  grö¬ 
ßeren  Programmblöcken  zusam¬ 
mengefügt  werden  können. 

Selbst  dann,  wenn  Programmie¬ 
rer  die  gleiche  Hochsprache  benut¬ 
zen,  müssen  sie  oft  den  Umgang  mix 
neuen  Betriebssystemen  und  ande¬ 
ren  Programmentwicklungsmitteln 
lernen,  beispielsweise  Ifexl-Edilo- 
ren,  Grafiksysteme,  Konfigurations¬ 
kontrollen  und  Fehlersuchhüfen. 
Schließlich  sind  Programme,  die  es 
gestatten,  von  einem  System  in  ein 
anderes  zu  übersetzen,  sehr  auf¬ 
wendig  und  teuer,  genauso  wie  das 
Um-  und  Dazulemen  der  Program¬ 
mierer. 

Kein  Wunder  also,  daß  ein  so  gro¬ 
ßer  Auftraggeber  und  Selbstver¬ 
braucher  von  Software  wie  das  Ver¬ 
teidigungsministerium  in  den  USA 
eine  Hochsprache  forderte,  die  alle 
diese  Mängel  abstellen  sollte.  Ganz 
nebenbei  sollte  diese  Sprache  stark 
strukturiert  sein,  eine  einfache  Feh¬ 
lerbehandlungermöglichen,  mit  un¬ 
terschiedlicher  Hardware  Zusam¬ 
menarbeiten  und  schließlich  auch 
noch  die  parallele  Bearbeitung  von 
Prozessen  erlauben. 

Die  Antwort  auf  diese  Herausfor¬ 
derung  ist  Ada:  eine  neue  Standard¬ 
sprache,  die  alle  anderen  Hoch¬ 
sprachen  ablösen  soll. 

Um  das  zu  erreichen,  oder  besser 
gesagt,  um  zu  verhindern,  daß  Ada 
auch  nur  wieder  eine  Hochsprache 


von  vielen  wird,  wurden  die  begab¬ 
testen  Sprachexperten  aus  Wissen¬ 
schaft  und  Industrie  zur  Entwick¬ 
lung  herangezogen.  Diese  Entwick¬ 
ler  haben  der  Sprache  Ada  viele  er¬ 
probte  und  bewährte  Elemente  an¬ 
derer  Hochsprachen  einverleibt, 
mit  dem  Ziel,  »modern  Software 
practices«,  das  heißt  also,  moderne 
Methoden  der  Software-Entwick¬ 
lung  zu  ermöglichen. 

Das  Ada-Konzept 

Die  prinzipiellen  Eigenschaften 
von  Ada  lassen  sich  in  mehreren 
Gruppen  zusammenfassen: 

1.  Definition  von  Datentypen,  wie: 

TAGE _ IM_MONAT:  INTEGER 

RANGE  20.. 31; 

erzeugt  hier  eine  Variable  mit  dem 
Namen  »TAGE _ IM _ MONAT«,  wel¬ 

che  nur  die  ganzzahligen  Werte  von 
20  bis  31  annehmen  kann.  Damit 
kann  der  Programmierer  seine  ei¬ 
genen  Datentypen  erfinden  und  sie 
dann  zur  Benennung  von  Variablen 
hernehmen, 

Die  Datentypen  können  auch  ihre 
eigenen  Werte  explizit  benennen, 
wie  zum  Beispiel: 

TYPE  MONAT  IS  (JAN,FEB,MAR, 
APR); 

DER  BESTE  MONAT  :  MONAT; 
Dann  kann  man  schreiben: 

IF  DER _ BESTE _ MONAT  =  APR 

THEN  .... 

Diese  Eigenschaft  von  Ada  erhöht 
nich  nur  die  Lesbarkeit,  sondern  er¬ 
leichtert  es  dem  Programmierer, 
die  Übersicht  zu  behalten  und  er¬ 
laubt  anderen  Leuten,  das  Pro¬ 
gramm  zu  verstehen. 

2.  Das  Konzept  der  Programmstruk¬ 
tur  stellt  Befehle  wie  IF..THEN.. EL¬ 
SE. .ENDIF  und  CASE..WHEN..END- 
CASE  zur  Verfügung,  welche  zusam¬ 
men  mit  der  Schleifenbildung  jeden 


logischen  Programmfluß  ohne  GO¬ 
TO  zulassen. 

3.  Um  zu  erreichen,  daß  mehrere 
Leute  Programmteile  schreiben 
können,  die  später  zusammenfüg- 
bar  sind,  hat  ein  Programm  getrenn¬ 
te  Merkmale  »nach  außen«  (specifi- 
cation)und  »nach  innen«  (body).  Zum 
Beispiel  kann  ein  Programmierer 
ein  Programm  zur  Quadratwurzel 
schreiben.  Die  »specification«  defi¬ 
niert  genau,  was  andere  Benutzer 
wissen  müssen  (welche  Angaben  es 
braucht  und  welche  Angaben  es  lie¬ 
fert).  Im  »body«  können  Methoden 
und  Formeln  verwendet  werden, 
die  niemanden  außer  den  Autoren 
selbst  interessieren. 

4.  Ada-Programme  bestehen  aus 
»Paketen«,  das  heißt  sie  sind  block¬ 
strukturiert.  In  einem  Paket  sind  be¬ 
liebige  Daten  und  Anweisungen  zu¬ 
sammengefaßt,  die  eine  ganz  be¬ 
stimmte  Aufgabe  erfüllen.  Ein  Paket 
kann  in  verschiedenen  Systemen 
verwendet  werden.  Es  ist  letztend¬ 
lich  möglich,  Software-Pakete  ge¬ 
nauso  in  bestehende  Systeme  »ein¬ 
zustecken«,  wie  man  das  heute  mit 
integrierten  Chips  macht. 

5.  Schließlich  soll  Ada  auch  Multitas¬ 
king  erlauben.  Darunter  versteht 
man  die  Möglichkeit,  mehrere  Pro¬ 
grammteile  gleichzeitig  und  unab¬ 
hängig  voneinander  ablaufen  zu  la¬ 
sen  und  sie  nur  an  ganz  bestimmten 
Stellen  zusammenzubinden. 

Soviel  zur  Sprache  Ada  selbst. 
Was  aber  ist  der  Stand  der  Entwick¬ 
lung  heute? 

Ada  wird  jetzt  gerade  eingeführt, 
aber  nicht  nur  vom  Militär  und  nicht 
nur  in  den  USA. 

Europäische  Aktivitäten  konzen¬ 
trieren  sich  auf  Frankreich, 
Deutschland,  Finnland  und  Groß¬ 
britannien.  Es  haben  sich  schon 
User-Groups  gebildet,  Universitä¬ 
ten  beschäftigen  sich  mit  Anwen¬ 
dungsstudien  und  viele  Organisatio- 
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nen  bemühen  sich  um  die  Entwick¬ 
lung  von  Lehr-  und  Trainingspro¬ 
grammen. 

Eins  haben  alle  diese  Aktivitäten 
gemeinsam:  sie  beziehen  sich  aus¬ 
schließlich  auf  große  und  mittlere 
Computeranlagen  und  beschrän¬ 
ken  auf  diese  Weise  den  Zugang  zu 
Ada  nur  auf  den  exklusiven  Kreis 
der  Profis. 

Ada  auf  dem  C  64 

In  dieser  Situation  bildet  der  Ada- 
Trainingskurs  für  den  C  64  von  Data 
Becker  eine  hochzulobende  Aus¬ 
nahme,  denn  er  führt  erstmalig  Ada 
in  die  Well  der  Home-Computer  ein. 
Der  Trainingskurs  besteht  aus  ei¬ 
nem  Handbuch  und  einer  Pro¬ 
grammdiskette,  mit  deren  Hilfe  Ada 
so  erklärt  wird,  daß  komplette  Pro¬ 
gramme  in  dieser  Sprache  ge¬ 
schrieben  werden  können. 

Die  Programmdiskette  enthält  fünf 
Programme: 

—  einen  Editor 

—  einen  Syntax-Prüfer 

—  einen  Semantik-Prüfer  plus  Code- 
Generator 

—  einen  Assembler  (Übersetzer) 

—  einen  Disassembler 

Für  einen  Hobby-Programmierer, 
der  nur  Basic  kennt,  ist  das  sehr  ver¬ 
wirrend.  Aber  ich  bitte  zu  beden¬ 
ken,  daß  auch  Basic  nicht  einfach  so 
abläuft,  wenn  »RUN«  eingetippt 
wird,  sondern  daß  jede  Basic-Zeile 
vom  Computer  intern  in  einen  kom¬ 
plizierten  Vorgang  analysiert  wer¬ 
den  muß.  Dieser  Analyse-Vorgang 
ist  in  den  Commodore-Computern 
fest  eingebaut.  Für  Ada  muß  der 
Trainingskurs  einen  entsprechen¬ 
den  Übersetzer  separat  zur  Verfü¬ 
gung  stellen  —  eben  den  oben  auf¬ 
gelisteten  Code-Generator  und  den 
Assembler. 

Außerdem  ist  jedem  Basic-Pro- 
grammierer  geläufig,  daß  der  Rech¬ 
ner  merkt,  wenn  ein  Befehl  falsch 
geschrieben  worden  ist,  ein  Komma 
fehlt  oder  in  einer  Zeile  sonst  irgend 
ein  Fehler  gemacht  worden  ist.  Die 
nicht  immer  verständlichen  engli¬ 
schen  Fehlermeldungen  sind  ja  oft 
genug  Grund  zur  Frustration. 

Diese  Überprüfung  besorgt  beim 
Ada-Trainingskurs  das  Syntax-  und 
das  Semantik-Prüfprogramm,  wel¬ 
che  auf  Einhaltung  der  Rechtschrei¬ 
bung  und  der  Grammatik  von  Ada 
achten. 

Der  Editor  steht  genau  wie  bei  Ba¬ 
sic  am  Anfang  aller  Aktivitäten.  Bei 
Basic  denken  wir  nicht  lange  nach 
und  nehmen  es  als  gegeben  hin, 
daß  wie  per  Tastatur  Zeichen,  Zah¬ 
len  und  Texte  schreiben  und  einge¬ 


ben  können,  daß  der  Cursor  bewegt 
werden  kann  und  daß  uns  alle  mög¬ 
lichen  Steuerlasten  zur  Verfügung 
stehen.  Das  eingebaute  Betriebssy¬ 
stem  stellt  uns  diese  Editor-Funktion 
zur  Verfügung. 

Für  Ada  muß  das  alles  extra  ge¬ 
macht  werden  und  dazu  dient  das 
Editor-Programm . 

Der  Disassembler  schließlich  ist 
ein  Luxus,  der  zusätzlich  zum  As¬ 
sembler  angeboten  wird,  für  ein 
Ada-Programm  aber  nicht  unbe¬ 
dingt  benötigt  wird.  Soviel  sei  zur 
Programmdiskette  gesagt. 

Meine  Meinung  über  das  Hand¬ 
buch  ist  zweigeteilt.  Einerseits  finde 
ich  die  Einführung  in  Ada  und  die 
Programmierung  sehr  gelungen, 
verständlich  und  gut  lesbar.  Die 
Übungsbeispiele  sind  klar  doku¬ 
mentiert  und  erläutert. 

Andererseits  aber  sind  die  An¬ 
weisungen,  wie  die  Übersetzungs¬ 
programme  zu  bedienen  sind,  ver¬ 
mischt  mit  einer  sehr  detaillierten 
Beschreibung  der  Arbeitsweise 
eben  dieser  Programme,  die  nur  für 
Fachleute  verständlich  ist.  Das  hat 
zur  Folge,  daß  der  Ada-Anwender, 
der  sich  nur  für  die  Sprache  selbst 
interessiert,  in  Erklärungen  ertrinkt, 
welche  für  das  Verständnis  und  die 
Anwendung  von  Ada  allein  nicht  not¬ 
wendig  sind. 

Ich  selbst  habe  mehrere  Abende 
gebraucht,  um  ein  erstes  kleines 
Ada-Programm  zum  Laufen  zu  brin¬ 
gen  und  dafür  —  ich  bin  so  frei  —  ge¬ 
be  ich  dem  Handbuch  die  Schuld. 

Zusätzlich  enthalten  die  Teilpro¬ 
gramme  einige  kleine  Unzuläng¬ 
lichkeiten,  auf  die  ich  im  folgenden 
noch  eingehe. 

Das  erste  Ada-Programm 

Zunächst  aber  möchte  ich  be¬ 
schreiben,  wie  man  zum  ersten  Ada- 
Erfolgserlebnis  kommt. 

Zuerst  wird  der  Editor  geladen.  Er 
meldet  sich  nach  kurzer  Ladezeit 
von  selbst  und  muß  nicht  —  wie  im 
Handbuch  beschrieben  mit 
»RUN«  gestartet  werden. 

Der  Editor,  und  noch  viel  mehr  die 
anderen  Programmteile,  haben  zum 
Teil  ziemlich  lange  Ladezeiten,  die 
weder  im  Text  noch  auf  dem  Bild¬ 
schirm  angekündigt  werden.  So  ist 
man  häufig  im  Zweifel,  ob  man  noch 
warten  soll,  oder  ob  das  Programm 
abgestürzt  ist.  was  leider  zuweilen 
auch  vorkommt. 

Erfreulich,  weil  leicht  verständlich 
und  übersichtlich,  sind  die  verschie¬ 
denen  Menüs. 

Abgesehen  von  anfänglichen 
Farbeinstellungen  zeigt  das  Editor- 


Menü  die  Befehle  für  zwei  Aktions¬ 
gebiete  an: 

—  Schreiben  beziehungsweise  An¬ 
dern  des  Ada-Programmtextes 

—  Weiterverarbeiten  des  Ada- 
Programms,  Ein-  und  Ausgabe 

Beide  Befehlssätze  bedienen  sich 
der  Funktionstasten.  Da  jede  Funk¬ 
tionstaste  dadurch  zwei  Bedeutun¬ 
gen  hat,  muß  der  Lernende  am  An¬ 
fang  ziemlich  oft  die  Menüs  aufru- 
fen,  um  seinem  Gedächtnis  auf  die 
Sprünge  zu  helfen. 

Der  Editor 

Das  Schreiben  und  Ändern  ver¬ 
fügt  über  sehr  komfortable  Hilfsmit¬ 
tel,  wie  automatische  Zeilennume¬ 
rierung,  Einfügen  von  Zeilen,  vor- 
und  rückwärts. 

Ein  Programm,  auch  ein  unferti¬ 
ges,  kann  mit  dem  zweiten  Befehls¬ 
satz  ausgedruckt  oder  auf  Diskette 
abgespeichert  werden.  Ein  abge¬ 
speichertes  Programm  ist  von  Dis¬ 
kette  wieder  ladbar,  Überhaupt  ste¬ 
hen  alle  gängigen  Anweisungen  an 
die  Diskettenstation  zur  Verfügung. 

Wenn  man  schließlich  glaubt,  daß 
ein  Programm  fertig  und  natürlich 
fehlerfrei  ist,  wird  es  zum  Überset¬ 
zen  geschickt. 

Die  entsprechende  Funktionsta¬ 
ste  zaubert  neue  Anweisungen  auf 
den  Bildschirm,  welche  abfragen, 
ob  man  wirklich  übersetzen  will  und 
wenn  ja,  ob  das  Programm  zu  aller¬ 
erst  abgespeichert  werden  soll.  Die 
erste  Frage  bietet  eine  belächelba¬ 
re,  die  zweite  Frage  eine  sehr  sinn¬ 
volle  Sicherung  gegen  Programm¬ 
verlust. 

Die  dritte  Frage  nach  einer  »Spur« 
erscheint  im  Textbuch  nicht.  Ich  ha¬ 
be  weder  sie  noch  ihre  Auswirkun¬ 
gen  irgendwo  finden  können.  Natür¬ 
lich  ist  es  durch  Experimentieren 
letztlich  möglich,  den  Sinn  der 
»Spur«-Entscheidung  herauszutüf¬ 
teln.  Aber  hier  muß  die  Frage  er¬ 
laubt  sein,  ob  das  im  Sinne  eines 
Lernprogramms  ist?  Für  alle  Inter¬ 
essierten:  Mit  der  »Spur «-Option 
wird  der  Compiler  angewiesen,  zu¬ 
sätzliche  Textangaben,  die  Auskunft 
über  die  gerade  abgearbeiteten 
Zeilen  geben,  in  den  erzeugten  Co¬ 
de  einzucompilieren.  Es  handelt 
sich  also  um  eine  Art  »Trace«- 
Funktion  für  Maschinensprache. 

Doch  weiter:  Immer  noch  als  Teil 
des  Editors  erfolgt  jetzt  eine  »lexika¬ 
lische  Analyse«,  welche  (Zitat)  »die 
einzelnen  Worte  des  Programms  er¬ 
kennen  und  Worte,  die  in  Ada  kei¬ 
nen  Sinn  ergeben,  ausfiltert«. 

Bevor  mitgeteilt  wird,  ob  diese 
Analyse  erfolgreich  war  oder  Feh- 
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ler  aufgespürt  Wurden,  wird  erst 
einmal  die  Programmdiskette  ver¬ 
langt,  von  welcher  der  nächste  Pro- 
grammteil,  nämlich  der  Syntax- 
Prüfer  eingelesen  und  nach  einer 
längeren  angsterfüllten  Wartezeit 
gestartet  wird. 

Die  Syntax-Analyse  prüft,  ob  ein 
Programm  den  grammatischen  Re¬ 
geln  von  Ada  entspricht. 

Ein  »lexikalischer«  Fehler  (»kroce- 
dure«  statt  »procedure«)  führt 
prompt  zu  einer  Fehlermeldung,  ge¬ 
folgt  von  der  Frage,  ob  der  »Stack« 
ausgegeben  werden  soll.  Im  Hand¬ 
buch  ist  zwar,  eingebettet  in  eine 
ausführliche,  an  den  Fachmann  ge¬ 
richtete  Beschreibung  der  Arbeits¬ 
weise  des  Syntax-Prüfers,  diese 
Ausgabemöglichkeit  erwähnt  aber 
nicht,  wie  sie  herbeigeführt  wird. 
Mehrfaches  Drücken  der  RETURN- 
Taste  brachte  in  der  Tat  Zahlenrei¬ 
hen  auf  den  Schirm,  deren  Bedeu¬ 
tung  zwar  im  Detaü  beschrieben 
wird,  dem  Laien  aber  nicht  weiter¬ 
hilft. 

Ausgezeichnet  dagegen  ist  die 
nachfolgende  Fehlerdiskussion, 
welche  die  fehlerhafte  Zeüe,  den 
Fehler  und  mögliche  Abhüfen  und 
Korrekturen  aufzeigt. 

Die  Syntax-Prüfung  wird  abgebro¬ 
chen,  und  es  kommt  die  Aufforde¬ 
rung,  wieder  die  Programmdiskette 
einzulegen.  Es  leuchtet  natürlich 
ein,  daß  von  ihr  wieder  der  Editor 
eingelesen  wird,  um  den  Fehler  be¬ 
heben  zu  können.  Was  nicht  ein¬ 
leuchtet,  ist,  daß  nach  dem  Laden 
das  Programm  hängen  bleibt:  Ab¬ 
sturz! 

Bei  Entdeckung  eines  syntakti¬ 
schen  Fehlers  (zum  Beispiel  ein  feh¬ 
lendes  Semikolon)  läuft  dieselbe 
Prozedur  ab,  jedoch  mit  zwei  großen 
Ausnahmen.  Zum  ersten  wird  nach 
der  Fehlerdiskussion  die  Syntax- 
Prüfung  fortgesetzt,  um  noch  das 
restliche  Programm  zu  analysieren. 
Zum  zweiten  stürzt  das  Programm 
beim  Wiedereinladen  des  Editors 
jetzt  erfreulicherweise  nicht  ab.  Na¬ 
türlich  kann  in  beiden  Fällen  das  % 
fehlerhafte  Ada-Programm  wieder  ' 
geladen  werden.  Aber  ein  Absturz 
ist  halt  einfach  ärgerlich. 

Sind  alle  lexikalischen  und  syntak¬ 
tischen  Fehler  ausgemerzt,  folgt  die 
Aufforderung,  von  der  Programm¬ 
diskette  den  dritten  Teil,  nämlich 
den  Semantik-Prüfer,  einzulesen. 
Dieser  prüft,  ob  das  Programm  vom 
Aufbau  her  korrekt  ist.  Zum  Beispiel 
ist  eine  Anweisung  an  den  Drucker, 
die  das  fehlerhafte  Wort  »Dricker« 
verwendet,  lexikalisch  und  syntak¬ 
tisch  richtig,  wird  aber  von  der  se¬ 
mantischen  Analyse  erwischt. 


Trotz  eventueller  Fehler  übersetzt 
der  Code-Generator  des  Semantik- 
Prüfers  in  einem  ersten  Durchgang 
das  Ada-Programm  in  ein  Assem¬ 
blerprogramm.  Dieses  kann  entwe¬ 
der  mit  dem  Assembler  endgültig  in 
ein  Maschinenprogramm  übersetzt 
werden,  oder  es  muß  mit  dem  Editor 
erst  noch  korrigiert  werden.  Für 
Assemblercode-Spezialisten  kann 
auch  das  Assemblerprogramm  ge¬ 
laden  und  direkt  verbessert  wer¬ 
den.  Nur  eins,  die  Befolgung  der 
Aufforderung,  eine  dieser  drei  Op¬ 
tionen  zu  benützen,  führt  unweiger¬ 
lich  zum  Absturz.  Es  hat  einige  Ver¬ 
suche  gekostet,  bis  als  einzige  Vor¬ 
gehensweisefeststand,  den  Compu¬ 
ter  zuerst  durch  Ausschalten  zurück¬ 
zusetzen  —  wahrhaft  keine  elegante 
Methode  in  einem  Trainingskurs. 

Ist  das  Ada-Programm  endlich 
fehlerfrei,  wird  der  Assembler  gela¬ 
den.  Er  fragt  nach  dem  Namen  des 
vorläufigen  Assemblerprogramms 
—  und  wehe,  Sie  denken  nicht  dar¬ 
an,  unaufgefordert  die  Datendisket- 
’te  einzulegen,  auf  der  das  besagte, 
zu  übersetzende  Programm  gespei¬ 
chert  ist.  Diese  kleine  Unaufmerk¬ 
samkeit  wird  wieder  mit  Absturz 
des  Programms  bestraft. 

Wenn  Sie  es  aber  richtig  machen, 
übersetzt  der  Assembler  in  einem 
zweiten  Durchgang  das  Programm 
in  echten  Maschinencode,  der  mit 
»RUN«  gestartet  und  sonst  wie  ein 
normales  Maschinenprogramm  be¬ 
handelt  werden  kann. 

Wie  eingangs  erwähnt,  braucht 
man  den  Programmteil  Disassem¬ 
bler  für  Ada  nicht,  es  sei  denn,  der 
Kursteünehmer  will,  was  der  Autor 
empfiehlt,  gleich  die  Gelegenheit 
nutzen  und  Maschinensprache  ler¬ 
nen.  Dann  allerdings  kommt  ihm  die 
ausführliche  Beschreibung  von  As¬ 
sembler  und  Disassembler,  die  un¬ 
abhängig  von  Ada  auf  eigenen  Füs¬ 
sen  stehen,  sehr  zugute. 

Zusammenfassung 

Ich  bin  begeistert  von  der  Mög¬ 
lichkeit,  die  Sprache  Ada  zu  lernen, 
und  in  ihr  auf  dem  C  64  programmie¬ 
ren  zu  können. 

Die  Lehrmethode  einer  schritt¬ 
weisen  Einführung  in  die  Sprache  ist 
auch  für  Laien  geeignet,  die  bisher 
nur  in  Basic  gearbeitet  haben. 

Die  Übersetzungsmethode  ist 
zwangsläufig  etwas  langwierig,  die 
vielen  Diskettenwechsel  lassen  sich 
durch  den  begrenzten  Speicher  des 
C  64  nicht  vermeiden.  Und  wenn 
man  einmal  den  Dreh  gefunden  hat, 
ist  das  nicht  mehr  störend. 


Bis  dahin  allerdings  ist  es  ein  stei¬ 
niger  Weg.  Die  Programme  sind  lei¬ 
der  nicht  laiensicher.  Ein  Lernpro¬ 
gramm  muß  einfach  dem  dümmsten 
Bedienungsfehler  Rechnung  tragen 
und  nicht,  wie  in  diesem  Trainmgs- 
kurs,  immer  wieder  zum  Absturz 
führen. 

Der  begreifliche  Stolz  des  Autors 
auf  die  für  meine  Begriffe  fantasti¬ 
sche  Leistung,  die  Prüf-  und  Über¬ 
setzungsprogramme  geschrieben 
zu  haben,  drängt  die  Beschreibung 
derselben  zu  sehr  in  den  Vorder¬ 
grund.  Auch  das  Argument,  daß  da¬ 
durch  wichtige  Grundkenntnisse 
der  Assembler-  und  Maschinen¬ 
sprache  erlernbar  sind,  zieht  mei¬ 
nes  Erachtens  nicht.  Denn  mit  dem 
Trainingskurs  —  für  den  stolzen 
Preis  von  198  Mark  —  will  ich  Ada 
lernen  und  nicht  Assemblerspra¬ 
che. 

Es  wäre  Data  Becker  dringend  zu 
empfehlen,  sowohl  das  Handbuch 
als  auch  die  Programme  zu  revidie¬ 
ren  und  davon  eine  zweite  Version 
herauszugeben.  Die  kritisierten 
Mängel  sind  alle  leicht  korrigierbar, 
wenn  man  sich  die  Zeit  nimmt  und 
die  Bedürfnisse  von  Laien  vor  Au¬ 
gen  hält. 

Dieses  ausgezeichnete  Unterfan¬ 
gen,  die  Zukunftssprache  Ada  den 
Home-Computern  zu  eröffnen,  darf 
einfach  nicht  an  ärgerlichen  Pro¬ 
grammiermängeln  und  inkonse¬ 
quenten  Erklärungen  scheitern. 

Ada  —  für  wen? 

Der  Ada-Trainingskurs  kann  allen 
an  modernen  Programmierspra¬ 
chen  interessierten  Anwendern 
empfohlen  werden.  Auch  wer  sich 
für  Compilerbau  interessiert,  ist  mit 
diesem  Kurs  gut  beraten,  da  das 
Handbuch  sehr  ausführlich  auf  all¬ 
gemeine  Prinzipien  der  Compilie¬ 
rung  eingeht.  Allerdings  sollte  man 
die  Fähigkeiten  dieser  Ada-Trai- 
ningsversion  nicht  überschätzen, 
Der  Ada-Trainingskurs  eignet  sich 
entschieden  besser  zum  Lernen  von 
Ada  als  für  größere  Programmie¬ 
rungsprojekte. 

Nicht  verschwiegen  werden  soll 
auch,  daß  eine  Ada-Version  für  ei¬ 
nen  Heimcomputer  immer  nur  die 
wichtigsten  Aspekte  der  Sprache 
unterstützen  kann.  So  unterstützt 
Ada  als  Trainingskurs  beispielswei¬ 
se  kem  Multitasking,  also  keine  Pa¬ 
rallelverarbeitung  bestimmter  Pro¬ 
grammabschnitte.  Doch  damit  kann 
man  leben.  Entscheidend  ist  die 
Möglichkeit,  eine  moderne  Sprache 
wie  Ada  mit  dem  C  64  lernen  zu  kön 
nen.  (Dr.  Helmuth  Hauck/ev) 
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Protext-Textprofi 
mit  80  Zeichen 

Einen  entscheidenden  Schritt  in  Richtung 
professionelle  Textverarbeitung  macht 
Protext.  Wichtigstes  Hauptmerkmal: 

80  Zeichen  ohne  Kompromisse. 


80  Zeichen  am  Bildschirm  erleichtern  die  Textverarbeitung 


oxtvorarbcitungsprogrammc 
für  den  C  64  gibt  es  inzwischen 
wie  Sand  am  Meer.  Und  fast  alle 
haben  eines  gemeinsam:  Will  man 
den  Text  in  seiner  endgültigen  Form 
sehen,  so  muß  man  ihn  ausdrucken. 
Es  gibt  bisher  keine  befriedigende 
Lösung,  mit  den  beschränkten  Fä¬ 
higkeiten  des  VIC-Chips  eine  sau¬ 
bere  80-Zeichen-Darstellung  auf 
dem  Bildschirm  zu  erhalten,  um  die- 
gesamte  Textbreite  vor  Augen  zu  ha¬ 
ben.  Horizontales  Scrolling  oder 
softwaremäßig  simulierte  80  Zei¬ 
chen  sind  nur  Kompromisse.  Das 
einzig  Wahre  ist  eine  80-Zeichen- 
Karte;  eine  Hardwarelösung  also. 
Doch  leider  vertragen  sich  die  mei¬ 
sten  Tbxtverarbeitungsprogramme 
nicht  mit  diesen  Karten. 

Doch  damit  ist  jetzt  Schluß.  Zumin¬ 
dest,  wenn  man  es  übers  Herz 
bringt,  rund  500  Mark  auf  den  Tisch 
zu  blättern  und  die  80-Zeichen-Karte 
»80-ZK-plus«  sowie  das  dafür  ge¬ 
schriebene  Programm  »Protext«  zu 
erwerben.  Nicht  nur  die  80  Zeichen 
sind  es,  die  dem  Ganzen  das  Prädi¬ 
kat  »Textprofi«  verleihen.  Auch  die 
enorme  Vielfalt  an  Funktionen  hebt 
Protext  aus  der  Masse  der  Tbxtver¬ 
arbeitungsprogramme  heraus. 

Befehlsvielfalt 

Wer  klein  anfangen  will,  der  tippt 
nach  dem  Laden  des  Programmes 
seine  Texte  so  ein,  wie  er  sie  später 
auf  dem  Papier  sehen  will  und 
nimmt  etwaige  Formatierungen  und 
Einrückungen  von  Hand  vor.  Dann 
nur  noch  zwei  Tasten  berührt  (Fl 
und  A)  und  schon  wird  gedruckt. 
Kurze  Zeit  später  hält  man  schwarz 
auf  weiß  genau  das  in  Händen,  was 
auf  dem  Monitor  stand. 

Besonders  angenehm  bei  der 
Textemgabe  ist  das  Word-Wrapp- 
ing:  Wörter,  die  nicht  mehr  in  die  ak¬ 
tuelle  Zeile  passen,  werden  automa¬ 
tisch  in  die  nächste  Zeile  übernom¬ 
men.  Diese  Funktion  kann  auch  ab¬ 


geschaltet  werden.  Zur  Texteingabe 
steht  ein  sehr  umfangreicher  Be¬ 
fehlssatz  zur  Verfügung.  So  lassen 
sich  zum  Beispiel  einzelne  Buchsta¬ 
ben,  Wörter,  ganze  Bereiche  oder 
der  gesamte  Text  löschen.  Auch  das 
Gegenteil,  das  Einfügen  von  Text¬ 
stücken  ist  möglich,  die  Handha¬ 
bung  aber  etwas  kompliziert:  Hat 
man  den  Einfügemodus  eingeschal¬ 
tet,  so  darf  maximal  eine  Zeile  (80 
Zeichen)  eingefügt  werden.  Für  län¬ 
gere  Einfügungen  muß  der  Einfüge¬ 
modus  entsprechend  oft  ein  und 
wieder  ausgeschaltet  werden.  In 
diesem  Fall  besteht  auch  die  Mög¬ 
lichkeit,  einige  Leerzeilen  zu  setzen 
und  dort  den  Text  nachzutragen.  An¬ 
schließend  können  alle  überflüssi 
gen  Leerzeichen  aus  dem  aktuellen 
Absatz  entfernt  werden.  Das  kann 
über  die  Optimierungsfunktion  au¬ 
tomatisch  geschehen. 

Sehr  nützlich  sind  auch  die  von 
Schreibmaschinen  bekannten  Ta¬ 
bulatoren.  Es  sind  beliebig  viele 
setzbar  und  es  gibt  drei  verschiede¬ 
ne  Typen:  normale  Text-,  Zahlen- 
und  Spaltentabulatoren.  Die  Zahlen¬ 
tabulatoren  helfen,  Zahlen  unterein¬ 
ander  zu  setzen,  so  daß  der  Dezimal¬ 
punkt  (oder  wahlweise  Komma)  im¬ 
mer  sauber  untereinander  steht.  Mit 
den  Spaltentabulatoren  läßt  sich  der 
Arbeitsbereich  in  senkrechte  Spal¬ 
ten  einteilen,  in  denen  voneinander 
unabhängig  die  Texteingabe  er¬ 
folgt.  Da  von  Spalte  zu  Spalte  ge¬ 
sprungen  werden  kann,  ist  ein  pro¬ 
blemloses  Erstellen  von  Tabellen 
und  Gegenüberstellungen  möglich. 

Komplette  Textbereiche  kann 
man  im  Speicher  kopieren  oder  ver¬ 
schieben.  Einzelne  Buchstaben¬ 
gruppen  lassen  sich  im  Text  suchen 
und  gegen  andere  ersetzen. 
Schließlich  besteht  die  Möglichkeit, 
mit  dem  Cursor  bestimmte  Zeilen  di¬ 
rekt  anzuspringen. 

Sehr  praktisch  ist  die  Scroll- 
Funktion.  Möchte  man  sich  einen 
Überblick  über  den  schon  ge¬ 


schriebenen  Text  verschaffen,  so 
kann  man  ihn  mit  enormer  Ge¬ 
schwindigkeit  (über  20  Zeilen  pro 
Sekunde)  scrollen.  Die  Position  des 
Cursors  wird  dabei  nicht  verändert, 
so  daß  auch  schnelle  Richtungs¬ 
wechsel  möglich  sind.  Soweit  die 
Befehle,  die  ständig  benötigt  wer¬ 
den.  Der  Rest  des  Befehlssatzes 
dient  Spezialanwendungen.  Er¬ 
wähnt  werden  soll  hier  nur  noch, 
daß  jederzeit  beliebige  Texte  auf 
Diskette,  ohne  Textverlust,  eingese¬ 
hen  werden  können.  So  auch  ein  mit¬ 
gelieferter  Hüfstext  mit  einer  Kurz¬ 
beschreibung  der  vorhandenen  Be¬ 
fehle. 

Exzellente  Formatierung 

Neben  den  vielen  Befehlen  zur 
Ttextemgabe  gibt  es  eine  Gruppe 
von  Befehlen,  die  sich  erst  beim 
Ausdruck  bemerkbar  machen:  die 
Anweisungen  zui  Formatier. uny  des 
Textes.  Neben  den  fast  schon  sim¬ 
plen  Einstellungen  für  linken  oder 
rechten  Rand  kann  der  Text  im 
Blocksatz,  also  mit  glattem  rechten 
und  linken  Rand  gedruckt  werden. 
Zusätzlich  kann  Protext  bei  der  Text¬ 
ausgabe  lange  Wörter  trennen.  Es 
werden  alle  deutschen  Trennregeln 
und  die  wichtigsten  Ausnahmen  be¬ 
rücksichtigt.  Allerdings  können 
auch  unsinnige  Trennungen  entste¬ 
hen,  die  der  Benutzer  selber  abfan- 
gen  muß,  indem  er  Protext  anweist, 
die  entsprechenden  Wörter  nicht 
oder  anders  zu  trennen. 

Die  bedruckbare  Länge  einer 
Seite  und  die  Anzahl  der  Zeilen,  die 
tatsächlich  bedruckt  werden  sollen, 
können  einzeln  angegeben  werden. 
Der  Text  wird  dann  auf  jeder  einzel¬ 
nen  Seite  automatisch  vertikal  zen¬ 
triert.  Zusätzlich  kann  ein  Seitenum¬ 
bruch  jederzeit  oder  bedingt  er¬ 
zwungen  werden.  Bedingt  erzwun¬ 
gen  bedeutet,  daß  ein  Seitenum¬ 
bruch  statlfindel,  wenn  beispiels¬ 
weise  nur  die  Überschrift  eines  Ab¬ 
satzes  auf  die  vorherige  Seite  kom- 
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Die  80-Zei<henkarte 
80-ZK-plus  von  De- 
tam.  Nur  mit  dieser 
Erweiterung  arbeitet 
Protext  zusammen. 
Einen  ausführlichen 
Test  dazu  finden  Sie 
in  Ausgabe  4/85. 


men  würde.  Außerdem  können 
Kopf-  und  Fußzeilen  definiert  wer¬ 
den,  die  am  Anfang  und  am  Ende  je¬ 
der  Seite  gedruckt  werden.  Eine  au¬ 
tomatische  Seitenzählung  ist  vorhan¬ 
den,  so  daß  die  Kopf-  oder  Fußzeile 
jederzeit  die  aktuelle  Seitenzahl  ent¬ 
halten  können.  Einspaltige  Em-  und 
Ausrückungen,  beispielsweise  für 
Überschriften  oder  Kapitelnum¬ 
mern,  sind  ebenso  möglich  wie  die 
horizontale  Zentrierung  einzelner 
Textzeilen . 

Die  Formatierung  kann  in  einem 
Text  beliebig  oft  geändert  oder  zeit¬ 
weise  ganz  abgeschaltet  werden. 

Die  Möglichkeiten  sind  damit 
noch  nicht  ganz  erschöpft.  Diese 
umfangreiche  Übersicht  soll  aber 
genügen.  Will  man  die  Formatie¬ 
rung  überprüfen,  kann  man  den 
Ausdruck  am  Bildschirm  simulie¬ 
ren.  Hier  macht  sich  der  Kauf  der 
80-Zeichen-Karte  bezahlt;  spart  man 
doch  Unmengen  von  Druckerpa¬ 
pier  für  Probedrucke. 

Jeder  Drucker  ist  geeignet 

Bleiben  wir  beim  Thema  Drucker, 
dem  wunden  Punkt  vieler  Textver¬ 
arbeitungsprogramme.  Entweder 
arbeiten  sie  nur  mit  wenig  Druckern 
zusammen  oder  sie  nutzen  deren 
Möglichkeiten  nicht  aus.  Protext  hat 
variable  Druckertreiber,  die  sich 
auf  fast  jeden  erhältlichen  Drucker 
zurechtschneidern  lassen.  Dadurch 
kann  der  Text  nicht  nur  vernünftig 
ausgedruckt,  sondern  auch  sämtli¬ 
che  Möglichkeiten  des  Druckers 
ausgenutzt  werden.  Das  Erstellen 
des  Treibers  ist  allerdings  etwas 
kompliziert  und  langwierig,  aber 
nur  ein  einmaliger  Vorgang. 

Im  Druckertreiber-Menü  werden 
zuerst  einmal  alle  »normalen« 
Druckerparameter  eingestellt.  Da¬ 
zu  gehören  die  Geräte-  und  Sekun¬ 


däradresse  des  Druckers  sowie 
Werte  für  Zeilenabstand,  Papierlän¬ 
ge,  Einzelblatteinzug  und  automati¬ 
schen  Zeilenvorschub. 

Als  nächstes  folgt  eine  Code- 
Wandlungs-Tabelle.  Jedem  der  255 
C  64-ASCII-Codes  wird  em  Druk- 
kercode  zugeordnet.  Diese  Tabelle 
ist  äußerst  wichtig,  da  ja  der 
C  64-ASCII-Code,  den  auch  die 
80-Zeichen-Karte  verwendet,  unter¬ 
schiedlich  zum  Standard-ASClI-Co- 
de  der  meisten  Drucker  ist.  Es  kön¬ 
nen  auch  Steuersequenzen  angege¬ 
ben  werden,  die  zu  Beginn  und  am 
Ende  des  Textes  sowie  für  jede  ein¬ 
zelne  Druckzeile  gesendet  werden, 

Weitere  Optionen  im  Treiber-Me¬ 
nü  beziehen  sich  auf  die  von  Protext 
»serienmäßig«  unterstützten  Schrift¬ 
typen  »Unterstreichen«  und  »Fett¬ 
druck«,  deren  Steuercodes  ja  auch 
für  jeden  Drucker  anders  sind. 
Schließlich  lassen  sich  noch  Codes 
für  die  verschiedensten  drucker¬ 
spezifischen  Eigenschaften  definie¬ 
ren.  So  ist  beispielsweise  das  Hoch- 
und  Tiefstellen  von  Zeichen  mög¬ 
lich,  indem  man  entsprechende 
Steuercode-Sequenzen  auf  be¬ 
stimmte  Tasten  legt  (beispielsweise 
CTRL  +  S).  Auch  frei  definierbare 
Zeichen  des  Druckers  können  ange¬ 
sprochen  werden.  Der  erstellte 
Druckertreiber  wird  auf  Diskette 
gespeichert  und  kann  jederzeit  be¬ 
nutzt  werden. 

Unterstützung  von  Floppy  und  Modem 

Die  Bedienung  einer  Diskettensta¬ 
tion  gestaltet  sich  ebenso  komforta¬ 
bel  wie  die  des  Druckers.  Es  wer¬ 
den  sowohl  die  1541  wie  auch  das 
4040-Doppellaufwerk  am  IEC-Bus 
unterstützt.  Texte  können  gespei¬ 
chert  und  geladen  oder  in  den  ak 
tuellen  Text  eingefügt  werden.  Zu¬ 
sätzlich  ist  das  Lesen  von  Daten  aus 


einem  sequentiellen  File  beim  Aus¬ 
druck  von  Serienbriefen  und  das 
Arbeiten  mit  Ibxtbausteinen  (Modu¬ 
len)  möglich.  Längere  Texte,  die 
nicht  mehr  in  den  Arbeitsspeicher 
passen,  können  direkt  miteinander 
verkettet  oder  m  einem  Jobfile  zu¬ 
sammengefaßt  werden.  Daß  Direc- 
tories  angezeigt  und  Befehle  an  die 
Floppy  gesandt  werden  können,  ist 
fast  schon  selbstverständlich. 

Einen  weiteren  Pluspunkt  handelt 
sich  Protext  durch  seine  Kommuni¬ 
kationsfähigkeiten  ein:  Terminalbe¬ 
trieb  wird  voll  unterstützt.  Einerseits 
kann  ein  Datenverkehr  mit  Mailbo¬ 
xen  aufgenommen  werden,  indem 
man  Mitteilungen  mit  Protext  erstellt 
und  danach  an  die  Mailbox  sendet. 
Weiterhin  können  zwei  Computer 
mit  Protext  über  Telefon  Texte  aus- 
tauschen.  Dazu  ist  sogar  eine  auto¬ 
matische  Fehlerkorrektur  vorhan¬ 
den. 

Nachdem  wir  die  wichtigsten  der 
vorhandenen  Funktionen  beleuch¬ 
tet  haben,  wollen  wir  Ihnen  noch  ei¬ 
nige  Punkte  mitteilen,  die  uns  positiv 
oder  negativ  aufgefallen  sind.  Be¬ 
sonders  gut  gefallen  hat  uns  der  mit 
40000  Zeichen  wirklich  großzügig 
bemessene  Arbeitsspeicher.  Über¬ 
zeugen  konnte  auch  die  sehr  hohe 
Arbeitsgeschwindigkeit  in  allen 
Funktionen.  Weniger  gefallen  ha¬ 
ben  uns  aber  die  teilweise  recht  um¬ 
ständliche  Bedienung  und  beson¬ 
ders  die  exotische  Tastaturbele¬ 
gung.  Die  Umlaute  und  das  »ß«  be¬ 
finden  sich  an  total  unüblichen  Stel¬ 
len,  an  die  man  sich  nur  sehr  schwer 
gewöhnen  kann.  Dies  ist  zwar  nicht 
durch  das  Textprogramm  bedingt, 
sondern  durch  die  80-Zeichen- 
Karte,  aber  trotzdem  ein  großes  Mi¬ 
nus.  Hier  sei  nochmals  darauf  hinge¬ 
wiesen,  daß  der  Betrieb  von  Protext 
nur  mit  der  Decam-80-Zeichen-Kar- 
te  und  sonst  keiner  möglich  ist. 

Einige  Worte  noch  zum  Hand¬ 
buch:  Dies  ist  ein  umfangreiches 
und  hervorragendes  Nachschlage¬ 
werk.  Zum  Einarbeiten  für  einen 
Textverarbeitungs-Neuling  ist  es  al¬ 
lerdings  weniger  geeignet,  da  die 
Befehle  stur  in  alphabetischer  Rei¬ 
henfolge  und  nicht  gerade  didak¬ 
tisch  günstig  erklärt  werden. 

Wer  sich  nicht  scheut,  etwas  mehr 
Geld  auszugeben  und  sich  die  un¬ 
gewöhnliche  Tastaturbelegung  ge¬ 
fallen  läßt,  der  wird  in  Protext  einen 
zuverlässigen  und  äußerst  vielseiti¬ 
gen  Partner  zur  Textverarbeilung 
finden. 

(Boris  Schneider/hm) 

Info; 

Decam,  Postfach  1232,  7305  Ettlingen,  Tbl.  07243/69264 
Preis;  198  Mark  ohr.e  80-Zeichen-Karte.  80-ZK-plus;  298  Mark 
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Logo  —  die  Sprache  für  Einsteiger 

Bekanntgeworden  ist  Logo  in  erster  Linie  als  Grafik-Programmiersprache  für 
Anfänger.  Spektakuläre  Fotos  von  Vorschulkindern,  die  in  Logo  programmieren, 
gingen  bereits  durch  die  Fachpresse.  Wir  zeigen,  was  Logo  wirklich  kann. 


Eigentlich  sollte  man  meinen,  daß 
der  C  64  auch  softwaremäßig 
endgültig  ausgereizt  ist.  Den¬ 
noch  gibt  es  immer  wieder  Leute, 
die  weder  mit  dem  C  64-Basic,  noch 
mit  der  massenhaft  vorhandenen 
Software  so  recht  zufrieden  sind.  Vor 
allem  die  von  Basic  schlecht  unter¬ 
stützte  Grafik  macht  gerade  den  Ein¬ 
steigern,  die  mit  Maschinensprache 
nicht  umgehen  können,  immer  wie¬ 
der  Kummer. 

Nun  bietet  Commodore  eine  Ver¬ 
sion  der  Sprache  Logo  für  den  C  64 
an.  Entwickelt  vom  renommierten 
Massachusetts  Institute  of  Technolo¬ 
gy  ermöglicht  Logo,  so  das  Hand¬ 
buch,  eine  sehr  einfache  und  dabei 
höchst  wirkungsvolle  Handhabung 
von  Grafik  und  Listen  (Wort-  und 
Zahlenreihen).  Grund  genug,  ein¬ 
mal  festzustellen,  was  Logo  wirklich 
leistet. 

Logo  wird  auf  zwei  Disketten,  ei¬ 
ner  Programm-  und  einer  Utility- 
Disk.  geliefert.  Was  nach  dem  La¬ 
den  des  Programms  sofort  auffällt, 
ist  die  Tatsache,  daß  Logo  im 
Interpreter-Modus  arbeitet,  was  sei¬ 
ne  Vor-  und  Nachteile  hat.  Einerseits 
ist  es  dadurch  möglich,  im  Direkt¬ 
modus  Befehle  einzugeben  und 
Fehler  sofort  festzustellen.  So  lernt 
man  den  richtigen  Umgang  mit  der 
Sprache  und  erspart  sich  das  bei 
Compilersprachen  umständliche 
Verbessern  und  erneute  Compilie- 
ren.  Andererseits  kann  ein  Interpre¬ 
ter  nie  die  Geschwindigkeit  eines 


compilierten  Programmes  errei¬ 
chen. 

Logo  arbeitet  mit  der  sogenann¬ 
ten  Turtle-Grafik,  manchem  viel¬ 
leicht  bekannt  aus  der  Sendereihe 
»Mikroelektronik«.  Dabei  erscheint 
auf  dem  Hires  Bildschirm  ein  Drei¬ 
eck,  eben  die  Turtle  (Schildkröte). 
Diese  kann  nun  auf  dem  Bildschirm 
bewegt  werden  und  hinterläßt  da¬ 
bei  eine  Spur.  Die  Befehle  FOR¬ 
WARD,  BACK,  RIGHTTURN,  LEFT- 
TURN,  denen  jeweils  eine  Zahl  fol 
gen  muß,  lassen  die  Turtle  auf  dem 
Bildschirm  herumwandem  oder  ei¬ 
ne  Drehung  ausführen.  Der  einge¬ 
gebene  Parameter  bestimmt  dabei 
die  Anzahl  der  Schritte.  Wer  sich 
schon  einmal  mit  dem  Ausrechnen 
von  Koordinaten  bei  anderen  Gra¬ 
fik-Erweiterungen  herumgequält 
hat,  wird  die  Turtle-Methode  be¬ 
stimmt  als  Erleichterung  empfin¬ 
den. 

Die  Turtle  kann  aber  auch  durch 
Koordinaten-Eingabe  bewegt  wer¬ 
den.  Mittels  der  Befehle  SETX, 
SETY  und  SETXY  verändert  man 
den  Standpunkt  der  Turtle,  die  Be¬ 
fehle  XCOR  und  YCOR  liefern  die 
Koordinaten  der  momentanen 
Turtle-Position.  So  bekommt  einer¬ 
seits  der  Anfänger  bereits  nach  den 
ersten  Tippversuchen  sichtbare  Er¬ 
gebnisse  (Bild  1),  andererseits  kann 
man  mit  der  Turtle  bei  Anwendung 
der  entsprechenden  mathemati 
sehen  Formeln  auch  komplizierte 
Darstellungen  realisieren.  Die  so  er¬ 


stellten  Grafiken  lassen  sich  mit  SA- 
VEPICT  direkt  abspeichern,  bezie¬ 
hungsweise  mit  READPICT  wieder 
einiesen. 


Das  Erstellen  von  Programmen 
birgt  für  den  Basic -gewohnten 
C  64-Benutzer  einige  angenehme 
Überraschungen.  Um  in  den  Edit- 
Modus  zu  gelangen,  tippt  man  TO 
und  einen  Programmnamen.  Der 
Name  kann  frei  gewählt  werden  und 
dient  später  zum  Aufrufen  des  Pro¬ 
gramms.  Es  empfiehlt  sich,  Namen 
zu  wählen,  die  den  Zweck  des  Pro¬ 
gramms  erkennen  lassen;  durch  die 
besondere  Speicherart  von  Logo 
hat  die  Länge  des  Namens  keinen 
Einfluß  auf  den  Speich erplatzver- 
brauch.  Logo-Programme  haben 
keine  Zeilennummern.  Sie  werden, 
wenn  sie  getippt  sind,  durch  das 
Verlassen  des  Editors  definiert  (ab¬ 
gespeichert). 

Das  grundliegende  Konzept  von 
Logo-Programmen  ist  folgendes: 
Em  Logo-Programm  kann  sowohl  im 
Direktmodus,  als  auch  von  anderen 
Programmen  aus  jederzeit  aufgeru- 
fen  werden.  Dadurch  ist  es  möglich, 
ein  Programm  in  viele  Einzelpro¬ 
gramme  zu  zerlegen  und  gesondert 
zu  programmieren.  Diese  Einzelpro¬ 
gramme  können  unabhängig  von¬ 
einander  abgespeichert  werden. 
Solche  »Bausteine«  lassen  sich  auch 
problemlos  in  andere  Programme 
einbauen.  Ein  Lpgo-Programm  be¬ 
steht  also  immer  ans  einer  Reihe  von 


Einzelprogrammen. 
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Die  wohl  interessanteste  Neue¬ 
rung  beim  Programmieren  ist  die 
Möglichkeit,  neue  Befehle  selbst  zu 
definieren,  Nehmen  wir  an,  Sie  ha¬ 
ben  ein  Programm  zur  Errechnung 
beliebiger  Hochzahlen  geschrie¬ 
ben,  dessen  Name  »HOCH«  ist.  Sie 
haben  nun  ein  anderes  Programm, 
in  dem  häufig  Hochzahlen  zu  be¬ 
rechnen  sind.  Es  ist  möglich,  in  Ih¬ 
rem  zweiten  Programm  an  den  be¬ 
treffenden  Stellen  einfach  das  Pro¬ 
gramm  »HOCH«  aufzurufen,  das 
dann  die  Hochzahl  berechnet  und 
an  Ihr  zweites  Programm  übergibt. 
Sie  rufen  das  Hochzahlenprogramm 
auf,  indem  Sie  »HOCH«,  gefolgt  von 
Basis  und  Exponent  als  Parameter 
tippen;  der  Programmname  wird  al¬ 
so  regelrecht  als  Befehl  benutzt. 

Rekursionen 

Wer  sich  im  Grafik-Kapitel  des 
Handbuches  nach  vorne  arbeitet, 
wird  bald  auf  den  Begriff  »Rekur¬ 
sion«  stoßen.  Grundlage  der  Rekur¬ 
sion  ist  ein  Programm,  das  sich  so 
lange  selbst  aufruft,  bis  eine  Ab¬ 
bruchbedingung  erfüllt  ist. 

Um  nun  wieder  zum  Toplevel, 
nämlich  in  den  Direktmodus  zu  ge¬ 
langen,  muß  das  Programm  nach 
Erfüllung  der  Abbruchbedingung 
die  Stufen,  die  es  sich  hinabgearbei¬ 
tet  hat,  wieder  hochsteigen.  Dabei 
werden  alle  Befehle,  die  nach  dem 
Selbstaufruf  stehen,  ausgeführt.  Si¬ 
cher  ist  das  zu  Anfang  kompliziert, 
aber  was  sich  damit  anstellen  läßt, 
zeigt  Bild  2.  Dabei  handelt  cs  3ich 
um  einen  Binärbaum,  vereinfacht 
gesagt  um  ein  »V«,  an  dessen  Spitze 
jeweils  ein  kleineres  »V«  sitzt  etc., 
bis  eine  bestimmte  Minimallänge 
erreicht  ist.  Das  Bild  wurde  mit  ei¬ 
nem  nur  wenige  Zeilen  umfassen¬ 
den  Programm  erstellt,  das  einfach 
einen  Zweig  zeichnet  und  sich  je¬ 
weils  selbst  wieder  aufruft,  um  ei¬ 
nen  weiteren  (kleineren)  Zweig  zu 
zeichnen. 

Ein  weiterer  Schwerpunkt  der 
Logo-Anwendung  liegt  in  der  Listen¬ 
verwaltung.  Listen  sind  für  Logo  alle 
Zahlen,  Buchstaben  oder  Zeichen, 
die  zwischen  eckigen  Klammern 
stehen.  Logo  kann  nun  mit  insge¬ 
samt  15  Listenbefehlen  einzelne  Li¬ 
sten  und  Wörter  miteinander  ver¬ 
gleichen,  kombinieren  und  verän¬ 
dern.  Wenn  man  die  Befehle  mitein¬ 
ander  kombiniert,  läßt  sich  schon 
einiges  anstellen:  Denkbar  sind 

Gr  ammatik-Ü  bungspr  ogramme, 
Adreßdateien  mit  den  unterschied¬ 
lichsten  Suchkriterien,  Text-Adven- 
tures  oder  einfache  Dolmetscher- 
Programme.  Die  Befehle  FIRST, 


LAST,  BUTFIRST,  BUTLAST  und 
ITEM  ermöglichen  beispielsweise 
ein  Herausnehmen  einzelner  Wör¬ 
ter  oder  Listenteile  aus  Listen.  Mit 
den  Befehlen  SENTENCE  und 
WORD  lassen  sich  Listenteile  und 
Buchstaben  zu  neuen  Wörtern  und 
Sätzen  zusammenbauen. 

Neben  Listenbehandlung  und 
Grafik  bietet  Logo  auch  verschiede¬ 
ne  Befehle  für  Musik  und  Sprites. 
Der  Hersteller  macht  dabei  ausgie¬ 
bigen  Gebrauch  von  der  Möglich¬ 
keit,  Befehle  von  Logo  aus  zu  defi¬ 
nieren:  Für  den  Umgang  mit  Sprites 
sind  die  Dateien  SPRITES  und 
SPRED,  für  die  Musikprogrammie¬ 
rung  die  Datei  MUSIC  von  der  mit¬ 
gelieferten  Utility-Diskette  einzule¬ 
sen.  Danach  steht  dem  Benutzer  ne¬ 
ben  den  verschiedenen  Sprite-Be- 
fehlen  ein  durchschnittlicher  Sprite- 
Editor  zur  Verfügung.  Die  entworfe¬ 
nen  Kobolde  (so  werden  die  Sprites 
im  Logo-Handbuch  bezeichnet)  kön¬ 
nen  mit  SAVESHAPES  abgespei¬ 
chert  und  mit  READSHAPES  wieder 
eingelesen  werden.  Für  Musikpro¬ 
gramme  kann  man  mittels  der  vor¬ 
definierten  Befehle  Tondauer,  Ton¬ 
höhe,  Attack,  Decay,  Sustain  und  Re 
lease  bestimmen. 

Logo  —  ein  vorbildlich 
dokumentiertes 
Programm 

An  dieser  Stelle  muß  ein  Wort  zur 
Dokumentation  von  Logo  verloren 
werden,  die  wirklich  hervorragend 
ist.  Ganz  im  Gegensatz  zur  sonst 
üblichen  Commodore-Hauspolitik, 
nach  der  der  Anwender  mit  Infor¬ 
mationsmengen  versorgt  wird,  die 
zum  Leben  zu  'wenig  und  zum  Ster¬ 
ben  zuviel  sind,  ist  diesmal  im  Lie¬ 
ferumfang  ein  351  DIN-A4-Seiten 
starkes  Handbuch  enthalten.  Es  er¬ 
klärt  verständlich  und  ausführlich 
die  Logo-Befehle;  didaktisch  gut 
sind  die  Programmieraufgaben  in 
jedem  Kapitel,  die  im  Anhang  gelöst 
und  besprochen  werden.  Anhand 
dieses  Leitfadens  kann  man  sich 
ziemlich  schnell  und  gut  in  Logo  ein- 
arbeiten.  Abgesehen  davon,  daß 
sich  der  Befehl  SAVESHAPES  nicht 
in  der  Datei  SPRITES  befindet,  wie 
das  Handbuch  angibt,  sondern  in 
der  Datei  SPRED  und  die  Datei  MU¬ 
SIK  sich  nur  laden  läßt,  wenn  man 
aus  dem  »k«  ein  »c«  macht,  sind  keine 
Fehler  anfgefallen.  Ebenfalls  nicht 
selbstverständlich  ist  die  mitgelie¬ 
ferte  Utility-Diskette,  auf  der  sich  ne¬ 
ben  zahlreichen  Programmierhilfen 
und  Beispielprogrammen,  auch  ein 
Drucker-  und  ein  Plotter-Ansteue- 


rungsprogramm  und  sogar  ein  As¬ 
sembler  befindet.  Da  aber  der  Spei¬ 
cherplatz  für  Maschinenroutinen  mit 
447  Byte  nicht  gerade  exzessiv  aus¬ 
gefallen  ist  und  außerdem  auch 
noch  von  Sprites  benutzt  wird,  so 
daß  man  in  Sprite-Programme  keine 
Maschinenroutinen  embauen  kann, 
wird  der  Assembler  wohl  nicht  so 
häufig  benutzt  werden. 

Neben  vielen  Vorteilen  hat  Logo 
aber  auch  einige  Nachteile.  Bedingt 
durch  den  Interpreter  weist  Logo 
Zeichen-  und  Ladegeschwindigkei- 
ten  auf,  die  manchmal  an  das  Tempo 
einer  Wanderdüne  erinnern.  Zum 
Zeichnen  eines  Völlkreises  (genau¬ 
er:  eines  360-Ecks)  brauchte  Logo  31 
Sekunden;  Simons  Basic  erledigte 
das  in  annähernd  drei  Sekunden. 
Auch  die  Ladegeschwindigkeit  der 
Diskette  ist  mit  etwa  2,5  Sekunden 
pro  Block  mcht  gerade  ein  neuer 
Rekord  (gerechnet  wurde  die  Zeit 
vom  Ladebefehl  bis  zur  Meldung 
des  Interpreters  oder  Programmes). 

Ein  Hindernis  für  umfangreiche 
Anwendungen  ist  wohl  der  zur  Ver¬ 
fügung  stehende  Speicherplatz.  Von 
ausschlaggebender  Bedeutung 
sind  hier  die  sogenannten  »Spei¬ 
cherknoten«.  Jeder  Gebrauch  eines 
Wortes  belegt  einen  dieser  Knoten, 
und  auch  ein  Programm  benötigt  ei¬ 
ne  bestimmte  Anzahl  davon.  In  den 
Arbeitsspeicher  kann  man  35 
Blocks,  also  etwa  9  KByte  laden.  Läßt 
man  dann  ein  Programm  laufen,  so 
sind  die  wenigen  übriggebliebenen 
Knoten  durch  die  Benutzung  von 
Wörtern  bald  aufgebraucht  und  Lo¬ 
go  meldet  »No  storage  ieft!«  Der  vor¬ 
handene  Speicherplatz  mag  für 
Grafikprogramme,  selbst  für  um¬ 
fangreichere,  noch  hLngehen;  ein 
wirklich  brauchbares  Dolmetscher¬ 
programm  mit  ausreichendem 
Wortschatz  beispielsweise,  läßt  sich 
so  aber  kaum  erstellen. 

Alles  in  allem  ist  Logo  eine  Spra¬ 
che,  die  wirklich  eine  Menge  bietet. 
Turtle-Grafik  und  Rekursion  ermög¬ 
lichen  vielseitige  Bildschirmgrafi¬ 
ken,  die  leicht  abzuspeichern  sind, 
und  auch  die  anderen  Besonderhei¬ 
ten  von  Logo  sind  zum  Teil  beein¬ 
druckend.  So  kann  man  die  Sprache 
sicherlich  allen  empfehlen,  die  Gra¬ 
fik  besser  nutzen  wollen,  sich  aber 
nicht  auf  Assembler  verstehen. 
Auch  die  Listenbehandlung  in  Logo 
bietet  mit  etwas  Übung  interessante 
Möglichkeiten.  Wer  dann  noch  die 
genannten  Einschränkungen  in  Kauf 
zu  nehmen  bereit  ist,  wird  mit  Logo 
bestimmt  zufrieden  sein. 

(Christof  Bachmair/ev) 

Info:  Loco  gibt ’s  bei  Inrom  Commcdore-Händler  zum  Preis 
von  139  Mark  nur  auf  Diskette  für  den  Commodore  64 
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Assembler  ist  keine  Alchimie  —  Teil  9 


Multiplizieren  und  Dividieren  größerer 
Zahlen  ist  weder  mit  dem  Taschen¬ 
rechner  noch  in  Basic  ein  Problem.  Mit 
Assembler  sieht  die  Sache  anfangs 
schon  nicht  mehr  so  einfach  aus.  Doch 
auch  diese  Hürde  wird  genommen. 
Einige  Betriebssystemroutinen  des 
C  64  nehmen  uns  dabei  erhebliche 
Arbeit  ab,  man  muß  sie  nur  kennen. 


Einige  Versprechen  sollen 
diesmal  eingelöst  werden: 
Die  restlichen  Bil-Verschiebe- 
Befehle  werden  Ihnen  vorge¬ 
stellt  und  auch  gleich  ein  paar 
Anwendungen  wie  die  16-Bit- 
Multiplikation  und  auch  die  16- 
Bit-Division.  Außerdem  soll  end¬ 
lich  das  Programmprojekt  wei¬ 
tergeführt  werden.  Diesmal  er¬ 
zeugen  wir  einen  Hilfsbild- 
schirm  und  legen  ihn  abrufbe¬ 
reit  unter  den  oberen  ROM-Be- 
reich.  Bei  der  Gelegenheit  ler¬ 
nen  Sie  auch  gleich  noch  ein 
paar  Interpreter-Routinen  ken¬ 
nen. 

Die  restlichen  Bit-Verschiebe- 
Operotionen 

Da  wäre  zunächst  einmal  das 
Gegenstück  zu  ASL.  Den  Befehl 
haben  wir  in  der  letzten  Ausga¬ 
be  kennengelernt.  Dort  ging  es 
ja  um  das  Nach-Lmks-Schieben. 
Jetzt  schieben  wir  nach  rechts. 
LSR  heißt  der  dazu  nötige  Be¬ 
fehl.  Das  kommt  von  »logical  shift 
right«  und  heißt  zu  deutsch  »logi¬ 
sches  Rechtsschieben«.  Fragen 
Sie  mich  bitte  nicht,  'weshalb  »lo¬ 
gisches«.  Jedenfalls  ist  LSR 
ebenso  für  logische  Bitprüfun¬ 
gen  geeignet  wie  ASL. 

Mittels  LSR  wird  jedes  Bit  der 
adressierten  Speicherstelle  um 
einen  Platz  nach  rechts  gescho¬ 
ben.  An  die  Stelle  des  Bit  7  tritt 
eine  Null  und  Bit  0  wandert  in 
das  Carry-Bit  (siehe  Bild  1). 


Erinnern  Sie  sich  noch  an  das 
dezimale  Linksschieben  mit  ASL 
aus  der  letzten  Folge?  Wh  hatten 
festgestellt,  daß  jedes  Links¬ 
schieben  einer  Dezimalzahl  ei¬ 
ner  Multiplikation  mit  10  ent¬ 
spricht.  Hier  im  umgekehrten 
Fall,  also  beim  Rechtsschieben, 
muß  jedes  LSR  einer  Division 
durch  10  entsprechen: 

25000  wird  durch  LSR  zu  2500 
2500  "  250 

250  ”  25 

und  so  weiter 

Geht  man  von  der  Ausgangs¬ 
zahl  (25000)  aus,  dann  ergibt  sich 
der  erste  rechts  verschobene 
Wert  durch  Division  mit 
10' =10 

der  2.  durch  10!  =  100 

der  3.  durch  10J  =  1000,  etc. 

Es  wird  also  durch  Potenzen 
der  Zahlenbasis  10  geteilt.  Ha 
ben  wir  es  —  wie  im  Computer  — 
mit  Binärzahlen  zu  tun,  deien  Ba¬ 
sis  die  2  ist,  dann  teilen  wir  mit  je¬ 
dem  LSR  durch  2  Je  nachdem, 


wie  oft  hintereinander  das  LSR 
auf  eine  Zahl  ausgeübt  wird,  teilt 
man  dann  durch  2' =  2,  2* =4, 
2J  =  8,  etc.  Das  konnte  man  sich 
alles  ja  schon  voislellen,  nach¬ 
dem  ASL  zur  Multiplikation  ver¬ 
wendet  wurde.  Auch  hier  muß 
man  immer  das  Carry-Bit  abfra- 
gen,  denn  die  Division  kann  ja 
unter  Umständen  nicht  aufge- 
hen,  wie  das  folgende  Beispiel 
der  Division  von  3  durch  2  zeigt: 

(3)  0000  0011  ergib',  durch  LSR: 
0000  0001  und  1  im  Carry-Bil.  Das 
Ergebnis  ist  schon  richtig,  näm¬ 
lich  1.  Im  Carry  steht  der  Rest 
dieser  Division,  die  1,  Weil  der 
Rest  für  manche  Berechnungen 
von  Bedeutung  ist,  muß  das 


Carry-Bit  irgendwie  erfaßt  wer¬ 
den.  Wie  man  das  erreicht,  ler¬ 
nen  wir  später  noch.  Leider  ist 
diese  Art  der  Division  mittels 
LSR  nicht  so  einfach  verwend¬ 
bar  wie  die  Multiplikation  mit¬ 
tels  ASL.  Während  man  dort 
durch  geschicktes  Aufteilen  des 
Faktors  ASL  auch  bei  anderen 
Multiplikatoren  als  reine  Zweier¬ 
potenzen  anwenden  konnte,  ist 
das  hier  nicht  so  ohne  weiteres 
möglich.  Bei  Divisionen  geht 
man  deshalb  lieber  andere  We¬ 
ge,  Die  zeige  ich  Ihnen  ebenfalls 
etwas  spater. 

LSR  kann  auf  die  gleiche  Wei¬ 
se  adressiert  'werden  wie  ASL: 

LSR  auf  den  Akku 

bezogen 

LSR  6000  absolut 

LSR  FE  Zeropage-absolut 

LSR  6000, X  absolut-X-indiziert 

LSR  FhX  Zeropage-absolut- 

X-indiziert 

Im  ersten  Fall  steht  das  Ergeb¬ 
nis  im  Akku,  Ln  den  anderen  Fäl¬ 


len  in  der  jeweils  adressierten 
Speicherstelle.  Außer  der  N- 
Flagge,  die  in  jedem  Fall  0  wird, 
beeinflußt  LSR  auch  die  Carry- 
Flagge  und  unter  Umständen 
die  Z-Flagge.  Je  nach  Adressie¬ 
rungsart  liegt  LSR  als  1-Byte-, 
2-Byte-  oder  3-Byte-Befehl  vor, 

Sowohl  bei  ASL  als  auch  bei 
LSR  hatten  wir  festgestellt,  daß 
man  herausgeschobene  Bits, 
falls  sie  noch  von  Bedeutung 
sind,  irgendwie  aus  dem  Carry- 
Bit  (dort  sind  sie  ja  gelandet)  an 
einen  sinnvollen  Ort  schaffen 
muß.  Das  ist  natürlich  möglich 
über  eine  Befehlskette,  in  der  zu¬ 
nächst  das  Carry-Bit  sbgefragt 
wird: 

zum  Beispiel: 

6000  BCC  6007 

6002  LUA  #01 

6004  STA  8000 

6007  etc. 

Wenn  das  Carry-Bil  frei  ist, 
wird  alles  weitere  übersprun¬ 
gen.  Wenn  da  dnn  etwas  aufge¬ 
taucht  ist,  lädt  man  eine  1  (die  ist 
ja  im  Carry-Bit)  an  die  benötigte 
Speicherstelle  (hier  zum  Bei 
spiel  8000)  Das  kostet  aber  cini 
ge  Bytes  Speicherplatz  und  eini¬ 
ge  Taktzeiten  Rechendauer.  Au¬ 
ßerdem  erschwert  sich  die  Pro 
grammierung,  wenn  man  eine 
Zahl  öfter  verschiebt  und  dann 
nach  8000  alle  Carry-Inhalte 
packen  will.  So  kompliziert  brau¬ 
chen  wir  auch  gar  nicht  zu  arbei¬ 
ten,  denn  unsere  CPU  kennt 
zwei  Befehle,  die  da3  BitVer 


schieben  und  das  Carry-Ver- 
schieben  für  uns  machen,  Das 
sind: 

ROL  rotate  left  Linksrotieren 
ROR  rotate  right  Rechtsrotieren 
Sehen  wir  uns  zunächst  mal 
ROL  (Bild  2)  an 
Wie  bei  ASL  wandert  jedes  Bit 
um  eine  Position  nach  links.  Das 
Bit  7  wird  dabei  in  das  Carry-Bit 
verschoben  In  Bit  0  gelangt 
aber  hier  nicht  eine  0  (wie  bei 
ASL),  sondern  der  Inhalt  des 
Carry-Bit  (wohlgemerkt  der  In¬ 
halt,  der  dort  war,  bevor  dort  hin¬ 
ein  Bil  7  geschoben  wurde),  Be¬ 
vor  wir  auf  den  praktischen 
Nährwert  dieses  Befehls  einge- 
hen,  sollen  erstmal  die  Adressie- 
rungsmöglichkeiten  aufgeführt 


werden: 

ROL 

auf  den  Akku 
bezogen 

ROL 

6000 

absolut 

ROL 

FE 

Zeropage¬ 

absolut 

ROL 

6000.X 

absolut-X-indi¬ 

ziert 

ROL 

FE,X 

Zeropage-ab- 

solut-X-indi- 

ziert 

Je  nach  Adressierung  kann  es 
sich  dann  wieder  um  einen 
1-Byte-  bis  3-Byte-Befehl  han¬ 
deln.  Die  N-,  Z-  und  natürlich  die 
Carry-Flagge  sind  beeinflußt 
und  das  Ergebnis  des  Befehls  ist 
im  Akku  zu  finden  (erste  Adres¬ 
sierungsart)  oder  in  der  ange¬ 
sprochenen  Speicherstelle, 
Wozu  das  Ganze?  Abgesehen 
von  der  Möglichkeit,  einzelne 
Bits  auf  diese  Weise  ohne  Ver¬ 
lust  aus  einem  Byte  durch  das 
Carry-Bit  herausschieben  zu 
können,  um  sie  Prüfungen  zu  un 
terziehen,  gibt  es  noch  die  Mög¬ 
lichkeit,  einen  Überlauf  bei  Re¬ 
chenoperationen  aufzufangen. 
Erinnern  Sie  sich  an  die  letzte 
Folge,  wo  wir  mittels  ASL  Multi¬ 
plikationen  durchgeführt  hat¬ 
ten?  Dort  kann  es  unter  gewissen 
Umständen  ja  leicht  geschehen, 
daß  ein  Byte  für  das  Ergebnis 
nicht  mehr  au3reicht.  Wir  haben 
in  den  Beispielen  schon  die 
Überlegung  durchgeführt,  daß 
man  mittels  BCC  oder  BCS  prü 
fen  sollte,  ob  man  eine  signifi¬ 
kante  Stelle  (also  eine  führende 
1)  aus  dem  Byte  herausgescho¬ 
ben  hat.  Ist  das  der  Fall,  dann 
gibt  es  zwei  Wege: 


138  jJdfä? 
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1)  Man  veranlaßt  den  Ausdruck 
eines  OVERFLOW  ERROR, 
wenn  nur  1-Byte-Zahlen  zulässig 
sind,  oder 

2)  man  schaltet  um  auf  2-Byte- 
Zahlen. 

Sehen  wit  uns  das  mal  an  dem 
Sulu ill  7  des  Beispiels  aus  der 
letzten  Folge  an.  Dort  hatten  wir 
die  Zahl  19?, (binär  1100  0000)  vor¬ 
liegen  (zum  Beispiel  in  Speicher¬ 
stelle  7000).  Im  Computer  wer¬ 
den  2-Byte-lniegers  in  der  Form 
LSB/MSB  verarbeitet.  Wir  schaf¬ 
fen  also  die  Speicherstelle  für 
das  MSB  von  192  in  7001.  Jetzt 
muß  dort  noch  0  drin  stehen.  Um 
bei  nochmaliger  Multiplikation 
mit  2  eine  16-Bit-Zahl  als  Ergeb¬ 
nis  zu  erhalten,  verfährt  man  wie 
folgt: 


Die  Einsatzmöglichkeiten  für 
ROR  sind  allerings  geringer.  Bei 
16-Bit-Divisionen  kann  man  zwar 
ROR  einsetzen,  um  einen  Unter¬ 
lauf  des  MSB  ins  LSB  aufzufan¬ 
gen.  Weil  man  aber  meist  ohne¬ 
hin  andere  Divisionsverfahren 
verwendet  als  das  oben  gezeig¬ 
te  mit  LSR,  erübrigt  sich  diese 
Anwendung  in  den  meisten  Fäl¬ 
len.  Gut  kann  man  ROR  zu  Bit¬ 
prüfungen  einsetzen.  Das  soll  im 
nächsten  A-bschnitt  an  einem 
kleinen  Beispiel  gezeigt  wer¬ 
den. 

Zuvor  aber  noch  eine  Bemer¬ 
kung:  Wir  sind  nun  durch  den 
Befehlssatz  des  6502-Assem- 
biers  fast  hindurchgedrungen. 
Es  fehlen  uns  nur  noch  —  wenn 
ich  mich  nicht  versehen  habe  — 


6000 

ASL7000 

Damit  ist  die  führende  1  ins  Carry-Bit 
gewandert 

6003 

BCC  6008 

Das  setzt  man  natürlich  nur  dann  ein,  wenn 
man  nicht  genau  weiB,  welches  Ergebnis  zu 
erwarten  ist. 

Wenn  keine  1  ins  Carry-Bit  gelangte,  kann 
man  die  nächste  Zeile  überspringen. 

6006 

ROL  7001 

Damit  wurde  der  Inhalt  des  Carry-Bit  als  Bit  0 
ins  MSB  unseres  Ergebnisses  geschoben. 

6008 

etc. 

Die  Funktion  dieser  Befehlsae- 
cuenz  können  Sie  aus  Bild  3  ent¬ 
nehmen. 

Diesem  Befehl  werden  wir 
später  bei  der  16-Bit-Multiplika 
tion  und  Division  noch  häufig  be¬ 
gegnen. 

Sehen  wir  uns  nun  noch  den 
letzten  der  Bit-Verschiebebefeh¬ 
le  an:  ROR.  ln  Bild  4  ist  schema¬ 
tisch  gezeigt,  wie  rotiert  wird. 

Jedes  Bit  wandert,  wie  bei 
LSR,  um  eine  Stelle  nach  rechts. 
Als  Bit  7  kommt  (im  Gegensatz  zu 
LSR)  der  Inhalt  des  Carry-Bit 
herein.  Bit  0  wird  ins  Carry-Bit 
geschoben.  Adressiert  werden 
kann  ROR  ebenso  wie  ROL: 


ROR 

ROR  6000 
ROR  FE 

ROR  6000.X 

ROR  FEX 


auf  den  Äklcu 

bezogen 

absolut 

Zeropage-ab- 

solut 

absolut-X-indi- 

ziert 

Zeropage-ab- 

solut-X-indi- 

ziert 


Auch  für  die  Byteanzahl,  den 
Ort  des  Ergebnisses  und  die 
Flaggenbeanspruchung  gilt 
dasselbe  wie  für  ROL, 


vier  Befehle.  Die  allerdings  hän¬ 
gen  eng  mit  dem  sogenannten 
Interrupthandling  zusammen, 
das  uns  wohl  einige  Zeit  be¬ 
schäftigen  wird. 

Schneller  Joystick 

Vor  eimger  Zeit  (64‘er,  Ausga¬ 
be  2/8S)  veröffentlichte  P.  Sie 
pen  eine  Routine  zur  Abfrage 
des  Joystickports,  die  eine  inter¬ 
essante  Leserbrief-Reaktion 
hervorrief.  M.  Hartig  sandte 
nämlich  einen  Verbesserungs¬ 
vorschlag,  in  dem  der  uns  inter¬ 
essierende  Befehl  ROR  die 
Hauptrolle  spielt.  Bevor  ich  die 
allerdings  vorstelle,  muß  erst 
noch  geklärt  werden,  was  und 
wie  abgefragt  wird. 

Signale  vom  Joystick  landen  in 
den  DATÄ-Ports  A  oder  B  des 
CIA  1.  CIA  heißt  »Complex  Inter¬ 
face  Adapter«  und  ist  die  Institu¬ 
tion  unseres  Computers,  die  den 
Verkehr  mit  der  Außenwelt  er¬ 
laubt.  Wir  haben  zwei  Stück  da¬ 
von  (CIA  1  und  CIA  2).  Je  nach¬ 
dem,  in  welchen  Port  der  Joy¬ 
stick  gesteckt  wurde,  laufen  die 
Signale  in  den  Registern  DCOO 
oder  DC01  (dezimal  66320  oder 
56321)  ein.  Wir  nehmen  im  weite¬ 
ren  mal  DCOO  an.  Die  Bits  0  bis  4 
beziehen  sich  auf  den  Joystick: 


Bit  0  oben 

Bit  1  unten 

Bit  2  links 

Bit  3  rechts 

-Bit  4  Feuerknopf 

Wenn  keine  dieser  Möglich¬ 
keiten  angesprochen  ist,  enthal¬ 
ten  diese  Bits  den  Wert  1.  Drückt 
man  beispielsweise  den  Feuer¬ 
knopf,  dann  wechselt  der  Inhalt 
von  Bit  4  zum  Wert  0.  Man  muß  al¬ 
so  ständig  diese  Bits  überprüfen 
und  reagieren,  sobald  eines  da¬ 
von  0  wird.  Die  Lösung  von  P.  Sie- 
pen,  diese  Abfrage  in  das  Inter- 
niptprogramm  einzubauen,  ist 
sehr  brauchbar.  Dadurch  hat 
der  Computer  die  Möglichkeil, 
trotzdem  an  anderen  Aufgaben 
weiterzuarbeiten.  Wir  werden  in 
den  nächsten  Folgen  auf  diese 
Programmiertechnik  eingehen. 
Die  Verbesserung  von  M.  Haxtig 
besteht  darin,  daß  er  nicht  durch 
CMP-Befehie  den  Inhalt  von 
DCOO  prüft  (was  Zeit  und  auch 
Speicherplatz  kostet),  sondern 
mittels  ROR  Bit  für  Bit  nach 
rechts  in  das  Carry-Bit  schiebt 
und  dieses  dann  mit  BCC  ab¬ 
fragt.  Sobald  die  Carry-Flagge 
nämlich  frei  ist,  ist  die  zu  dem  Bit 
gehörige  Joystickfunktion  ge 
fragt. 

Nun  die  Abfrageroutine: 


Der  Vorteil  dieser  nur  18  Byte 
langen  Unterroutme  liegt  in  ih¬ 
rer  Schnelligkeit:  Sie  braucht 
nur  24  Taktzyklen,  wenn  nicht 
verzweigt  wird,  beziehungswei¬ 
se  26,  »venn  verzweigt  wird.  Na¬ 
türlich  wäre  anstelle  von  ROR 
auch  die  Verwendung  von  LSR 
möglich  gewesen,  denn  die  her¬ 
ausgeschobenen  Bits  werden 
nicht  mehr  benötigt.  Im  Falle, 
daß  man  nach  einer  solchen  Ab¬ 
frage  wieder  den  Ausgangszu¬ 
stand  des  Akku  oder  der  Spei¬ 
cherstelle  hersteilen  will,  muß 
man  eine  entsprechende  Anzahl 
ROR- Anweisungen  anschließen, 
bis  Bit  0  wiedei  in  seine  Aus¬ 
gangslage  rotiert  ist. 

Oie  1 6-Bit-Multiplikation 

Wir  haben  in  der  letzten  und  in 
diesei  Folge  geleint,  wie  man 
8-Bit-Zahlen  miteinander  mai¬ 
nehmen  kann  um  8-  oder  16-Bit- 
Zahlen  zu  erhalten.  Dabei  ist  un¬ 
befriedigend,  daß  man  sich 
über  jede  Zahl  Gedanken  ma¬ 
chen  muß,  wie  man  sie  am  be¬ 
sten  multipliziert.  Was  fehlt,  ist 
ein  allgemein  gültiges  Pro¬ 
gramm,  das  in  der  Lage  ist,  jede 
Zahlenkombination  (solange  es 
sich  um  2-Byte-Integers  handelt 
und  das  Ergebnis  als  16-Bit-Zahl 


LDfi  DCOO 

Inhalt  des  DÄTA-Port  Ä  in  den  Akku 

ROR 

Durch  Rechtsrotieren  wird  Bit  0  in  die  Carry-Flagge 
geschoben. 

BCC  Oben 

Wenn  die  Carry-Flagge  nicht  gesetzt  ist,  war  Bit  0  eine 
Null,  also  die  Joystickfunktion  »Oben«  gefordert,  zu 
deren  Bearbeitung  hier  verzweigt  werden  kann. 

ROR 

Das  nächste  Rechtsrotieren  schiebt  Bit  1  in  die  Carry 
Flagge, 

BCC  Unten 

Auch  hier  wieder  Abzweigen  zur  Bearbeitung  von 
»Unten«,  wenn  Bit  1  nicht  gesetzt  war. 

ROR 

Bit  2  ins  Carry-Bit 

BCC  Links 

und  bearbeiten,  wenn  nicht  gesetzt 

ROR 

Bit  3  in  Carry-Flagge 

BCC  Rechts 

und  verzweigen  wenn  Bit  3  Null  war 

ROR 

zu  guter  Letzt  kommt  noch  Bit  4  ins  Carry-Bit 

BCC  Fire 

und  kann  bearbeitet  werden,  wenn  es  Null  war. 

_...  weitere  Bearbeitung,  wenn  keine  Joystickfunktion 
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darstellbar  ist)  zu  verarbeiten, 
Und  da  haben  wir  mal  wieder 
Glück:  Gut  versteckt  befindet 
sich  so  etwas  bereits  fertig  in  un¬ 
serem  Computer,  Ab  dez.  45900 
($B34C)  liegt  im  Interpreter 
selch  eine  Routine  und  ihr  Ein¬ 
sprungspunkt  ist  für  uns  bei  dez, 
45911  (SB357).  Bevor  wir  aber  de¬ 
tailliert  darauf  eingehen,  soll 
noch  das  Prinzip  erklärt  werden , 
das  dabei  genutzt  wird. 

Jeden  Tag  rechnen  Sie  wahr¬ 
scheinlich  völlig  automatisch 
Multiplikalionsaufgaben,  ohne 
noch  Gedanken  daran  zu  ver¬ 
schwenden,  wieviel  Schweiß 
das  Erlernen  dieser  Technik  frü¬ 
her  mal  gekostet  hat.  Könnten 
Sie  heute  noch  jemandem  genau 
erklären,  warum  man  da  was 
wie  macht?  Genau  das  müssen 
wir  aber  tun,  damit  der  Binärau¬ 
tomat  (unser  C  64)  multiplizieren 
lernt.  Nehmen  wir  mal  eine  Mul¬ 
tiplikation  von  16x15. 

16  x  15 
16 

80 

240 

Daß  wir  nicht  so  genau  wissen, 
was  wir  da  tun,  liegt  am  ziemlich 
komplizierten  Zehnersystem. 
Damit  das  alles  einfacher  und 
überschaubarer  wird,  wechseln 
wir  mal  ms  Binärsystem  16  = 
10000,  15  =  1111.  Die  Aufgabe 
sieht  dann  so  aus; 

10000*  1111 
10000 
10000 
10000 
10000 
11110000 

Jetzt  wird  schon  deutlicher, 
was  wir  getan  haben.  Der  Faktor 
auf  der  rechten  Seite  wurde  vom 
MSB  an  Bit  für  Bit  durchgesehen. 
Jedesmal,  wenn  wir  auf  eine  1 
gestoßen  sind  (hier  waren  nur 
Einsen),  haben  wir  den  links  ste¬ 
henden  Faktor  notiert.  Dabei 
sind  wir  von  mal  zu  mal  um  eine 
Stelle  nach  rechts  gerückt,  was 
zu  tun  hat  mit  dem  Stellenwert 
des  im  rechten  Faktor  gerade 
betrachteten  Bits.  Das  geschah 
so  lange,  bis  alle  Bits  des  rechten 
Faktors  durchgearbeitet  waren. 
Die  sich  auf  diese  Weise  erge¬ 
bene  Kolonne  wird  dann  addiert 
und  führt  zum  Ergebnis,  Verglei¬ 
chen  Sie,  240  ist  wirklich  binär 
1111  0000. 

Genauso  wie  hier  beschrie¬ 
ben,  arbeitet  das  Multiplika¬ 
tionsprogramm-  Ein  Unter¬ 
schied  tritt  auf,  nämlich  daß 
nicht  bis  zum  Schluß  mit  der  Ad¬ 
dition  gewartet,  sondern  jede 
neue  Zwischenzahl  sofort  ad¬ 
diert  wird.  Bild  5a  zeigt  die  Be¬ 
schreibung  der  Interpreterrou¬ 
tine: 


Name 

Zweck 

Adresse 

Vorbereitungen 

Speicherstellen 

Register 

Stapelbedarf 


UMULT 

Multiplikation  zweier  16-Bit-Zahlen 
SB357  dez.  45911 
Faktor  1  in  $28/29 
Faktor  2  in  $71/72 
$28/29,$71/72,  $5D 
Akku,  X-  und  Y-Register 
keiner 


Bild  5a.  Die 
Interpreterroutine 
UMULT 


Diese  Routine  hier  abzu¬ 
drucken :  wäre  reine  Platzver- 
schwendung.  Schalten  Sie  ein¬ 
fach  den  SMON  ein  und  verlan¬ 
gen  Sie  von  ihm  ein  Disassem- 
blerlisting  ab  B357.  Dort  haben 
Sie  dann  für  die  weitere  Bespre¬ 
chung  alles  parat.  In  Bild  5  fin 
den  Sie  noch  ein  nußdiagramm 
der  UMULT-Routine 
Das  Ergebnis  der  Multiplika¬ 
tion  befindet  sich  in  LSB/MSB- 
Form  in  den  X/Y-Registern  Pro¬ 
gramm  und  Flußdiagramm  wol¬ 
len  wir  an  einem  Beispiel  nach- 
spieien.  Dazu  sollen  die  beiden 
Zahlen  321  und  65  (binär  0000 
0001 0100  0001  und  0100  0001)  mit¬ 
einander  multipliziert  werden, 
was  bekanntlich  20865  (binar 
0101  0001  1000  0001)  ergibt.  Was 
Ihnen  im  Bild  6  als  undurchdring¬ 
licher  Bit-Dschungel  entgegen¬ 
strahlt,  ist  das  schrittweise  Ver¬ 
folgen  des  Programms  in  Com¬ 
puterformat,  also  binär. 

In  Bild  6  sind  die  Speicher¬ 
adressen  alle  dezimal  angege¬ 
ben.  Dort  finden  Sie  zunächst  die 
Ausgangslage.  In  Speicherstelle 
40/41  steht  die  ganze  Operation 
über  unverändert  die  Zahl  321. 
In  113/114  finden  Sie  (wegen  des 
LSB/MSB-Formates  umgedreht 
als  114/113)  unseren  Faktor  65, 
Akku  und  Speicherstelle  93  ste¬ 
hen  auf  16,  dem  Bitzähler.  In  das 
X-  und  Y-Register  wurde  eine 
Null  eingelesen.  Im  Flußdia¬ 
gramm  ist  diese  Situation  mit  ei¬ 
ner  1  gekennzeichnet.  Ganz  un¬ 
ten  im  Diagramm  sehen  Sie,  daß 
der  Bitzähler  93  erniedrigt  und 
danach  geprüft  wird,  ob  er 
schon  gleich  Null  sei.  Daraus 
folgt  daß  die  große  Schleife 
i6mal  durchlaufen  wird.  Den  er¬ 
sten  Durchlauf  (gekennzeichnet 
durch  kleine  Buchstaben)  ver 
folgen  wir  im  einzelnen. 

a)  X-Register  wird  zur  Bearbei¬ 
tung  in  den  Akku  geschoben. 

b)  Mittels  ASL  wird  das  Bit  7  in 
die  Carry-Flagge  geschoben, 
was  einen  Carry-Inhalt  von  0  be¬ 
wirkt. 

t)  Der  solchermaßen  bearbeite¬ 
te  Akku-Inhalt  (der  sich  hier 
nicht  weiter  verändert  hat)  geht 
wieder  zurück  ins  X-Register. 

d)  Nun  ist  das  Y-Register  zur  Be¬ 
arbeitung  dran.  Es  gelangt  in 
den  Akku. 

e)  Mittels  ROL  wandert  nun  das 
MSB  des  X-Registers  aus  dem 
Carry-Bit  in  die  O-Bit  Position  des 
Akku 

f)  und  alles  zusammen  wieder 
ins  Y-Register.  Insgesamt  wird 
dadurch  die  16-Bit-Zahl  im  X/Y- 
Register  um  eine  Steilenzahl  er¬ 
höht,  was  der  Vorbereitung  zur 
Addition  dient.  (Erinnern  Sie 
sich  bitte:  Die  Kolonne  der  Ein¬ 
zelergebnisse  wird  ja  addiert). 
Im  Diagramm  (ohne  tJuchsta- 
benkennzeichnung)  schließt 
sich  hier  noch  eine  Prüfung  auf 
einen  eventuellen  Überlauf  an. 
der  dann  mit  einer  Fehlermel¬ 
dung  beantwortet  wird. 
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0 
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0 

0 

Ende  1. 

0 

Schleife 

1,0 

Ende  2,  Schiede 

0 

Ende  3.  Schiede 

0 

Ende  4.  Schiede 

0 

Ende  5.  Schleife 

0 

Ende  6.  Schleife 

0 

Ende  7.  Schiede 

1,0 

Ende  8.  Schiede 

0 

Endo  9.  Schiede 

1.0 

Ende  10.  Schleife 

0 

Ende  1  i .  Schleife 

1,0 

Ende  12.  Schleife 

0 

Ende  13.  Schleife 

0 

Ende  14.  Schiede 

0 

Ende  15.  Schiede 

0 

1,0 

Ende  16.  Schleife 

Bild  6.  UMULT  am  Beispiel  der  Multiplikation  321  x  65  =  20865 


g)  Nun  wird  das  MSB  der  Spei- 
cherstelle  113  nach  links  ins  Car¬ 
ry  geschoben.  Das  ist  auch  hier 
noch  eine  Null. 

h)  Anschließend  wandert  dieser 
Carry-Inhalt  als  Bit  0  in  Speicher¬ 
steile  114.  Bit  7  von  114  landet  da¬ 
für  im  Carry.  Auch  hier  wird  auf 
diese  Weise  die  ganze  16-Bit- 
Zahl  113/114um  ein  Bit  nach  links 
geschoben  und  im  nächsten 
Schritt  —  im  Flußdiagramm  wie¬ 
der  ohne  Buchstabe  —  geprüft, 
ob  da  eine  1  oder  eine  0  ins 
Carry-Bit  geshiftet  wurde.  Wenn 
lediglich  eine  Null  auftrat  —  wie 
hier  — ,  dann  springt  das  Pro¬ 
gramm  sofort  zum  Herabzählen 
des  Bitzahlers  93.  Tritt  aber  eine 
1  auf,  dann  addiert  sich  der  In¬ 
halt  von  40/41  su  X/Y. 

i)  Hier  wird  der  Zustand  der  be¬ 
troffenen  Speicherstellen  und 
Register  nach  dem  ersten 
Schleifendurchiauf  gezeigt. 

Römisch  II  bis  XVI  zeigen  nun 
jeweils  den  Zustand  nach  dem  2. 
bis  16.  Durcharbeiten  der  gro¬ 
ßen  Schleife.  Wenn  Sie  verste¬ 
hen  möchten,  was  da  passiert, 
sollten  Sie  versuchen,  Bild  6  nur 
als  Kontrolle  zu  verwenden  und 
ansonsten  mal  selbst  alle  Schrit¬ 
te  nachzuvollziehen. 

16-Bit-Division 

Beim  umgekehrten  Weg,  näm¬ 
lich  der  Teilung  von  zwei  16-Bit- 
Zahlen,  haben  wir  nicht  so  viel 
Glück:  Ich  konnte  keine  derarti¬ 
ge  Routine  im  Interpreter  ent¬ 
decken.  Nun  gibt  es  aber  fast  in 
jedem  Lehrbuch  der  Maschi¬ 
nensprache  die  Vorstellung  ei¬ 
nes  solchen  Programms,  so  daß 
man  sich  das  schönste  aussu¬ 
chen  kann.  Das  Prinzip  ist  auch 
da  dasselbe,  wie  wir  es  von  der 
normalen  Division  gewohnt  sind: 
Der  Divisor  wird  Schritt  für 
Schritt  vom  Dividenden  abgezo¬ 
gen.  ln  der  Literatur  [1]  fand  ich 
eine  sehr  kurze  Routine  die  ich 
Ihnen  leicht  modifiziert  als  Pro¬ 
gramm  1  vorstellen  will. 


(Start 
Division 


Initialisieren; 

(5C) 

0  -  (SD) 


16  - 

X 

y 

W- 

-  1  1 

i  i  i 

-fo 

58 

- 1  ! 

1  1  1  l-K 

y-1 

5C 

1  1 

.I...l-h 

V 

C 

y- 

- -  J 

SD 

■  1  1 

1  1  1  l-K 

\ _ 

Subtraktion 

5C/3D  -  59/SA 
-  X/A 

I 

(57)  -  (57)  -r  1 

~~E= 


y  — y—  i 


Bild  7.  Flußdiagramm  des 
Programms  zur 
16-Bit-Division 

A  :  B  =  C  +  Resl 

57/58  59/5o  57/58  5(/5d 


In  Bild  7  ist  ein  Flußdiagramm 
dieser  Routine  gezeigt  und  in 
Bild  8  lacht  Ihnen  wieder  das  Bit- 
Gewirr  entgegen,  das  Sie  schon 
von  der  Multiplikation  her  ken¬ 
nen,  hier  aber  für  die  Division. 

Damit  Sie  wissen,  wo  was 
hinein-  oder  herauskommt: 

A  :  B  =  C  +  Rest 
t  I  1  I 

$57/58  S59/5A  $57/58  $5C/SD 

An  dem  folgenden  Beispiel 
soll  der  Pxogrammveilauf  gete¬ 
stet  werden:  Wir  teilen  20867 
durch  321.  Dabei  kommt  nach 
Adam  Riese  heraus:  65,  Rest  2 

In  folgender  Weise  wird  in  die 
Speicherzellen  die  Aufgabe  ein¬ 
gespeist: 


20867 

$57 

1000 

0011 

LSB 

$58 

0101 

0001 

MSB 

321 

$59 

0100 

0001 

LSB 

$5Ä 

0000 

0001 

MSB 

Als  Ergebnis 

findet 

man  dann: 

65 

$57 

0100 

0001 

LSB 

$58 

0000 

oooo 

MSB 

Rest  2 

$SC 

0000 

0010 

LSB 

$SD 

0000 

oooo 

MS3 

Als  Bit-Zähler  dient  hier  das  Y . 
Register. 

b)  Erstes  Linksschieben  des  LSB 
mittels  ASL.  Dabei  gelangt  die  1 
in  das  Carxy-Bit. 

c)  Hineinrotieren  der  1  aus  dem 
Carry  in  das  MSB  mittels  ROL. 

d) ,  e)  Linksrotieren  der  16-Bit- 
Zahl  in  $5C/5D,  die  jetzt  noch  0 
ist. 

f)  Situation  am  Ende  der  ersten 
Schleife.  Der  Bitzähler  ist  um  1 
reduziert. 

Im  folgenden  wird  dann  je¬ 
weils  die  Situation  am  Ende  der 
Schleife  gezeigt.  Beim  Berech¬ 
nen  der  Differenz  muß  jeweils 
darauf  geachtet  werden,  daß 
die  Subtraktion  einer  Zahl  als 
Addition  des  Zweierkomple¬ 
ments  ausgeführt  wird,  Das  ha¬ 
ben  wir  in  den  Folgen  3  und  4 
der  Serie  kennengelernt.  Aller¬ 
dings  muß  an  dieser  Stelle  noch¬ 
mal  gesagt  werden,  daß  die  1, 


die  zum  Einerkomplement  hin¬ 
zuaddiert  wird,  um  das  Zweier¬ 
komplement  zu  erhalten,  das  ge¬ 
setzte  Carry-Bit  ist.  Nun  dürfte  es 
für  Sie  eigentlich  keine  Proble¬ 
me  mehr  geben,  'was  das  Nach- 
voliziehen  der  Divisionsrouline 
betrifft. 

Damit  dürfen  wir  getrost  die 
16-Bi:-Anthmetik  abschließen. 
Alle  vier  Grundrechnungsarten 
können  Sie  jetzt  programmieren. 
Weitere  Rechenarten,  wie  Po¬ 
tenzieren,  das  Ziehen  von  Wur¬ 
zeln,  Logarithmen  etc.  bedingen 
ohnehin,  daß  die  Argumente 
oder  Ergebnisse  keine  Integer¬ 
zahlen  sind.  Hier  werden  wir 
dann  mit  Fließkommaarithmetik 
arbeiten  und  den  dazu  vorgese¬ 
henen  Intel  pieteiroulinen. 

Das  Programmprojekt  wird  forlgeführt 

Im  6.  Tfeil  dieser  Serie  haben 
wir  ein  Projekt  gestartet,  das 
dort  eine  Kopfzeile  rückholbar 
unter  den  oberen  ROM-Bereich 
verschob.  Unser  Wissen  ist  seit¬ 
her  gestiegen  und  damit  auch 
unsere  Ansprüche.  Eine  Kopf¬ 
zeile  reicht  nicht  mehr,  jetzt  soll 
es  ein  ganzer  Hilfsbildschirm 
sein,  den  wir  erst  in  aller  Ruhe 
erstellen  wollen,  um  ihn  dann  je¬ 
derzeit  abrufbar  unter  das  Be¬ 
triebssystem  zu  packen.  Den 
Aufruf  wollen  wir  wieder  mit  der 
USR  Funktion  steuern.  Diesmal 
soll  aber  so  programmiert  wer¬ 
den,  daß  der  Hilfsbildschirm  er¬ 
haltenbleibt,  man  ihn  also  mehr¬ 
fach  einblenden  kann.  Über  die 
Nützlichkeit  einer  solchen  Routi¬ 
ne  braucht  man  sicherlich  nicht 
viele  Werte  zu  verlieren:  Den¬ 
ken  Sie  da  nur  mal  an  Program¬ 
me,  die  irgendwelche  Tasten  mit 
besonderen  Funktionen  bele¬ 
gen,  für  die  Sie  eine  Gedächtnis¬ 
stütze  brauchen,  oder ... 

Als  Programm  2  ist  ein  kleines 
Demo-Programm  abgedruckt, 
welches  zuerst  einen  Bildschirm 
erstellt,  dann  die  Routine  »Ver- 
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0  0  0  0  0  0  l  0 
0  0  O  0  0  1  0  0 
0  0  0  0  1  0  0  0 
0  0  0  1  0  0  0  0 
00100000 
0  1  0  0  0  0  0  0 
0  1  0  0  0  0  0  1 

0  0  0  0  0  0  0  1 

0  0  0  0  0  0  0  1 
ooooooo  : 

0  0  0  0  0  0  0  1 
00000001 

0  0  0  0  0  0  0  1 
00000001 
00000001 

00000001 
OOOOOOO  1 

0  0  0  0  0  0  0  1 

0  0  0  0  0  0  0  1 

0  0  0  0  0  0  0  1 
00000001 

0  0  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 

0  l  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 
01000001 

0  1  0  0  0  0  0  l 

0  1  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 

0  1  0  0  0  0  0  1 

0  l  0  0  0  0  0  1 
01000001 

0  1  0  0  0  0  0  1 

0  1  0  0  0  0  O  1 

0  I  0  0  0  0  0  1 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

OOOOOOO  1 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 

oooooooo 
0  0  0  0  0  0  o  1 
oooooooo 

ooooooo  1 
00000010 

0  0  0  0  0  l  0  l 

0  0  0  0  1  0  1  0 

0  0  0  1  0  1  0  0 

0  0  1  0  1  0  0  0 

0  1  0  1  0  0  0  I 

1  0  1  0  0  0  1  1 

0  1  0  0  0  1  1  0 

0  0  0  0  0  1  0  1 

0  0  0  0  l  0  1  0 

0  0  0  1  0  1  0  0 
00101000 
0  10  1  0  0  0  0 
>010  0  0  0  1 

0  0  0  0  0  0  1  1 

0  0  0  0  0  0  1  0 

1  1  I  1  1  I  1  0 

1  1  1  1  1  1  1  0 

1  1  1  1  1  1  10 

1  1  1  1  1  1  1  0 
l  1  1  1  1  1  1  0 

1  1  1  1  1  1  I  0 
11111111 
11111111 
oooooooo 

oooooooo 

1  1  1  1  1  1  1  0 

1  1  1  1  t  1  1  0 

1  I  11  1  1  1  0 

I  !  1  1  1  1  1  I 

1  1  11  1  1  1  1 
oooooooo 
oooooooo 

1  1  0  0  0  0  0  0 

1 1000001 

1  1  0  0  0  1  0  0 
11001001 
11010011 
11100111 

0  0  0  1  0  0  0  0 

0  1  1  0  0  0  1  0 

0  0  0  0  0  1  0  1 

0  0  0  0  0  1  0  1 

1  1  0  0  10  0  1 

1  1  0  1  0  0  1  l 

1  I  1  0  0  1  1  1 

0  0  0  0  1  1  1  1 

0  1  1  0  0  0  0  0 
0  0  0  0  0  0  1  0 
0  0  0  0  0  0  1  0 

0  0  0  0  1  1  10 

0  0  0  0  1  10  1 

0  0  0  0  1  1  0  0 

0  0  0  0  1  0  1  I 

0  0  0  0  1  0  1  0 

0  0  0  0  1  0  0  1 

0  0  0  0  1  0  0  0 

0  0  0  0  0  1  1  1 

00000110 

0  0  0  0  0  1  0  1 

0  0  0  0  0  1  0  0 
0  0  0  0  0  0  1  1 

0  0  0  0  0  0  10 
0  0  0  0  0  0  0  1 

oooooooo 

1.0,  l.o 

l.o 

1.0.  l.o 
1.0 

1.0 

1.0. 1.0 

1. 1.0, 1.0 
l.o.  1.0 
1.0.  1.  1 

1.0 

l.o 

1.0 

1.0 

1.0,  1.0 
i.i.o.u 

Ende  der  2  Schleife 

Ende  der  3.  Schleife 

Ende  der  4.  Schleife 

Ende  der  5  Schleif« 

Ende  der  6.  Schleife 

Ende  der  7.  Schleife 

Ende  der  8  Schleife 

Ende  der  9.  Schleife 

Ende  der  10.  Schleife 

Endo  der  11.  Schleife 

Ende  der  12.  Schleife 

Ende  der  13.  Schleife 

Ende  der  14.  Schleife 

Ende  der  15  Schleife 

End*  der  IS.  Schleife 
=  Endlage 

Bild  8.  16-Bit-Division  Schritt  für  Schritt  am  Beispiel  20867:321=65  Rest  2 


schieben«  aufruft,  den  Bild¬ 
schirm  löscht  und  neu  be¬ 
schreibt  und  schließlich  mit  ei¬ 
nem  weiteren  USR  den  alten 
Bildschirm  einblendet  (vorher 
Programm  3  und  4  laden). 

Von  nun  an  können  Sie  immer 
—  auch  im  Direktmodus — durch 
ein  USR-Kommando  diesen  Bild¬ 
schirm  abbilden.  Zum  Pro¬ 
gramm  in  der  Folge  6  sind  noch 
zwei  Dinge  zu  bemerken,  die 
hier  geändert  werden  sollen.  Er¬ 
stens  eine  Frage:  Ist  Ihnen  der 
Computer  mal  abgestürzt  beim 
Aufruf  des  Programms?  Die 
Wahrscheinlichkeit  dafür  ist  un¬ 
gefähr  1  :  60,  wenn  nämlich  ein 
Interrupt  stattfindet,  während 
die  Speicherstelle  1  geändert 
wird.  Obwohl  wir  erst  in  den 
nächsten  Folgen  auf  Interrupts 
eingehen  werden,  wollen  wir 
die  Wahrscheinlichkeit  für  so  ei¬ 
nen  Absturz  auf  Null  reduzieren. 
Eine  andere  Sache  ist  der  Ort, 
an  dem  sich  das  Programm  be¬ 
fand.  Es  hat  sich  nämlich  heraus¬ 
gestellt,  daß  anscheinend  die 
Nutzung  dieses  dort  gewählten 
Speicherbereichs  nicht  ganz  so 
problemlos  ist.  Bei  einigen  An¬ 
rufen  wurde  mir  erzählt,  daß  zu¬ 
mindest  der  Anfang  ab  $02A7 
bei  bestimmten  Konstellationen 
überschneben  wird.  Deswegen 
packen  wir  unser  Programm 
ganz  unkonventionell  nach 
$6000,  von  wo  Sie  es  —  das  be¬ 
herrschen  Sie  ja  mit  dem  SMON 
inzwischen  sicher  —  dorthin 
schieben  können,  wo  es  Ihnen 
gefallt.  Allerdings  müssen  dann 
auch  die  USR-Adressen  geän¬ 
dert  werden.  Aber  auch  das 
dürfte  für  Sie  inzwischen  kein 
Problem  mehr  sein. 

Um  diese  immerhin  schon 
2000  Byte  (1000  für  den  Bild¬ 
schirm  und  nochmal  1000  für 
das  Farb-RAM)  zu  verschieben, 


bedienen  wir  uns  einer  Interpre  - 
ter-Routine,  die  seit  Ausgabe 
3/8S  des  64'er  auch  beim 
Checksummer  verwendet  wird 
—  der  Block verschjebe-Routme 
(Bild  9a). 

Wieder  besteht  unser  Pro¬ 
gramm  aus  zwei  Teilen.  Im  er¬ 
sten  wird  der  aktuelle  Bild¬ 
schirm  nach  oben  geschoben. 
Dieser  Teil  speist  lediglich  zu¬ 
erst  die  Adressen  des  Bild 
schirms  und  des  Betriebssy¬ 
stem-ROM  in  die  Abholspei¬ 
cherstellen  der  danach  aufgeru- 
fenen  Routine  BLTUC  und  wie¬ 
derholt  diesen  Vorgang  für  die 
Bildschirmfarbspeicheradres- 
sen.  Danach  verstehen  wir  noch 
den  USR-Vektor  und  kehren  mit 
TRS  ins  Basic-Programm  zurück 
(siehe  Programm  3). 

Komplexer  ist  der  zweite  Teil. 
Um  nämlich  die  Informationen 
unter  dem  ROM  lesen  zu  kön¬ 
nen,  muß  dieses  ausgeschaltet 
werden.  Leider  läßt  sich  das 
Betriebssystem-ROM  nur  zu¬ 
sammen  mit  dem  Basic-Inteipie- 
ter  ausschalten.  $A3BF  ist  aber 
eine  Interpieter-Routine!  Da 
bleibt  uns  nichts  anderes  übrig, 
als  diese  Routine  in  unser  Pro¬ 
gramm  einzubauen,  was  uns  die 
Gelegenheit  gibt,  sie  uns  mal  et¬ 
was  anzusehen.  Als  Bild  9  ist  sie 
im  Flußdiagramm  abgebüdet. 

Programm  4  zeigt  den  zweiten 
Teil  unseres  Hilfsbildschirm- 
Programms. 

Von  $6040  an,  wohin  wir  am  En¬ 
de  des  ersten  Teils  den  USR- 
Vektor  gerichtet  haben,  wird  zu¬ 
nächst  wieder  Quell-  und  Ziel¬ 
bereich  in  den  Abholspeicher¬ 
stellen  spezifiziert  und  jeweils 
danach  zuerst  für  den  Bild¬ 
schirm,  dann  für  das  Farb-RAM. 
das  übernommene  Unterpro¬ 
gramm  angesprungen.  Ab 
$6077  hegt  dann  das  modifizierte 


Name 

BLTUC 

Zweck 

Verschieben  von  Speicherinhalten  im  Speicher 

Adresse 

$A3BF  dez.  41919 

Vorbereitungen 

Quelle  Slciitddresse  nach  $5F/G0 

Endadresse  + 1  nach  $5A/5B 

Ziel  Endadresse  + 1  nach  $58/59 

Speicherstellen 

$58-SB,  $5F,  $60,  $22 

Register 

Akku.  X-  und  Y-Register 

Stapelbedarf 

keiner  Hlld  9a.  BLTUC 

(das  >st  cm  unbedingter  Sprung,  woil 
Carry  hier  immer  0  ist) 

0 — -4 _ 

Restbereich  um- 
ladon  über  A 

(!) 


Bild  9.  Flußdiagramm  zur 
Betriebsroutine  BLTUC 


Unterprogramm.  Die  Befehle 
SEI  und  CLI  gehören  zu  den  we¬ 
nigen,  die  Sie  erst  noch  kennen- 
lemen  Sie  sind  es,  die  die  Ab¬ 
sturzwahrscheinlichkeit  auf  Null 
bringen.  Jedenfalls  wird  zuerst 
das  ROM  aus  und  dafür  RAM 
eingeschaltet.  Ab  $6C7F  bis 
S60B9  befindet  sich  die  Inter¬ 
preter-Routine  BITUC.  Darin  wird 
zunächst  die  Länge  des  zu  ver¬ 
schiebenden  Bereichs  berech¬ 
net,  dann  festgestellt,  ob  nur 
ganze  Pages  (Seiten)  oder  auch 
em  Restbereich  verschoben 
werden  soll.  Falls  ein  solcher 
Restbereich  vorhanden  ist,  wird 
auch  seine  Länge  berechnet 
und  zuerst  dieser  verschoben. 
Daran  schließt  sich  das  Ver¬ 
schieben  der  ganzen  Pages  an. 
Das  X-  und  das  Y-Register  die¬ 
nen  dabei  als  Zähler. 

Ab  $60BB  schließt  sich  wieder 
unsere  eigene  Routine  an,  in  der 
wir  die  ROMs  wieder  einschal¬ 
ten.  Auf  diese  Weise  lassen  sich 
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noch  mehrere  Hilfsbiidschirme 
unter  ROM-Bereiche  packen. 
Vielleicht  überlegen  Sie  sich 
mal  dazu  einen  Weg? 

Die  ROM-Bereiche  als  Datenquelle 
Die  ROM-Bereiche  enthalten 
nicht  nur  ausgeklügelte  Maschi¬ 
nenprogramme,  sondern  auch 


eine  Menge  Daten.  Sollten  Sie 
mal  in  die  Verlegenheit  kom¬ 
men,  beispielsweise  die  Zahl  Pi 
im  MFLPT-I  ’ormat  verwenden  zu 
müssen,  dann  erfordert  das  ei¬ 
nen  ganz  schönen  Aufwand  an 
Rechen  und  Programmarbeit, 
oder  Sie  möchten  bestimmte 


1 603F 

EA 

,6040 

A9 

00 

,6042 

05 

5F 

,6044 

A9 

E0 

,6046 

85 

63 

,6040 

A9 

E8 

,604A 

85 

5A 

,  604C 

A3 

SB 

,604F 

A9 

E3 

,6050 

03 

SD 

,6057 

A9 

07 

,6054 

B5 

59 

,6056 

20 

77  60 

,6059 

A9 

E9 

.6053 

85 

5F 

,6050 

A9 

E3 

,  605F 

85 

60 

,6061 

A9 

Dl 

,6063 

85 

5A 

,6065 

AV 

E7 

,6067 

85 

5B 

,6069 

A9 

E8 

,  6060 

85 

58 

,6060 

A9 

DB 

,  606F 

es 

39 

,6071 

70 

77  60 

,6074 

68 

NOP 

LDA  #00 
STA  5F 
LDA  HEB 
STA  60 
LDA 

STA  5A 
STA  SÖ 
LDA  #E3 
STA  53 
LDA  407 
STA  59 
JSK  6077 
LDA  WE9 
STA  5F 
LDA  4E3 
STA  60 
LDA  4D1 
STA  5A 
LDA  4»E7 
STA  5B 

LDA  WEB 
STA  5B 
LDA  4DB 
STA  S9 
JSR  6077 
RTS 


6075 

EA 

NOP 

6076 

EA 

NOP 

6077 

78 

SEI 

6078 

A5 

01 

LDA 

01 

607A 

4fl 

PHA 

607 B 

A9 

35 

LDA 

435 

607D 

85 

01 

STA 

01 

607F 

38 

SEC 

60B0 

A5 

5A 

LDA 

5A 

6082 

ES 

5F 

SBC 

5F 

Programm  4.  Zweiter  Teil  der 


,6084 

85 

22 

STA 

22 

,6006 

A8 

TAY 

i  60B7 

A5 

5B 

LDA 

5B 

,  60B9 

ES 

60 

SBC 

60 

i  609B 

AA 

TAX 

,60BL 

E8 

1NX 

i  608D 

98 

TYA 

1 608E 

F0 

23 

BEO 

60B3 

,6090 

A3 

SA 

LDA 

SA 

,60*72 

39 

SEC 

6093 

ES 

22 

SBC 

22 

,6095 

85 

5A 

STA 

5A 

,6097 

90 

03 

BCS 

609C 

,6099 

C6 

5B 

DEC 

5B 

,60YB 

38 

SEC 

,609C 

A5 

58 

LDA 

58 

609F 

F5 

22 

SBC 

22 

60A0 

83 

59 

STA 

SB 

60A2 

90 

00 

BCS 

60AC 

60A4 

C6 

59 

DEC 

59 

60A6 

90 

04 

BCC 

60AC 

60A8 

Bl 

SA 

LDA 

<5A> 

60AA 

91 

58 

STA 

(58) 

60AC 

88 

T)FY 

60AD 

DQ 

F9 

BNE 

60AQ 

60AF 

Bl 

3A 

LDA 

(3A) 

60B1 

91 

58 

STA 

(58) 

60B3 

C6 

SB 

DEC 

SB 

60B5 

C6 

59 

DEC 

39 

60B7 

CA 

DEX 

60DD 

D0 

F2 

BNE 

60AC 

60BA 

68 

PLA 

608B 

85 

01 

STA 

01 

60BD 

58 

CLI 

60BE 

60 

RTS 

Verschieberoutine 


1  REM  *********************************  <25B> 

2  REM  *  *  <229> 

3  REM  *  PROGRAMM  2  *  <125> 

4  REM  *  *  <231 > 

5  REM  *  ERSTELLEN  UND  AUFRUF  EINES  *  <186> 

6  REM  *  HILFSBILDSCHIRMES  *  <216> 

7  REM  *  *  <234> 

B  REM  *  HEIMO  PONNATH  HAMBURG  19B5  *  <B82> 

9  REM  *********************************  <BB2> 

10  PRINT  CHR*<147)  :  POKE  7B5,0:POKE  7B6,9d>: 

GOTO  3B  <B95> 

15  REM - UP  CURSOR  SETZEN -  <112> 

2B  POKE  211, SP : POKE  214,Z:SYS  58640:RETURN  <163> 
25  REM-  ERSTELLEN  DES  HILFSBILDSCHIRMES-  <123> 
30  Z= 1 s SP= 1 : GOSUB  20s PRINT"»**»*»********* 

***********************"  <151> 

40  Z=21sSP=ls GOSUB  20: PRINT"***********»** 

************************"  <21 1> 

50  Z=10: SP=7 : GOSUB  20: PR INT "TEST  FUER  DIE 

VERSCHIEBUNG"  <110> 

55  REM - AUFRUF  ZUM  VERSCHIEBEN -  <033> 

60  A-USR( DUMMY)  <195> 

65  REM  - BILDSCHIRM  NEU  BESCHREIBEN -  <193> 

70  GET  AS:  IF  AT=""THEN  70  <122> 

80  PRINT  CHR$ ( 14/ >: Z=2:SP=2: GOSUB  20:PRINT 

"JETZT  SOLLTE  DER  ALTE  BILDSCHIRM"  <092> 

90  Z=4:SP=2: GOSUB  20: PRINT "UNI  ER  DAS  KERNA 

L-ROM  GESCHOBEN  SEIN"  <150> 

100  PRINT: PRINTsPRINT"  —  JEDER C2SPACEJÜSR 

-AUFRUF  HOLT  DEN  — «  <003> 

110  PRINT"  —  HILFSBILDSCHIRM  WIEDER  . <3SP 

ACE> — "  <  06B  > 

120  PRINT"  —  AUCH  IM  DIREKT-M0DUSC7SPACEJ 


<056> 

130  PR I NT : PR INT: PR I NT " C2SPACE} PROBIEREN  SI 

E  MAL:  A=U5R ( 1 )  CRETURN1"  <050> 

140  Z=19: SP=0: GOSUB  20:END  <164> 


6  64'er 

Programm  2.  Das  Demo-Programm  zur  neuen  Verschieberoutine. 
Vorher  müssen  Programm  3  und  Programm  4  geladen  werden. 


Texte  wie  beispielsweise  eine 
Fehlermeldung  verfügbar  hal¬ 
ten  ....  und  so  weiter.  Viele  von 
diesen  Daten  sind  schon  m  der 
Firmware  enthalten  und  wir  wer 
den  im  folgenden  fosthalten,  wo 
sie  sich  befinden  und  welches 
Format  man  vorfindet.  Sehen  wir 


uns  zunächst  Zahlen  an  (Tabel¬ 
le  1).  Es  existieren  noch  weitere 
Zahlentabellen  in  den  ROM-Be- 
reichen,  die  aber  seilen  von  In¬ 
teresse  sind.  Ebenso  wie  Zah¬ 
len,  findet  man  auch  Ttexte  im 
ROM  als  ASCII-Werte  abgelegt 
(Tabelle  2): 


Startadiesse 

Formal 

Zahl 

SAEA8 

MFLPT 

Pi 

3B1A5 

MFLPT 

-32768 

5B9BC 

MFI.PT 

1 

JB9C1 

1-Byte  Integer 

3 

SB9C2 

MFLPT 

0.434255942 

$B9C7 

MFLPT 

0.376S84S41 

5B9CC 

MFLPT 

0.961800759 

SB9D1 

MFLPT 

2.88S39007 

SB9D6 

MFLPT 

0.70710678;  =  SORCI/2) 

SB9DB 

MFLPT 

1.41421356  =  SQR(2) 

JR9E0 

MFLPT 

—0.6 

SB9C5 

MFLPT 

0.693147181  =  lo2 

SBAF9 

MFLPT 

10 

SBDB3 

MFLPT 

99999999.9 

SBDB8 

MFLPT 

999999999 

SBDBD 

MFLPT 

1000000000 

$BF11 

MFLPT 

0.5 

SBFI6 

•1- Byte  Integer 

-100000000 

SBF1A 

—  **  — 

10000000 

SBF1E 

—  ■  — 

-  1000000 

SBF22 

100  ooo 

SBF26 

-10000 

SBF2A 

1000 

SBF2E 

-100 

SBF32 

10 

SBF36 

-1 

SBF3A 

-2 160000 

SBF3E 

216000 

SBF42 

-36000 

SBF46 

—  "  — 

3600 

$BF4A 

-600 

$BF4E 

60 

$BFBF 

MFLPT 

1.44269504  -  I/ln2 

$BFC4 

1-Byte-Integer 

7 

$BFC5 

MFLPT 

2.14987S37E-05 

$BFCA 

MFLPT 

1.43523140E-04 

SBFCF 

MFLPT 

1.34226348E-03 

SBFD4 

MFLPT 

9.61401701E-03 

SBFD9 

MFLPT 

0.0555051269 

SBFDE 

MFI.PT 

0.240226385 

SBFE3 

MFI.PT 

0.603147186  -  ln2 

$BFE8 

MFLPT 

1 

$E08D 

MTLPT 

11  879546 

$E002 

MTLPT 

3.92767774E-08 

$E2E0 

MFLPT 

1.57079633  -  Pi/2 

$E2E5 

MFLPT 

6.28318531  =  2*Pi 

$E2EA 

MFLPT 

0.25 

SE2ET 

1-Byle-Integer 

5 

SE2F0 

MFLPT 

-14.3813907 

SE2FS 

MTLPT 

42.0077971 

SE2FA 

MFLPT 

-76.7041703 

$E2FF 

MFLPT 

81.6052237 

$E304 

MFLPT 

-41.3417021 

JE309 

MFLPT 

6.28318531  2*Pi 

3E33E 

i-Byle-Inleger 

11 

$E33F 

MFLPT 

— 6.8473912E — 04 

$E344 

MFLPT 

4.85094216E  03 

$E349 

MFLPT 

—0.0161117018 

$E34E 

MFLPT 

0.034209638 

SE333 

MFLPT 

0.0643701328 

$£358 

MFLPT 

0.0724571965 

$E35D 

MFLPT 

-0.0898023964 

$E362 

MFLPT 

0.110932413 

$E367 

MFLPT 

-0.142839808 

$E36C 

MFLPT 

0.19999912 

$E371 

MFLPT 

-0.333333316 

$E376 

MFLPT 

1 

$E3BA 

MFLPT 

0.811635187 

SE8DA  -  $E8E9 

l-Byte-Integem 

Tabelle  der  Färbcodes 

SEBB1  -  SEBC1 

Tästaturdecodierung: 

Einzelne  Tasten 

$EBC2  -  $£C02 

1-Bvte-Inteoers 

Tasten  mit  Shiit 

$EC03  -  $EC43 

1-Byre-Integers 

Tasten  mit  Commodore-Taste 

SEC78  -  SECB8 

1  Byte  Integere 

Diäten  mit  Control-Taste 

$ECB9  -  $ECKS 

I-Byte-Inlegers 

VIC-Il-Chip-Reaisterwene 

tecro  -  $ED0S 

1-Byte-Intogors 

Tabelle  der  LSBs  der  Blldschirm- 
Anfangsadressen 

Tabelle  1.  Im  ROM  stehen  nicht  nur  Programme,  sondern  auch 

Tabellen,  hier  einige  wichtige 

Zahlen. 
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.5000 

A2 

00 

LDX 

»00 

,5002 

06 

5C 

srx 

SC 

,5004 

86 

5D 

STX 

5D 

,5036 

A0 

10 

LDY 

#10 

,  3008 

06 

57 

ASL 

57 

,5000 

26 

50 

F:0L 

SB 

.500C 

26 

5C 

RQL 

5C 

,500E 

26 

5D 

KUL 

5D 

,5010 

30 

SEC 

,5011 

A5 

5C 

LDA 

5C 

,5013 

ES 

59 

SBC 

59 

,5013 

AA 

TAX 

,5016 

A5 

5D 

l-DA 

5D 

,5018 

E5 

SA 

SEC 

5A 

,501A 

Vü 

06 

BCC 

5022 

,50  IC 

36 

5C 

STX 

sc 

,S01E 

85 

SD 

STA 

SD 

,5020 

E6 

57 

INC 

57 

,  5022 

88 

DEY 

,5023 

00 

E3 

BNE 

5008 

,5025 

60 

RTS 

Programm  1.  Die 

16-Bit-Division 

,6000 

A9 

00 

LDA 

#00 

.6002 

35 

5F 

STA 

5F 

,6004 

A9 

04 

LDA 

#04 

,6006 

es 

60 

STA 

60 

,  6003 

A9 

EB 

LDA 

8E0 

,600A 

85 

SA 

STA 

5A 

,  &00C 

85 

58 

STA 

50 

,600E 

A9 

07 

LDA 

#07 

,6010 

85 

5B 

s  i  a 

58 

,6012 

A9 

F3 

LDA 

#E3 

,6014 

85 

59 

STA 

59 

,6016 

20 

DF  A3 

JSR 

A3BF 

,6019 

A9 

00 

LDA 

H0B 

-  60 1 B 

85 

5F 

STA 

5F 

,  60  ID 

A9 

DO 

LDA 

MDB 

.  60 1  F 

85 

60 

STA 

60 

,6021 

A9 

EB 

LDA 

,  6023 

85 

5A 

STA 

SA 

,6025 

A9 

DB 

LDA 

*DB 

,6027 

8b 

58 

STA 

58 

,6029 

A9 

Dl 

LDA 

#D1 

,  6028 

85 

5Ö 

STA 

58 

,  632D 

A9 

E7 

LDA 

#E7 

,  602F 

85 

59 

STA 

59 

,6031 

20 

BF  A3 

JSR 

A3BF 

,6034 

A9 

40 

LDA 

#40 

,  6036 

BD 

1  1  03 

STA 

031  1 

,6039 

A9 

60 

LDA 

#60 

,  603D 

GD 

12  03 

STA 

0312 

,  60.3b 

60 

RTS 

.7 

Programm  3.  Zweiter  Teil 

der  Verschieberoutine 

$Ä004 

CBMBÄSTC 

$A09E  -  SA19D 

Texte  der  Basic-Befehlsworte 

(im  letzten  Byte  ist  jeweils  Bit  7  gesetzt) 

$A19E  -  $A327 

Texte  der  Basic-Fehler-  und  System- 
Meldungen.  (Im  letzten  Byte  ist  jeweils  Bit  7  ge¬ 
setzt) 

$A364  -  $A38A 

Weitere  System-Meldungen:  OK,  ERROR,  IN, 
READY,  BREAK.  (Das  letzte  Byte  ist  jeweils  0) 

$ACFC  SAD1D 

Fehlermeldungstexte  für  INPUT:  ?EXTRA 
IGNORED,  ?REDO  FROM  START.  (Das  letzte 

Byte  ist  jeweils  0) 

SE460 

BASIC  BYTES  FREE 

$E473 

****  COMMODORE  64  BASIC  V2  **** 
64K-RAM-System 

SECE6 

LOAD  (Return)  RUN  (Return) 

SFOBD  -  $F12B 

Texte  für  Ein-  und  Ausgabe-Operationen 

SFD10 

CBM80 

Tabelle  2.  Diese  Texte  sind  im  ROM  als  ASCII-Werte  abgelegt 

Befehls¬ 

wort 

Adressierung 

Byte¬ 

zahl 

Code 

Hex  Dez 

Takt-  Beein- 
zyklen  flussg. 
von 

Flag¬ 

gen 

LSR 

»Akkumulator« 

1 

1A 

26 

2 

N,ZC 

absolut 

3 

4E 

78 

6 

N,Z.C 

O-page-absolut 

2 

46 

70 

5 

N.Z.C 

absolut-X-indiz. 

3 

5E 

94 

7 

N,Z,C 

O-page-X-indiz. 

2 

56 

86 

6 

N,Z,C 

ROL 

»Akkumulator« 

1 

2A 

42 

2 

N,ZC 

absolut 

3 

2E 

46 

6 

N,ZC 

O-page-absolut 

2 

26 

38 

S 

N,Z,C 

absolut-X-indiz. 

3 

3E 

62 

7 

N.Z.C 

O-page-X-indiz. 

2 

36 

54 

6 

N.Z.C 

ROR 

»Akkumulator« 

1 

6A 

106 

2 

N,Z,C 

absolut 

3 

6E 

110 

6 

N.Z.C 

O-page-absolut 

2 

66 

102 

3 

N,Z,C 

absolut-X-indiz. 

3 

7E 

126 

7 

N.Z.C 

O-page-X-indiz. 

2 

76 

118 

6 

N.ZC 

Tabelle  3.  Die  in  dieser  Ausgabe 
besprothenen  Assembler-Befehle 


Sollten  Sie  mal  in  die  Verle¬ 
genheit  kommen,  solche  Texte 
ausgeben  zu  wollen,  dann  legen 
Sie  sie  nicht  nochmal  in  einer  ei¬ 
genen  Texttabelle  ab,  sondern 
schöpfen  Sie  aus  dern  Fundus, 
den  wir  im  ROM  Eereich  fix  und 
fertig  haben. 

Diese  Folge  soll  nicht  abge¬ 
schlossen  werden,  ohne  eine 
Korrektur.  Auf  einen  Fehler, 
dem  ich  aufgesessen  bin  (in  der 
Literatur  befinde  ich  mich  aber 
in  guter  Gesellschaft,  andere 
sind  auch  davon  betroffen),  ha¬ 
ben  mich  zwei  aufmerksame  Le¬ 
ser  hingewiesen.  Es  dreht  sich 
um  die  Flaggensetzung  bei 
Compare-Befehlen.  Die  N- 
Flagge  ist  nämlich  nicht  nur  vom 
Ergebnis  des  Vergleichs,  son¬ 
dern  auch  noch  von  den  aktuel¬ 
len  Akku-  beziehungsweise  Re- 
gistennhalten  bestimmt. 

Bild  1  in  der  S.  Folge  muß  des¬ 
halb  korrigiert  werden: 

(Ä,X,Y)  größer  als  die  Daten: 
N  kann  0  oder  1  sein 
(A,X,Y)  =  Daten  N  =  0 
(A,X,Y)  kleiner  als  die  Daten: 
N  kann  0  oder  1  sein. 

Das  stammt  aus  dem  offziel- 
len  MOS-Technolcgy-Handbuch 
und  entspricht  somit  hoffentlich 
der  Wahrheit  [2j.  Das  bedeutet, 
daß  man  bei  den  Abfragen 
durch  Branch-Befehle  nach  den 
Vergleichsbefehlen  etwas  vor¬ 
sichtig  sein  sollte,  was  die  N- 
Flagge  angeht. 

Zum  Schluß  noch,  wie  üblich, 
die  Tabelle  3  mit  den  neuen 
Assembler-Befehlen . 

(Heimo  Ponnath/gk) 

[1]  »Computerspiele  und  Wissenswertes 
Commodore64<.HaalbeiMltncheu  Markt 
&  Technik  Verlag,  1984  Das  ist  die  vor.  P. 
klicke  besorgte  Übersetzung  des  amerika¬ 
nischen  Buches  .More  on  the  sixtyfour«  und 
ist  jedem  Assembler-Programmierer  warm 
zu  empfehlen. 

[2]  .MOS  MIciocomputeis  Programmier 
Handbuch«.  Frankfurt:  Coiamodore  MOS 
Technology 


Tips 
&  Tricks 
gesucht 


► 


Jeder  Computer  und 
jedes  Programm  hat  sei¬ 
ne  speziellen  Schwach- 
stcilon  und  Unzuläng¬ 
lichkeiten.  Allerdings  ist 
kaum  ein  Programmie¬ 
rer  oder  Anwender  auf 
Dauer  bereit,  sich  damit 
abzufinden.  Wo  auch 
sorgfältigste  Lektüre  von 
Handbüchern  nicht  wei¬ 
terhilft,  da  wird  so  man¬ 
che  Stunde  experimen¬ 
tiert,  um  eine  Lösung  zu 
finden  (die  oft  in  einer 
Basic-Zeile  Platz  hat). 

Wir  suchen  solche 
Tips  und  Tricks,  um  sie 


allen  Lesern  zugäng¬ 
lich  zu  machen.  Schließ¬ 
lich  ist  es  wenig  sinnvoll, 
sich  wochenlang  mit  Pro¬ 
blemen  herumzuschla¬ 
gen,  die  andere  bereits 
gelöst  haben. 

Wenn  Sie  also  interes¬ 
sante  Tips  für  den  Um¬ 
gang  mit  Computer, 
Floppy,  Drucker  oder 
sonstiger  Hardware  ha¬ 
ben,  wenn  Sie  bei  kom¬ 
merzieller  Software  eini¬ 
ge  Kniffe  kennen,  die 
nicht  in  der  Anleitung 
stehen,  oder  wenn  Sie  in¬ 
teressante  Problemlö 


sunyen  statt  in  vier  Sei¬ 
ten  Listing  in  ein  oder 
zwei  Basic-Zeilen  unter¬ 
gebracht  haben,  dann 
sollten  Sie  uns  auf  jeden 
Fall  einmal  schreiben. 

Bitte  geben  Sie  genau 
den  Computertyp  und 
die  Gerätekonüguration 
oder  die  Software  an, 
und  senden  Sie  Ihren 
Tip  oder  Trick  an  die 
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In  die  Geheimnisse  der  Floppy  eingetaucht 

Formatieren  einer  Diskette  ist  für  jeden  Floppy-Besitzer 
das  erste,  was  er  mit  ihr  macht.  Was  beim  Formatieren 
passiert  und  weshalb  die  Floppy  so  nervig  rattert,  warum 
es  so  lange  dauert  und  wie  es  schneller  geht,  erfahren  Sie  in  folgendem  Artikel. 


Teil  6 


Wie  jedem  Floppy-Besitzer 
bekannt  ist,  muß  eine  Dis¬ 
kette  vor  dem  ersten  Speichern 
von  Daten  formatiert  werden. 
Wie  eine  Diskette  nach  einem 
solchen  Formatiervorgang  aus¬ 
sieht,  wurde  schon  besprochen 
Un33oll  nun  interessieren,  was 
während  des  Formatierens  so  al¬ 
les  in  der  Floppy  passiert  und 
warum  die  1541  so  lange  für  ei¬ 
nen  eigentlich  sehr  einfachen 
Vorgang  benötigt. 

Zur  Wiederholung:  Beim  For¬ 
matieren  werden  vom  DOS  alle 
wichtigen  Markierungen  auf  die 
Diskette  gebracht  und  außer¬ 
dem  sämtliche  Sektoren  in  ihrer 
späteren  Form  angelegt. 

Der  Vorgang  des  Formatie¬ 
rens  verwendet  zu  seiner  Aus¬ 
führung  einen  uns  schon  be¬ 
kannten  Jobcode,  nämlich  $E0. 

Bevor  das  DOS  den  eigentli¬ 
chen  Formatiervorgang  startet, 
wird  ab  $0600  (also  im  Puffer  3) 
ein  Sprungbefehl  abgelegt:  JMP 
$FAC7. 

Dieser  Sprungbefehl  ist  eme 
Art  Vektor,  der  im  RAM  liegt  und 
somit  veränden  werden  kann. 
Er  bietet  dem  Benutzer  die  Mög¬ 
lichkeit,  eine  eigene  Routine  ein¬ 
zubauen,  die  dann  bei  jedem 
Trackwechsel  angesprungen 
wird,  um  so  emige  wirksame 
Manipulationen  an  der  Forma¬ 
tierung  vorzunehmen,  indem 
zum  Beispiel  Werte  in  der  Zero¬ 
page  verändert  werden,  doch 


dazu  später.  Üblicherweise 
zeigt  dieser  Vektor  direkt  auf  ei¬ 
ne  J  obroutine,  die  für  das  Forma¬ 
tieren  zuständig  ist.  Diese  Routi¬ 
ne  wird  nun  vom  Hauptpro¬ 
gramm  mit  dem  Jobcode  $E0, 
der  in  Speicherstelle  $03  ge¬ 
schrieben  wird,  aufgetufen. 

Formatieren  in  der  Jobschleife 

Am  Anfang  der  Jobroutine 
steht  nun  die  Abfrage,  ob  schon 
mindestens  ein  Track  formatiert 
wurde  oder  ob  dieser  Ein- 
sprung  der  allererste  ist.  Ist  die¬ 
ser  Einsprung  der  erste,  so  wer¬ 
den  alle  Parameter  für  den  Step¬ 
permotor  gesetzt:  danach  er¬ 
folgt  ein  Rücksprung  ln  die  Job¬ 
schleife.  Hier  wird  der  Ibnkopf 
nun  45  (!)  Tracks  zurückgefah¬ 
ren,  was  sich  in  jenem  charakte¬ 
ristischen  Rattern  der  Floppysfa- 
tion  äußert. 

Nun,  körmen  Sie  sagen,  es 
würde  auch  reichen,  wenn  der 
Kopf  nur  35  oder  40  Spuren  zu¬ 
rücktransportiert  würde  In  der 
Tat  ist  der  Werl  45  sehr  hoch. 
Man  muß  aber  bedenken,  daß 
es  passieren  kann,  daß  der 
Schreib-/Lesekopf  der  Floppy 
durch  eine  defekte  Diskette 
oder  einen  Programmierfehler 
zu  weit  nach  innen  gefahren  und 
beispielsweise  auf  Track  42  am 
Anschlag  gelandet  ist,  daß  ein 
Zuriickfahren  um  40  Tracks  ein¬ 
fach  nicht  ausreich!,  um  den  Ton¬ 
kopf  richtig  zu  positionieren. 


Der  Wert  von  45  Tracks  enthält 
also  eine  Sichelheilsreserve, 
die  ein  Positionieren  auf  Spur  1 
mit  Sicherheit  ermöglicht. 

Wurde  der  Kopf  also  auf  Track 
1  positioniert,  so  erfolgt  erneut 
ein  Einsprung  in  die  Formatie- 
iuuysrouline;  eine  Speicherstel¬ 
le  zeigt  jetzt  an,  daß  der  Kopf  auf 
Track  1  positioniert  wurde  und 
das  Formatieren  starten  kann. 

Jetzt  wird  noch  geprüft,  ob  auf 
die  nächste  Spur  umgeschaltet 
werden  soll,  da  die  aktuelle  be¬ 
reits  formatiert  wurde  (wenn  ja, 
erfolgt  wieder  ein  Einsprung  in 
die  Jobschleifc,  um  das  Nötige 
zu  tun). 

Diese  Abfragen  am  Anfang 
der  Formatierungsroutme  schei¬ 
nen  umständlich  und  überflüs¬ 
sig  zu  sein;  das  Gefühl  täuscht  je¬ 
doch.  Wir  dürfen  ja  nicht  ver¬ 
gessen.  daß  die  Routine  immer 
nur  jeweils  einen  Track  forma¬ 
tiert  und  danach  zur  Jobschleife 
zurückkehrt,  damit  der  Ibnkopf 
weitergeführt  werden  kann  Wir 
haben  also  gewissermaßen  eine 
Endlosschleife,  die  nur  durch 
die  Feststellung,  daß  Spur  35  fer¬ 
tig  formatiert  wurde,  beendet 
wird. 

Ausmessen  einer  Spur 

Jetzt  haben  wir  aber  endlich 
alle  Voraussetzungen  zum  For¬ 
matieren  eines  Tracks  erfüllt 
und  wollen  an  die  Arbeit  gehen. 
Der  Abschnitt,  der  jetzt  bespro¬ 
chen  wird,  ist  übrigens  für  die 


langwierige  Formatierung  ver¬ 
antwortlich  und  sorgt  für  die  aus¬ 
gedehnten  Wartezeiten. 

Bevor  die  SYNC-Maikierun- 
gen  und  Sektoren  auf  eine  Spur 
geschrieben  werden,  wird  die¬ 
se  Spur  vom  DOS  »ausgemes¬ 
sen«. 

Das  Betriebssystem  der  1541 
»weiß«  im  Nomialfall  genau,  wie¬ 
viele  Bytes  für  die  SYNC- 
Markierungen  und  Sektoren  ei¬ 
ner  Spur  benötigt,  beziehungs¬ 
weise  verbraucht  werden. 

Jetzt  ist  es  aber  so,  daß  die  Sek¬ 
toren  nicht  genau  auf  jede  Spur 
abgemessen  sind;  vielmehr  hat 
die  Diskette  pro  Spur  eine  etwas 
höhere  Kapazität,  als  eigentlich 
benötigt  wird.  Aus  dieser  Tatsa¬ 
che  folgt  natürlich,  daß  zwi¬ 
schen  den  einzelnen  Sektoren 
»Leerstellen«  entstehen,  die  kei¬ 
ne  Daten  enthalten. 

Da  jetzt  aber  die  Länge  der 
Tracks  von  außen  (Track  1)  nach 
innen  (Track  35)  kontinuierlich 
abnimmt,  werden  diese  Leer¬ 
stellen  immer  kleiner;  wirhaben 
also  unterschiedliche  Anzahlen 
von  »Leerbytes«  zwischen  den 
Sektoren. 

Das  DOS  ist  nun  bestrebt,  die 
Sektoren  ;eder  Spur  möglichst 
symmetrisch  nnzuoidnon,  also 
immer  den  gleichen  Abstand 
zwischen  zwei  Sektoren  eines 
Tracks  zu  haben.  Bild  1  zeigt, 
was  passiert,  wenn  keine  vorhe¬ 
rige  Ausmessung  stattfindet, 
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Um  das  Ziel  einer  »symme¬ 
trisch«  formatierten  Diskette  zu 
erreichen,  stellt  das  DOS  durch 
einige  komplizierte  Schreib-  und 
Lesevorgänge  das  Verhältnis 
zwischen  benötigtem  und  vor¬ 
handenem  Platz  einer  Spur  fest. 
Aus  diesem  Verhältnis  kann  nun 
anhand  einer  einfachen  Rech¬ 
nung  festgestellt  werden,  wie¬ 
viel  Platz  zwischen  den  einzel¬ 
nen  Sektoren  freigelassen  wer¬ 
den  muß. 

Nachdem  diese  komplizierte 
Vermessung  stattgefunden  hat. 
die  mehrere  Diskettenumdre- 
hungen  und  damit  Zeit  erfordert, 
beginnt  nun  das  eigentliche  For¬ 
matieren  der  Diskette,  das  mit  al¬ 
lem  Drum  und  Dran  normaler¬ 
weise  nicht  mehr  als  eine  %  Se¬ 
kunde  für  eine  Track  benötigt. 
Dos  Anlegen  der  Sektoren  im  Puffer 
Bevor  geschrieben  werden 
kann,  müssen  die  Sektoren  erst 
einmal  im  Pufferspeicher  der 
1541  hergestellt  werden.  Da  sich 
die  einzelnen  Sektoren  nur 
durch  deren  Header  unterschei¬ 
den,  reicht  das  Anlegen  der 
Blockheader;  die  Inhalte  der 
Datenblöcke  sind  bei  jedem 
Sektor  gleich  und  bestehen  aus 
dem  schon  bekannten  Muster 
$4B  gefolgt  von  255  $01-Bytes. 

Die  Blockheader  werden  alle 
in  einem  Pufferspeicher  ($0300- 
$03FF)  abgelegt;  der  Inhalt  der 
Datenblöcke  steht  ab  $0500  bis 
S05FF. 

Schreiber  eines  Trocks  ouf  Diskette 

So,  alle  Vorarbeiten  wären 
jetzt  abgeschlossen.  Wir  können 
mit  den  Schreiben  auf  Diskette 
beginnen.  Zuerst  wird  der  Disk- 
Controller  auf  Schreibmodus 
gestellt  und  die  Spur  der  Diskci 
te  gelöscht. 

Der  gesamte  Spurinhalt  wird 
nun  während  einer  einzigen  Dis¬ 
kettenumdrehung  ('/,  Sekunde) 
auf  die  Diskette  gebracht,  wobei 
zuerst  die  SYNC-Markierung  für 
den  Blockheader,  danach  der 
Blockheader  selbst  geschrie¬ 
ben  werden.  Nach  einer  Lücke 
von  9  Byte  folgt  die  SYNC- 
Markierung  des  Datenblocks 
mit  den  zugehörigen  Datenbyte. 
Den  Abschluß  eines  Sektors  bil¬ 
det  der  schon  erwähnte  »Leer- 
raum«,  der  aus  der  vorher  er 
rechneten  Anzahl  von  Byte  be 
steht. 

Zur  Sicherheit  erfolgt  nach 
dem  Schreiben  eine  Verify- 
Routine,  die  auf  eventuelle 
Disketlen-  oder  Schreibfehler 
kontrolliert  und  bei  deren  Auf¬ 
treten  einen  »24,  READ  ERROR« 
ausgibt. 

Mit  dieser  letzten  Maßnahme 
ist  eine  Spur  einer  Diskette  fertig 
formatiert  worden,  und  es  wird 
auf  Erreichen  der  Spur  35  abge¬ 
fragt.  Wurde  Spur  35  formatiert, 
so  werden  alle  Flags  für  das  For¬ 
matieren  zurückgesetzt  die  Job¬ 
schleife  verlassen  und  ins 
Hauptprogramm  zurückge- 
kehit. 


Formatieren  ohne  ID 

Im  Hauptprogramm  wird  nun 
auf  Track  18  positioniert.  Die 
BAM  der  Diskette  wird  herge¬ 
stellt  und  in  Block  18,0  abgelegt. 
Anschließend  wird  noch  der  er¬ 
ste  Directory-Block  (18,1)  mit  Nul¬ 
len  vollgefüllt  und  ebenfalls  ab¬ 
gespeichert,  womit  das  Forma¬ 
tieren  abgeschlossen  wäre. 

Formatiert  man  eine  Diskette 
nur  kurz,  das  heißt  ohne  Angabe 
einer  ID  beim  N-Befehl,  so  'wer¬ 
den  alle  anfänglichen  Schritte 
weggelassen.  Es  wird  in  diesem 
Fall  nur  auf  das  richtige  Format¬ 
kennzeichen  in  der  BAM  ($41/ 
65/A)  kontrolliert  und  danach 
der  eben  beschriebene  Vor 
gang  auf 'Track  18  durchgeführt. 
Formatieren  mit  »Variationen« 

Nun  wäre  unser  Floppykurs 
natürlich  kein  Floppykurs,  wenn 
wir  unsere  neu  gewonnenen 
theoretischen  Kenntnisse  nicht 
sofort  in  die  Praxis  umsetzen 
wollten. 

In  der  Tat  kann  man  mit  Hilfe 
der  Formatierroutine  im  DOS  ei¬ 
nige  nette  »Scherze«  auf  eine 
Diskette  bringen,  die  entweder 
dern  Spieltrieb  oder  dem  Soft¬ 
wareschutz  dienen  können. 

Ich  habe  vorhin  schon  er¬ 
wähnt,  daß  die  Formatierroutine 
jeweils  über  einen  Sprungbc 
fehl  bei  $030C  im  RAM  der  Flop¬ 
py  aufgerufen  wird. 

Diese  Adresse  wird  bei  jedem 
neuen  Track  angesprungen  und 
bietet  so  die  Möglichkeit,  Tracks 
zu  erzeugen,  die  in  ihrem  Auf¬ 
bau  voneinander  abweichen, 
wenn  entsprechende  Eingriffe 
vorgenommen  werden. 

Diese  Möglichkeit  eines  Ein¬ 
griffes  wollen  wir  an  dieser  Stel¬ 
le  aber  gar  nicht  erst  weiter  dis¬ 
kutieren,  da  es  ziemlich  aus¬ 
sichtslos  ist,  hier  ohne  dokumen¬ 
tiertes  DOS-Listing  an  die  Arbeit 
zu  gehen. 

Daß  wir  kein  DOS  Listing  be¬ 
sitzen,  soll  aber  noch  lange  nicht 
heißen,  daß  wir  mcht  in  der  La¬ 
ge  sind,  auf  anderem  Weg,  Ein¬ 
griffe  in  die  Formatierung  vorzu¬ 
nehmen.  Wenn  wir  nicht  effektiv 
mit  der  fest  eingebauten  Routine 
Zusammenarbeiten  können, 
dann  schreiben  wir  uns  eben  ein 
vollständig  eigenes  Programm, 
das  im  RAM  der  Floppy  abge¬ 
legt  wird  und  uns  für  Abände¬ 
rungen  unendlich  viele  Mög¬ 
lichkeiten  bietet. 

Formatierung  »selbst  gebaut« 

Sehen  Sie  sich  einmal  Listing  1 
an.  Ich  habe  hier  ein  Formatier¬ 
system  entwickelt,  das  einfa 
eher  und  schneller  arbeitet  als 
die  DOS-Routine  und  trotzdem 
ein  paar  zusätzliche  Möglichkei¬ 
ten  bietet. 

Da  das  Gesamtprinzip  aher 

fast  lOOprozentig  mit  der  im  DOS 
eingebauten  Routine  überein¬ 
stimmt,  können  Sie  sich  anhand 
des  Source-Code-Listings  ein¬ 
mal  die  »praktische  Ausführung« 
einer  Formatierroutine  ansehen. 


Um  Ihnen  die  Eingabe  des 
Programms  zu  erleichtern,  habe 
ich  einen  DATA-Lader  als  Listing 
2  beigefugt,  wobei  ich  Innen 
empfehlen  möchte,  diesen 
gleich  einmal  einzutippen. 

Das  Programm  wird  nur  akti¬ 
viert,  wenn  alle  DATAs  richtig 
eingetippt  wurden.  Haben  Sie 
alles  richtig  gemacht,  so  steht 
nach  der  Ausführung  des  La 
ders  ein  Maschinenprogramm 
am  Basic-Anfang,  dem  eine 
Basic-Zeile  beigefügt  ist.  Das 
Programm  sollten  Sie  sich  jetzt 
mit  SAVE  auf  eine  Diskette  spei¬ 
chern  und  danach  mit  RUN  star¬ 
ten. 

Nach  einer  winzigen  Verzöge¬ 
rung  erscheint  die  READY- 
Meldung  und  riet  Cursor  wie¬ 
der.  Das  Formatierungspro- 
gramm  wurde  jetzt  in  den  Be¬ 
reich  ab  $C000  (49152)  gescho¬ 
ben  und  der  SAVE-Vektor  abge¬ 
ändert. 

Tippen  Sie  jetzt  einfach  den 
Befehl  SAVE  —  ohne  Anfüh¬ 
rungszeichen  und  Filenamen  — 
ein  und  drücken  Sie  RETURN. 
Es  erscheint  nun  die  Startmel¬ 
dung  des  Formatprogrammes. 
Sie  können  jetzt  einen  Namen  für 
eine  Diskette  eingeben  (maxi¬ 
mal  16  Zeichen  werden  ange¬ 
nommen).  Danach  erwartet  der 
Computer  eine  zweistellige  ID. 
Schließlich,  und  das  ist  das  be¬ 
sondere  an  diesem  Programm, 
können  Sie  noch  den  ersten  und 
letzten  zu  formatierenden  Track 
eingeben.  Diese  Eingabe  muß 
hexadezimal  erfolgen  und  er 
laubt  einen  Bereich  von  $01  bis 
$FF. 

Achtung!  Wird  eine  Zahl  größer 
als  $29  (41)  eingegeben,  wird  es 
in  der  Regel  k  i  i  i  iseli.  Der  Kopf  ist 
dann  nämlich  am  oberen  An¬ 
schlagpunkt  angelangt. 

Etwas  ist  noch  zu  beachten; 
Ein  Nachformatieren  einer  Spur 
auf  einer  gefüllten  Diskette  ist 
mit  dem  Programm  ohne  Ände¬ 
rung  nicht  möglich,  da  das  Di¬ 
rectory  auf  jeden  Fall  neu  ge¬ 
schrieben  wird.  Wird  die  Dis¬ 
kette  nicht  vollständig  forma 
tiert,  so  ist  darauf  zu  achten,  daß 
die  gleiche  ID  eingegeben  wird, 
wie  sie  schon  für  die  übrige  Dis¬ 
kette  Gültigkeit  hat,  da  es  sonst 
einen  »29,  DISK  ID  MISMATCH 
ERROR«  gibt. 

Wollen  Sie  dennoch  einen  Ein- 
zeltrack  neu  formatieren,  ohne 
das  Directory  zu  zerstören,  so 
können  Sie  das  durch  eine  einfa¬ 
che  Änderung  im  Floppy- 
Programm  erreichen.  Sie  gehen 
in  Listing  la  an  die  Adresse 
S06B5.  Den  Befehl  JSR  SEE40 
und  das  nachfolgende  RTS  er¬ 
setzen  Sie  durch  lauter  NOPs. 

Eine  Änderung  des  Directory- 
Track  unterbleibt  jetzt,  sofern 
Sie  die  Tracknummem  zur  For¬ 
matierung  entsprechend  wäh¬ 
len,  da  dieser  Befehl  die  Routine 
zum  kurzen  Formatieren  im  DOS 
aufgerufen  hätte. 


ln  jedem  Fall  gilt  aber:  Bei  For¬ 
matieren  von  Einzeltracks  müs¬ 
sen  diese  die  gleiche  ID  wie  die 
übrige  Diskette  erhalten, 

Eine  weitere  Möglichkeit 
dient  der  Schonung  des  Lauf¬ 
werks.  Wenn  Sie  sich  das 
Floppy-Programm  noch  einmal 
betrachten,  dann  finden  Sie  bei 
Adresse  $0696  den  Befehl  an 
den  Disk-Controller,  einen 
BUMP  auszuführen  Wenn  Sie 
hier  das  SCO  durch  ein  $00  erset¬ 
zen,  dann  unterbleibt  dieses  An¬ 
schlägen  des  Tbnkopfes  am  An¬ 
fang  des  Formatierens.  Diese 
Maßnahme  ist  immer  dann  nütz¬ 
lich,  wenn  mehrere  Disketten 
hintereinander  formatiert  wer¬ 
den  sollen. 

Zur  Zeitdauer  iot  noch  zu  sa¬ 
gen,  daß  das  Programm  für  eine 
Diskette  zirka  30  Sekunden  be¬ 
nötigt  und  damit  um  einiges 
schneller  ist  als  das  Programm 
im  DOS  der  1541.  Warum  das  so 
ist,  wollen  wir  gleich  erfahren. 

Geschwindigkeit;  aber  wie? 

In  meinem  Formatierpro- 
gramm  wurde  die  Berechnung 
der  Lücke  zwischen  zwei  Sekto¬ 
ren  weggelassen-  Wir  können 
nämlich  davon  ausgehen,  daß 
diese  Lücken  auf  jeder  Diskette 
in  etwa  gleich  sind.  Aus  diesem 
Grund  verwende  ich  einfach  ei¬ 
nen  Erfahrungswert  für  die  Län¬ 
ge  der  Lücke,  der  zusätzlich 
noch  einen  Sicherheitsbereich 
enthält.  Diesen  Werl  sehen  Sie  in 
Listing  la  an  der  Adresse  $05DF. 

Wenn  Sie  mit  dem  Programm 
Disketten  formatieren,  werden 
Sie  feststellen,  daß  die  Datensi¬ 
cherheil  auch  weiterhin  voll  ge¬ 
währleistet  ist. 

Im  Cegensatz  su  anderen 
schnellen  Formatierprogram- 
men  habe  ich  aber  nicht  auf  ein 
Verify  verzichtet,  da  das  Forma¬ 
tieren  die  einzige  Möglichkeit 
bietet,  defekte  Disketten  recht¬ 
zeitig  zu  erkennen,  ohne  daß  da¬ 
bei  wichtige  Daten  verlorenge¬ 
hen.  Einmal  ganz  davon  abgese¬ 
hen,  macht  das  Verifizieren  au¬ 
ßerdem  nur  einen  sehr  klemen 
Teil  am  Geschwindigkeitsver¬ 
lust  aus,  so  daß  die  Sicherheit 
vor  einigen  Sekunden  Zeitge¬ 
winn  Vorrang  haben  sollte. 

Wollen  Sie  die  Zeit  dennoch 
einmal  ohne  Verify  messen,  so 
»klemmen«  sie  den  Rest  der  For¬ 
matierungsroutine  ab  $0SFD 
ganz  einfach  ab,  indem  Sie  an 
dieser  Stelle  nach  JMP  $FE00  ein 
JMP  $FD9E  einfügen.  Eme  wei¬ 
tere  Verbesserung  gegenüber 
dem  DOS  2,6  der  1541  hat  eigent¬ 
lich  mehr  kosmetischen  Charak¬ 
ter. 

Es  geht  hier  um  den  Leerinhalt 
von  Datenblöcken,  nachdem  ei¬ 
ne  Diskette  neu  formatiert  wur¬ 
de.  Den  Inhalt  werden  Sie 
höchstwahrscheinlich  schon 
kennen:  Es  steht  am  Anfang  des 
Datenblocks  ein  $4B  gefolgt  von 
255  $01-Bytes. 
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sta 

*13 

06Re 

20 

07 

d3 

jsr 

«d307 

0691 

a9 

la 

Ida 

#*la 

0693 

8d 

05 

lc 

sta 

*1C05 

0696 

a9 

C0 

Ida 

#Sc0 

0698 

BS 

00 

sta 

*00 

069a 

a5 

20 

Ida 

*00 

069c 

30 

fc 

bmi 

*069a 

069« 

-B 

de 

06 

ldx 

*06dc 

06a! 

86 

0a 

stx 

*0a 

06a7 

a9 

e0 

Ida 

#*e0 

06a5 

85 

E2 

Sta 

*02 

06a  7 

a5 

02 

Ida 

*02 

06*9 

30 

fc 

bmi 

*06a7 

0öeb 

c9 

02 

emp 

06ad 

bU 

0C 

bcs 

*06bb 

06af 

e8 

i  nx 

06b0 

ec 

dd 

06 

cpx 

*06dd 

06b3 

?0 

«c 

bcc 

*06*1 

3605 

23 

40 

ee 

jsr 

*ne40 

06b8 

60 

rt« 

Lucke  nach  Sektor  mit  fester 
Länge  von  3  Bytes  schreiben 


schon  alle  Sektoren? 
nein,  wei termachen 


auf  Lesen  umschalten 
200  Lese versuche 


Sektor zähl  er 

auf  SYNC -Signal  warten 


Daten  vergl ei chen 


Zähler  vermindern 


74,  READ  ERROR 
SYNC-Signal  abwar  ten 


Listing  1a. 
Das  Floppy-Programm  zum 
Format-System 

Datenblock  testen 


Ende;  zur  Jobschleife 
Start  das  Fl opp ypr ogramms 
Disknamen  üb er nehmen 


Länge  der  Zeile  setzen 

k'ommapcsi  tion  setzen 

Drive  0  setzen 
LED  am  Laufwerk  an 

ID  1  holen 

id  2  holen 

alle  Kanäle  schlieflen 

Timer  setzen 
BUMP  anfordern 

aut  Ausführung  warten 
erste  Tr acknummer 

Track  formatieren 


auf  Ende  warten 
Fehler  aufgetrptsn" 
verzweige,  wenn  ja 

schon  Zieltrack  formatiert? 
weiter,  wenn  nein 
Directory  her stellen 
Ende 


Ausgabe  5/Mai  1985 


Floppy-Kurs 


C  64/VC  20 


06b9  ca 
06ba  ea 
Bfabb  a2  02 
06b d  4c  0a  e6 


r.op 

nop 

ldx  #*02 
jmp  *»60a 


Computer  programin  rum  Di  sk- 

ic)  1905  by  K0S6 
e200  a2  30  ldx  #*00 

c202  20  B7  c2  jar  *c207 

c205  a0  0Z  ldy  **03 

C207  20  cf  ff  jar  * f f cf 

c2Ca  c9  3d  cmp  #*0d 

c20c  f0  0B  beq  »c216 

c20B  99  *0  cl  *ta  *cle0,y 

c21 1  cB  lny 

c212  C0  10  cpy  *»10 

c214  90  fl  bcc.  *c207 

c2t6  *9  2c  Ida  M2c 

c2ie  99  e0  cl  sta  *cle0,y 

c21b  cB  iny 

c21c  Bc  de  cl  «ty  »clde 

C21 f  «2  47  ldx  **47 

c221  20  87  c2  jsr  *c287 


.  .  c224 

fl  2 

00 

ldx 

U»00 

.  ,  c226 

20 

cf 

ff 

jsr 

*f  fcf 

.  ,  c229 

c9 

0d 

cmp 

#*0d 

. ,  c22b 

<0 

09 

oeq 

*c236 

. ,  c22d 

99 

C0 

cl 

sta 

iclefl,) 

.  ,  C230 

cB 

lny 

. ,  c231 

cD 

*  nx 

c232 

w0 

02 

cpx 

»»*02 

.  ,  c234 

90 

f0 

bcc 

*c226 

.  ,  c236 

8C 

df 

cl 

ity 

*cldf 

c239 

a2 

53 

ldx 

#*53 

c23b 

20 

07 

c2 

J*r 

*c287 

. ,  c23b 

20 

cf 

ff 

Jw 

Sffcf 

.  ,  c241 

m 

fa 

sta 

*fa 

.  ,  c243 

20 

cf 

ff 

jsr 

*f  f  cf 

c246 

35 

fb 

sta 

*fb 

. ,  C248 

a9 

20 

1  da 

•  *00 

. ,  c24a 

25 

d0 

*ta 

4d0 

.  ,  c24c 

•2 

62 

ldx 

**62 

. .  c  24e 

20 

87 

c2 

jsr 

*c2B7 

c?51 

20 

cf 

ff 

J‘r 

*f  fcf 

.  ,  C2S4 

85 

fc 

sta 

*  fc 

.  ,  cZbö 

20 

cf 

ff 

jsr 

»ff  cf 

.  ,  c259 

83 

fd 

sta 

»f  d 

-  ,  c2Sb 

j9 

00 

1  da 

#*20 

.  ,  c  25d 

85 

dö 

mta 

»dB 

.  ,  c25f 

a5 

»fl 

*  da 

*f  a 

.  ,  C261 

flh 

fh 

ldx 

*fb 

.  ,  c263 

20 

04 

C4 

jsr 

*c4E4 

.  ,  c2&6 

8d 

de 

Cl 

sta 

»cldC 

c269 

a5 

fc 

ida 

*fc 

.  ,  C26b 

a6 

fd 

ldx 

*fd 

c26d 

20 

04 

c4 

jsr 

*c404 

.  ,  c270 

8d 

dd 

Cl 

st  fl 

»cldd 

.  ,  c273 

pe 

dd 

Cl 

inc 

♦cldd 

.  ,  c276 

ea 

nep 

c277 

ea 

nop 

.  ,  C278 

ea 

nop 

.  ,  c279 

ea 

nop 

.  ,  c27fl 

ca 

nop 

.  ,  c27b 

ua 

nop 

. ,  c27c 

ea 

noc- 

. ,  c27d 

na 

nop 

c27e 

WJ 

nop 

.  ,  c27f 

•* 

nop 

.  ,  c260 

ea 

nop 

.  ,  c2Bl 

P.1 

nop 

.  ,  c282 

ea 

nop 

.  ,  c233 

ea 

nop 

.  ,  c284 

4c 

93 

C2 

Jmp 

*c293 

. ,  C2B7 

öd 

4d 

c3 

1  da 

*c34d. 

. ,  c28e 

f0 

06 

beq 

*c292 

. ,  c28c 

20 

02 

ff 

jsr 

*ff  d2 

. ,  c28f 

«B 

i  ns 

.  ,  c  290 

dß 

f  5 

bno 

*  C  297 

. ,  c2?2 

60 

rts 

. ,  c273 

*9 

0d 

Ida 

#»Gd 

. ,  c295 

20 

•r 

ff 

Jsr 

*f  fd2 

.  .  c  298 

£.9 

ßd 

Ida 

MZd 

. ,  c29a 

20 

d2 

ff 

jsr 

*f  fd2 

..  c29d 

a9 

00 

ida 

#»30 

. .  c29f 

a2 

c0 

ldx 

MC0 

.  c  2a  1 

35 

a7 

sta 

*a7 

.  ,  c2a3 

86 

*0 

stx 

*a8 

.  .  c2*5 

09 

00 

Ida 

«100 

. ,  =2a7 

&2 

25 

ldx 

#*05 

. .  cSa? 

35 

a? 

hl» 

*a9 

c2ao 

86 

aa 

stx 

*AA 

c2ad 

a9 

09 

ida 

H*0Q 

.  ,  c“-af 

20 

bl 

ff 

jsr 

*i*  Cl 

.  .  4.262 

«9 

6» 

1  da 

«*6  f 

. ,  c204 

20 

93 

ff 

jsr 

»ff  93 

C2D7 

u9 

4d 

Ida 

U*4d 

. ,  c2b9 

20 

aQ 

ff 

jsr 

*ffa8 

. ,  c2be 

a9 

2d 

Ida 

U»2d 

. ,  c2bc 

rc 

aß 

ff 

jsr 

*ffa8 

. .  c2c 1 

a? 

57 

Ida 

#  157 

c.2c3 

20 

aB 

ff 

jsr 

*ff#a 

-  ,  «;2c£ 

a0 

02 

ldy 

#*00 

c2c3 

A3 

«9 

Ida 

*a9 

.  ,  c2ca 

20 

a2 

ff 

jsr 

*f  faß 

. ,  c2cd 

*5 

aa 

Ida 

»aa 

. ,  c2cf 

20 

a9 

ff 

jsr 

*f  f  a8 

. ,  c2d2 

«9 

1* 

1  da 

#*ie 

. ,  c2d4 

20 

aS 

ff 

Jsr 

»fffl8 

. ,  c2d7 

bl 

a7 

Ida 

(fa7) , 

. ,  c2d9 

20 

aB 

ff 

jsr 

*f  f  A8 

. ,  c2dc 

lII 

lny 

. ,  c2dd 

C0 

le 

cpy 

Ml  e 

.  ,  c2df 

90 

f  6 

bcc 

*c2d7 

-2c! 

20 

AU 

ff 

jsr 

*f  fae 

- ,  c2e4 

ie 

de 

. ,  c2#5 

*5 

#7 

Ida 

*#7 

c2e7 

69 

le 

ade 

#*15 

Diskstatus  ausgaben:  Ende 
•Format-System 

Titel  und  erst#  Frage  ausgeben 
Eingabe  holen 

Namen  abspei ehern 

schon  16  Zeichen  ? 

weiter,  wenn  nein 

Kosma  hinter  den  Namen  setzen 


Frage  nach  Disk-ID 
Eingabe  abwar ten 

ID  ebenfalls  abspeichern 


FROH  T RACK i i 


'TO  TRACK:*'  ausgeben 


Umrechnung  in  HEX-Byte 
Anfangatracl  setzen 


Umrechnung  in  HEX-Byte 

Endetrack  setzen 

plus  1  als  Vergleichswert 


Ausgabe  der  Texte 


LI3TEN  für  Gerät  Nummer  8 

15;  ►ommandnkanal 

Programm  zur  Floppy  senden 

Listing  1. 

Eine  neue  Formatierroutine. 
Eine  Diskette  wird  nicht 
nur  schneller  formatiert, 
sondern  Sie  können  auch 
angeben,  welche  Spuren 
formatiert  werden  sollen. 
Was  das  für  Vorteile  hat, 
erfahren  Sie  im  Bericht. 


c2e9 

85 

a7 

ata 

*a7 

c2eb 

90 

33 

bcc 

*c2f  0 

.  ,  c2ed 

ea 

a8 

inc 

*a8 

. ,  «  2a* 

ie 

cLc 

. ,  c2f 0 

a5 

a9 

Ida 

*»9 

. ,  c2f 2 

a6 

aa 

ldx 

faa 

. ,  c2f  4 

69 

le 

ade 

#»1B 

. ,  c2f £ 

35 

a9 

sta 

»a9 

.  ,  c2f  2 

90 

02 

bcc 

*c2f  c 

. ,  c2f a 

eö 

aa 

i  nc 

*aa 

.  ,  r2f  c 

P0 

07 

cpx 

*107 

.  ,  =2fe 

93 

ad 

bcc 

*c2ad 

c300 

C9 

00 

cmp 

«*00 

. ,  c302 

90 

a9 

bcc 

*c2ad 

. ,  c  304 

a9 

06 

1  da 

#•00 

. ,  c306 

23 

bl 

ff 

jsr 

*f  fbl 

. ,  c309 

a9 

faf 

1  da 

#»6f 

. ,  c30b 

20 

93 

ff 

jar 

*f  f  93 

. ,  c  30« 

a9 

4C 

Ida 

#*4d 

c3:>0 

ro 

aS 

ff 

jsr 

•  *  f*8 

.  ,  c3l3 

a9 

20 

ida 

#*2d 

. ,  c315 

20 

a8 

ff 

jsr 

*f  f  A8 

C313 

a9 

45 

Ida 

#*45 

. ,  c3la 

20 

«8 

ff 

J#r 

*f  f  aS 

c31d 

*9 

£0 

Ida 

M  *60 

.  ,  C3H 

20 

aB 

ff 

J»r 

*ffa8 

. ,  c322 

«9 

36 

Ida 

#*26 

.  ,  c324 

20 

aB 

ff 

jar 

*f  ffl8 

C327 

20 

ae 

ff 

J»r 

*f-ae 

..  c32a 

a9 

00 

lria 

«*00 

.  ,  c3Tc 

135 

93 

ota 

*90 

.  ,  c32e 

*9 

08 

Ida 

#*SE 

.  ,  c330 

2G 

b4 

ff 

1«r 

*f  fb4 

-  ,  c333 

a9 

£  f 

Ida 

#*6f 

C335 

20 

96 

ff 

jsr 

»ff  96 

. .  c338 

20 

c5 

ff 

jsr 

*f  f  «5 

. ,  C33fc 

20 

d2 

ff 

Jsr 

*fid2 

. ,  c33e 

24 

9ß 

bl  t 

*90 

.  ,  c340 

50 

l  • 

bvc 

*C  338 

. ,  C342 

20 

ab 

ff 

jsr 

sf  fab 

. ,  c345 

4c 

de 

c3 

Jmp 

*c3dc 

LISTEN  für  Gerat  8 
15;  Kommandokonal 


Programm  in  der  Floppy 
bei  Adresse  »0600  starten 


Fehlermeldung  holen 


und  »nseigon 


Endebehandlung 


. 

C348 

012 

03 

00 

00 

00 

93 

20 

- 

C350 

20 

20 

20 

20 

20 

2A 

2A 

2ABBBübek::: 

C358 

20 

44 

49 

53 

4B 

2D 

46 

4F®®«fc»SBS=ä>i‘5 

. 

C360 

52 

4D 

41 

54 

2D 

53 

59 

53ia5SKiW  tS»®aK 

■ 

C3feS 

54 

45 

4D 

23 

2A 

2A 

2A 

0Daaa»BBES3E.m: 

C370 

0D 

BD 

20 

2B 

43 

29 

20 

31!«SiSM**5SKH 

,  . 

C378 

39 

38 

35 

20 

42 

59 

20 

4BKB4sffls»Sfi« 

C380 

4F 

53 

53 

20 

20 

23 

0D 

BDD^s^asaBffiWfa 

C388 

0D 

44 

49 

53 

4B 

4E 

41 

4DS9»BS-»SSSärSli5i 

■ 

C390 

45 

3A 

20 

00 

0D 

0D 

44 

491  «WtRia® '  ®* 

■ 

C398 

53 

48 

2D 

49 

44 

3A 

20 

- 

C3A0 

0D 

0D 

46 

52 

4F 

4D 

20 

545T5F3? 

■ 

C3AB 

41 

43 

4B 

3A 

24 

00 

C3B3 

0D 

54 

4F 

20 

54 

52 

41 

43T»4a®»ilt«.Ia 

.  ; 

C3B8 

4B 

3A 

24 

30 

0D 

0D 

41 

4E-SSE5  «IKWsiai 

_  . 

C3C3 

4F 

54 

4S 

45 

52 

20 

46 

4FWÖSS»  #tad3äel 

.  - 

C3C8 

52 

4D 

41 

54 

20 

28 

59 

2F!StsSi.L=JE®f;ffi: 

• 

C-3D0 

4E 

29 

20 

3F 

20 

0D 

0B 

,  J 

C3D8 

00 

00 

03 

00 

20 

29 

C4 

.  ,  cZöc 

23 

29 

c4  j«r 

Ic429 

.  ,  c»c  f 

*2 

öf 

ldx 

**6f 

.  ,  c3c: 

23 

07 

c 2  ifir 

»c2B7 

.  ,  c3»4 

20 

04 

f*  jsr 

Sf  fe4 

.  ,  C3c7 

fC 

fb 

buq 

*c?e4 

. ,  c3©9 

c9 

S9 

cmp 

#*59 

. ,  c3eb 

de 

03 

bn« 

*c3fC 

. ,  c2ao 

4- 

Z3 

c2  jmp 

*c2»e 

. ,  c3fe 

60 

rt« 

.  ,  c3f  1 

3B 

brk 

. ,  c~f 2 

aS 

b7 

Ida 

»67 

. .  c3<4 

fC 

U3 

bec 

*cTf9 

.  ?  c3f6 

4c 

ed 

f  5  j-ap 

»f  Sed 

. ,  c3f 9 

20 

3C 

C2  jsr 

*c20C 

. ,  c3#c 

a' 

01 

ida 

»*01 

.  .  c3f- 

•  2 

e.- 

lex 

«*00 

. ,  c  480 

uC 

ee 

e»sc 

c432 

:3 

cl  c 

. .  “423 

60 

rts 

. .  c*e4 

95 

02 

sta 

*02 

.  ,  :466 

86 

27 

■stx 

*33 

. .  c43£ 

„5 

02 

Ido 

ie: 

.  .  _4'3a 

c9 

41 

cr.e 

tl  •  4  1 

.  .  C‘I0C 

?Q 

03 

bc.c 

»<411 

,  .  c AB* 

1B 

clc 

. .  c43f 

«9 

09 

ade 

#*07 

.  ,  c4 1 1 

29 

BF 

«nfl 

#«e# 

. .  c4 13 

Ca 

asl 

.  .  C414 

Ba 

•  «1 

. .  c415 

8a 

asl 

.  ,  c4 16 

3a 

aal 

.  ,  c4l7 

85 

02 

sta 

*02 

.  c4  1  9 

aS 

03 

Ida 

*03 

.  ,  c41b 

c9 

41 

cmp 

**41 

cäld 

90 

03 

bcc 

*c422 

. ,  c41f 

13 

clc 

.  .  C420 

69 

09 

AGC 

#109 

.  ,  c427 

29 

ef 

and 

#*0f 

. ,  c  424 

05 

02 

or« 

*22 

.  ,  C*  'C> 

85 

££ 

sta 

>02 

c  429 

63 

rta 

. .  c4*9 

*9 

f  2 

loa 

*  »f  2 

.  .  c476 

30 

32 

ß3  sta 

»C332 

.  ,  c22o 

»9 

c3 

Ida 

#*c3 

.  .  cZIO 

5d 

33 

03  ste 

*0733 

. .  c233 

60 

-LS 

SAVE- Vektor  steilen 

’ANOTHEP  FORMAT  <t/N>  euageben 


End«  ? 
ja«  RTS 

noch  einmal  formatieren 


Lange  des  Fllenamer.fi  -3' 
Je;  dann  for.-atieron 
zur  £AV£-Routina 
f  c.-mati  eren 


Umrechnung  der  Eingabe  in  eir 
HEX-S,to 


Listing  1  (Schluß). 
Zwischen  den  Adressen 
G48  und  C3DA 
liegt  eine  ASCII-Tabelle 

SAVE-Vov-.to»  berat el  len 
auf  »drofioc?  »c3f2  »eiten 


Ausgabe  5/Mai  1985 


C  64/VC  20 


Floppy-Kurs 


Dieser  Inhalt  ist  eigentlich  auf 
einen  Fehler  im  DOS  zurückzu¬ 
führen;  er  müßte,  wie  auch  bei 
den  großen  Commodore-Fiop- 
pies  aus  256  $00-Bytes  bestehen. 

In  meinem  Programm  fülle  ich 


alie  Sektoren  mit  dem  üblichen 
Wen  $00. 

Noch  ein  paar  Hinweise  zur 
Benutzung  des  Formatierpro¬ 
gramms. 

Nach  RUN  wird  automatisch 


der  SAVE-Vektor  auf  den  Pxo- 
grammstan  der  Formatierrouti¬ 
ne  gestellt,  Wird  kein  Filename 
angegeben,  so  erfolgt  ein 
Sprung  in  das  Formatierpro¬ 
gramm.  Durch  Drücken  von 


RUN  STOP/RESTCRE  läßt  sich 
der  SAVE-Vektor  wieder  richtig 
»hinbiegen*.  Hierzu  dürfte  je¬ 
doch  kein  Anlaß  bestehen,  da 
bei  fehlendem  Filenamen  kein 
Programm  gestartet  wird. 


10  REM  * 

20  REM  * 

30  REM  * 

-10  REM  * 

50  REM  * 
m  REM  * 

70  REM  in 

80  DATA  5657,5638,6947,7770,8264,7062,8578 

,6111,3989,3215,9192,10797  <224> 

90  DATA  8104,8232,8308,3524,3180,5204,4577  <144> 
100  DATA  0,14,8,10,0,158,32,50,48,54,52,32 

, 32 ,0,0,0, 3  62 ,64,1 60 , B , 1 34 , 2 , 132,3  <156> 

110  DATA  162,0,160,192,134,4,132,5,160,0,1 

62,5,177,2,145,4,200,208,249,230,3  <1B7> 

120  DATA  230,5,202,208,242,120,169,242,141 

,50,3,169,195,141,51,3,88,96,234,234  <071 > 

130  DATA  165,10,201,36,144,7,169,18,133,67 

,76,19,5,32,75,242,133,67,169,0,133  <043> 

140  DATA  27,160,0,162,0,165,57,153,0,3,200 

,200,165,27,153,0,3,200,165,10,153  <201 > 

150  DATA  0,3,200,165,19,153,0,3,200,165,18 

, 153,0,3,200,169,15, 153,0,3,200,153  <254> 

160  DATA  0, 3, 200, 169, 0,89, 250, 2, 89, 251, 2, B 

9,252,2,89,253,2,153,249,2,230,27  <218> 

170  DATA  165,27,197,67,144,190,169,3,133,4 

9,152,72, 13B, 157,0,7,232,208,250,32  <092> 

180  DATA  48,254,104,168,136,32,229,253,32, 

245 , 253 ,169,7,133,49,32, 233 ,245,133  < 1 00 > 

190  DATA  58,32,143,247,169,0,133,50,32,14, 

254,169,255, 141,1,28, 162, 5, B0, 254  <251 > 

200  DATA  184,202,208,250,162,10,164,50,80, 

254,184,185,0,3,141,1,28,200,202,208  <125> 


*********************** 

* 

DISK— FORMAT— SYSTEM  * 
* 

<C>  1985  BY  KOSS  * 
* 

*****»»«»« ************* 


<  1 37  > 
<247> 
<052> 
<011> 
<091  > 
<031  > 

<  197> 


210  DATA  243,162,9,80,254,184,169,85,141,1 

,28,202,208,245,169,255,162,5,80,254  <1B4> 

220  DATA  184,141,1,28,202,203,247,162,197, 

80,254,184,189,0,1 , 141 , 1,28,232,208  <122> 

230  DATA  244,160,0,80,254,184,177,48,141,1 

,28,200,203,245, 169,85, 162,8, B0, 254  <146> 

240  DATA  184,141,1,28,202,208,247,165,50,2 

4,105,10,133,50,198,27,208,149,80  <041 Y 

250  DATA  254,184,80,254,184,32,0,254,169,2 

00,133,31,169,0,133,48,169,3,133,49  <160> 

260  DATA  165,67,133,27,32,86,245,162,10,16 

0,0,B0, 254, 184,173,1 ,28,209,48,208  <123> 

270  DATA  14,200,202,208,242,24,165,48,105, 

10, 133,48,76,53,6, 190,31,200,209, 169  <223> 

280  DATA  6, 76, 211, 253, 32, B6, 245, 160, 187, 80 

,254,184,173, 1,28,217,0,1 ,208,231  <087> 

290  DATA  200,208,242,162,252,80,254,184,17 

3,1,28,217,0,7,208,215,200,202,208  <125> 

300  DATA  241,198,27,208,176,76,158,253,160 

,0,185, 224 ,6,153,0,2, 200 , 204 , 223 ,6  < 1 50  > 

310  DATA  144,244,173,223,6,141,116,2,173,2 

22,6,141,123,2,169,0,133,127,32,0  <0B4> 

320  DATA  193, 172, 123,2, 185,0,2, 133, 18, 1B5, 

1,2,163,19,32,7,211,169,26,141,5,28  <206> 

330  DATA  169,192,133,0,165,0,48,252,174,22 

0,6,134,10, 169,224,133,2, 165,2,48  <128> 

340  DATA  252,201,2,176,12,232,236,221,6,14 

4,236,32,64,238,96,234,234,162,2,76  <241 > 

350  DATA  10,230,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0  <204 > 

Listing  2.  Der  DATA-lader  der  Formatierroutine 
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ifcfä?  149 


C  64/VC  20 


Floppy-Kurs 


Mußten  Sie  dennoch  einmal 
RESTORE  drücken,  so  läßt  sich 
das  Formatier-System  mit  SYS 
49664  ($C200)  erneut  starten; 
nach  Beendigung  wird  unter  an¬ 
derem  auch  der  SAVE-Vektor 
wieder  auf  das  Programm  zu¬ 
rückgestellt. 

Wollen  Sie  sich  den  Disk- 
Status  anzeigen  lassen,  so  tippen 
Sie  SYS49962.  Es  erscheint  da¬ 
nach  auch  die  Frage  nach  einem 
weiteren  Formatiervorgang,  die 
Sie  entsprechend  beantworten. 
Nach  dieser  Anzeige  wird  der 
SAVE-Vektor  ebenfalls  wieder 
hergestellt 

Ich  möchte  Sie  an  dieser  Stelle 
auf  ein  paar  Speicherstelien  m 
der  Zeropage  der  1541  aufmerk¬ 
sam  machen.  Wie  Sie  wissen, 
werden  dort  nach  einem  RESET 
ein  paar  Konstanten  abgelegt, 
die  vom  Benutzer  (beliebig)  ver¬ 
ändert  werden  können.  Mit  den 
Konstanten  meine  ich  zum  Bei¬ 
spiel  $08  als  Kennzeichen  eines 
Blockheaders  oder  $07  als 
Kennzeichen  eüies  Daten¬ 
blocks. 

Wie  Sie  aus  der  Zeropage- 
Belegung  in  der  64’er-Ausgabe 
1/1985,  Seite  151  entnehmen  kön¬ 
nen,  werden  diese  beiden  Wer¬ 
te  in  den  Speicherstellen  $38 
(Wert  07)  und  $39  (Wert  08)  abge¬ 
legt  und  können  nun  abgeän¬ 
dert  werden.  Der  neue  Wert, 
den  Sie  vielleicht  in  diese  Spei¬ 
cherstellen  eintragen,  sollte  sich 
jedoch  im  Bereich  von  $00  bis 
$0F  bewegen,  da  es  sonst 
Schwierigkeiten  beim  Lesen  ge¬ 
ben  kann.  Die  Folge  eines  Lese¬ 
versuchs  mit  normalen  Werten, 
wenn  eine  Diskette  anders  for¬ 
matiert  wurde,  sind  entweder 
ein  »20,  READ  ERROR«  oder  ein 
»22,  READ  ERROR«. 

Der  Vorteil  dieser  Errors  ist  je¬ 
doch  die  Möglichkeit,  den 
Blocken  auch  Inhalte  mitzuge¬ 
ben,  womit  ein  sehr  wirkungs¬ 
voller  Kopierschutz  konstruiert 
werden  kann. 

Zum  Lesen  oder  Beschreiben 
der  Diskette  müssen  die  Werte 
in  den  beiden  Speicherstellen 
nur  jeweils  richüg  gestellt  wer¬ 
den;  dann  kann  ein  ganz  norma¬ 
ler  Zugriff  stattfinden. 

Mit  Hilfe  des  Formatierpro- 
giamms  können  Sie  jetzt  auch 
noch  zusätzlich  illegale  Spuren 
beschreiben.  Hierbei  müssen 
Sie  allerdings,  wie  in  der  letzten 
Folge  besprochen,  auf  Job¬ 
schleifenebene  arbeiten,  um 
die  Begrenzung  auf  die  Spuren  1 
bis  35  zu  umgehen. 

In  der  nächsten  Folge  möchte 
ich  Ihnen  etwas  vorstellen,  das 
sich  GCR-Codierung  nennt.  Wir 
werden  dann  erfahren,  daß  Da¬ 
ten  keineswegs  so  auf  Diskette 
geschrieben  werden,  wie  sie  im 
Puffer  vorliegen,  sondern,  daß 
vorher  eine  Codierung  erfolgt. 


(Karsten  Schramm/gk) 
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360  DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
370  DATA  162,0,32,135,194,160,0,32,207,255 
,201,13,240,8,153,224,193,200,192 
3B0  DATA  16,144,241,169,44,153,224,193,200 
,140,222,193,162,71,32,135,194,162 
390  DATA  0,32,207,255,201,13,240,9,153,224 
,193,200,232,224,2,144,240,140,223 
400  DATA  193,162,83,32,135,194,32,207,255, 
133,250,32,207,255,133,251,169,0,133 
410  DATA  208,162,98,32,135,194,32,207,255, 
133,252,32,207,255,133,253,169,0,133 
420  DATA  208,165,250,166,251,32,4,196,141, 
220,  193, 165,252,166,253,32,4, 196,141 
430  DATA  221,193,238,221,193,234,234,234,2 
34 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 
440  DATA  234,234,76,147,194,189,77,195,240 
,6,32,210,255,232,208,245,96,169,13 
450  DATA  32,210,255,169,13,32,210,255,169, 
0,162,192,133,167,134,168,169,0,162 
460  DATA  5,133,169,134,170,169,8,32,177,25 
5,169,111,32, 14/, 255, 1 69 , / / ,32, 168 
470  DATA  255, 169,45,32, 16e, 255, 169,87,32,1 
68,255, 160,0, 165, 169,32, 168,255, 165 
480  DATA  170,32,168,255,169,30,32,168,255, 

177.167.32. 168.255.200.192.30.144 

490  DATA  246,32,174,255,24,165,167,105,30, 
133,167,144,3,230,168,24,165,169,166 
500  DATA  170,105,30,133,169,144,2,230,170, 
224,7, 144,173,201,0, 144,169,169,8 
510  DATA  32,177,255,169,111,32,147,255,169 
,77,32, 168,255, 169,45,32, 168,255,169 
520  DATA  69,32,168,255,169,96,32,168,255,1 
69,6,32,168,255,32,174,255,169,0,133 
530  DATA  144,169,8,32,180,255,169,111,32,1 

50.255.32. 165.255.32.210.255.36.144 
540  DATA  B0, 246, 32, 171, 255, 76, 220, 195, 0,0, 

0,0,0,147,32,32,32,32,32,32,32,42 
550  DATA  42,42,32,68,73,83,75,45,70,79,82, 
77,65,84,45,83,89,83,84,69,77,32,42 
560  DATA  42,42,13,13,13,32,40,67,41,32,49, 
57,56,53,32,66,89,32,75,79,83,83,32 
570  DATA  32,32,13,13,13,68,73,83,75,78,65, 
77,69,58,32,0,13,13,68,73,83,75,45 
580  DATA  73,68,58,32,0, 13, 13,70, B2, 79, 77, 3 
2,84,82,65,67,75,58,36,0,13,13,84 
590  DATA  79,32,84,82,65,67,75,58,36,0,13,1 
3,65,78,79,84,72,69,82,32,70,79,82 
600  DATA  77,65,84,32,40,89,47,78,41,32,63, 
32,13,13,0,0,0,0,0,32,41,196, 162,111 
610  DATA  32,135,194,32,228,255,240,251,201 
,89,208,3,76,0, 194,96,0,165, 183,240 
620  DATA  3,76,237,245,32,0,194,169,1,162,0 
,160,0,24,96, 133,2,134,3,165,2,201 
630  DATA  65,144,3,24,105,9,41,15,10,10,10, 
10,133,2,165,3,201,65,144,3,24,105 
640  DATA  9,41,15,5,2,133,2,96,169,242,141, 
50,3,169,195,141,51,3,96,0 
1000  REM 

1010  REM  ****  DATAS  INITIALISIEREN 
1020  REM 

1030  RESTORE: PRINT: PRINT: PRINT"DATAS  WERDE 
N  UEBERPRUEFT  ' ! ! " : PR I NT : PR I NT 
1040  CLR: DIM  P(19):D1M  W(19) 

1050  FÜR  X=0  TO  18: READ  P < X > : P=P+P < X) : NEXT 
1060  IF  P0124349  THEN  PRINT" PRUEFSUMMENFE 
HLER": PRINT: PRINT: LIST  30-90 
1070  FOR  X=0  TO  18: FOR  Y=0  TO  59: READ  A:W< 
X)  =W ( X ) +A: NEXT  Y 
1080  IF  W ( X ) < >P  <  X ) THEN  1150 
1090  NEXT  X 

1100  PR INT: PR I NT "DIE  DATAS  SIND  OK  UND  WER 
DEN " : PR I NT : PR I NT " ABGE5PE I CHERT ! " 

1110  RESTORE: FOR  X=0  TO  18: READ  A: NEXT 
1120  FOR  X=0  TO  1 139: READ  A:POKE  X+2048,A: 
NEXT 

1130  POKE  45,119: PQKE  174,119:P0KE  46,12:P 
OKE  175, 12: CLR 

1140  PRINT : PRINT"MI T  'SAVE-  ABSPEICHERN!": 
PRINT: END 

1150  REM  FEHLERBEHANDLUNG 

1160  PRINT: PRINT"FEHLER  IN  DEN  DATAS"X*60" 
BIS"X»60+59"  ! " : Z=INT ( X*600/ 17. 8) 
1170  PRINT: PRINT: PRINT-DAS  ENTSPRICHT  IN  E 
TWA  DEN { 1 4SP ACE , DOWN 7  ZE I LEN  AB“Z 
1180  END 

Listing  2.  Disk-Formot-System  (Schluß). 


<24B> 

<149> 

<233> 

<206> 

<0977 

<114> 

<125> 

<031  > 

<123> 

<1007 

<094? 

<165? 

<050> 

<204> 

<039> 

<001  > 

<0097 

<183> 

<048> 

<0067 

<223> 

<  1  97> 

<155> 

<246> 

<016> 

<011  > 

<194> 

<176> 

<095> 

<1227 

<1787 

<1427 

<2157 

<0777 

<1397 

<0387 

<240? 

<1467 

<0327 

<1167 

<1667 

<0937 

<0067 

<097  7 
<1597 

<1617 

<0737 

<0327 


Fortsetzung  von  Seite  17 

—  Sonderfunktionen 

Sie  geben  Auskunft  über  die  Lei¬ 
stungsfähigkeit  des  Druckers.  In 
Tabelle  2  sind  einige  Sonder¬ 
funktionen  aufgeführt. 

—  Pufferspeicher 

Verfügt  ein  Drucker  über  einen 
eingebauten  Pufferspeicher,  so 
kann  das  zweifachen  Nutzen  ha¬ 
ben.  Zum  emen  bieten  manche 
Drucker  eine  Funktion  an,  mit 
der  eigene  Zeichensätze  gela¬ 
den  werden  können  (Download- 
Charakters).  Zum  anderen  ver¬ 
kürzt  ein  Pufferspeicher  die  Zeit, 
die  Sie  warten  müssen,  bis  Sie 
den  Computer  weiterverwen¬ 
den  können,  denn  normalerwei¬ 
se  reagiert  kein  Computer  auf 
Eingaben,  solange  er  Zeichen 
an  den  Drucker  sendet. 

—  Geräuschpegel 

Außer  den  Thermo-  und  Tinten¬ 
strahldruckern  machen  alle 
Drucker  mehr  oder  weniger 
Lärm.  Es  ist  deshalb  ratsam  sich 
ein  neues  Gerät  nicht  nur  anzu- 
sehen,  sondern  auch  anzuhöxen. 

—  Bedienungsanleitung 

Sie  ist  von  entscheidender 
Wichtigkeit  für  den  Nutzen,  den 
Sie  aus  Ihrem  Drucker  ziehen 
können.  Eine  Anleitung  sollte 
umfassend  und  in  deutscher 
Sprache  über  die  Funktionen  ei¬ 
nes  Drucker  aufklären.  An  Bei¬ 
spielprogrammen  sollte  dabei 
die  Funktionsweise  des 
Druckers  deutlich  werden. 

Jeder  ist  seines  Druckers  Schmied 

Sie  sehendem  Druckerkauf  ist 
Planungssache.  Je  nachdem  auf 
welches  Gebiet  (Texlverarbei- 
tung,  Programmierung  oder 
Grafik)  Sie  Ihren  Schwerpunkt 
setzen,  wird  Ihre  Entscheidung 
anders  ausfallen.  Ein  weiteres 
wichtiges  Argument  wird  der 
Preis  sein.  Hier  heißt  es  rech¬ 
nen,  denn  mancher  Drucker  mit 
Interface  kostet  weniger  als  ein 
gleichwertiger  Drucker  ohne 
ein  solches.  Auch  sollten  Sie  zu¬ 
künftige  Entwicklungen  mit  im 
Auge  behalten,  denn  möglicher¬ 
weise  kaufen  Sie  einen  neuen 
Computer,  dann  sollte  am  be¬ 
sten  der  alte  Drucker  weiterhin 
verwendbar  sein.  So  ist  ein 
Drucker  mit  Centronics- 
Schnittstelle  sicher  eine  zu¬ 
kunftssichere  Entscheidung,  lei¬ 
der  brauchen  Sie  für  solch  einen 
Drucker  immer  ein  spezielles  In¬ 
terface.  Ein  Commodore- 
Drucker  ist  dagegen  direkt  an¬ 
schließbar,  paßt  aber  unter  Um¬ 
ständen  nicht  an  ihren  nächsten 
Computer  (es  sei  denn  es  ist  der 
C  128).  Obwohl  gute  Leistungen 
schon  ab  etwa  700  Mark  zu  ha¬ 
ben  sind,  sollte  bei  einen 
Drucker  ruhig  etwas  investiert 
werden,  denn  die  Erfahrung 
zeigt,  daß  die  Ansprüche  schon 
nach  kurzer  Zeit  steigen. 

(Aind  Wängler/aa) 
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Musik-Kurs 


C  64 

Dem  Klang  auf  der  Spur  (Teil  5) 


Dieser  Teil  des  Musikkurses  ist  auch 
für  all  jene  interessant,  die  sich  nicht 
ausschließlich  für  Musik  interessieren. 
Es  werden  Algorithmen  zur  Generie¬ 
rung  verschiedener  Signale  vorgestellt. 


Dabei  wird  anhand  des  Sour- 
ce-Listings  des  Programms 
Modulator  gezeigt,  wie  man  die 
se  Algorithmen  unter  zeitkriti¬ 
schen  Nebenbedingungen  pro¬ 
grammieren  kann. 

Im  zweiten  Teii  dieser  Reihe 
wurde  schon  erwähnt,  daß  man 
jeden  Signalverlauf  durch  eine 
Folge  von  Stützwerten  beschrei¬ 
ben  kann.  Da  man  diese  Stütz¬ 
werte  digital  codieren  kann, 
wird  so  die  Signalerzeugung 
und  -Verarbeitung  mit  dem  Com¬ 
puter  möglich  Man  muß  dabei 
allerdings  mit  einer  Abtastfre- 
quenz  arbeiten,  die  mindestens 
doppelt  so  hoch  ist  wie  die  höch¬ 
ste  Frequenz,  die  im  verarbeite¬ 
ten  Signal  vorkommt.  Für  Audio- 
Signale  in  HiFi-Qulität  ist  somit 
eine  Abtastfrequenz  von  minde¬ 
stens  40  kHz  erforderlich.  Stel¬ 
len  wir  dieser  Frequenz  einmal 
die  Taktfrequenz  von  1  MHz  in 
unserem  C  64  gegenüber:  Eine 
Abtastperiode  dauert  bei  40  kHz 
25  jis.  Diese  Zeit  entspricht  ge¬ 
nau  25  Taktzyklen  im  C  64.  Ein 
6510-Maschinenbefehl  dauert 
zwischen  zwei  und  sieben  Takt¬ 
zyklen,  das  heißt,  daß  die  CPU 
während  einer  Abtastperiode 
gerade  vier  bis  maximal  zwölf 
Befehle  abarbeiten  kann;  zuwe¬ 
nig,  um  damit  schon  sinnvoll  ei¬ 
nen  Signalabtastwert  weiterzu¬ 
verarbeiten.  Die  digitale  Ver¬ 
arbeitung  von  Audiosignalen 
bleibt  also  zunächst  einmal 
Hochleistungsrechnern  und 
Spezialprozessoren  vorenthal¬ 
ten. 

Dreh-  und  Angelpunkt: 
Integer-Arithmetik 

Wenn  man  sich  aber  wie  bei 
dem  in  der  letzten  Folge  vorge¬ 
stellten  Programm  Modulator 
auf  eine  Äbtastfrequenz  von  60 
Hz  beschränkt,  dann  sieht  die 
Sache  schon  sehr  viel  günstiger 
aus.  Während  einer  Abtastpe¬ 
riode  von  16,6  ms  (entsprechend 
16600  Taktzyklen)  kann  man  bei 
geeigneter  Programmierung 
schon  eine  ganze  Menge  ma 
chen.  Die  Abtastfrequenz  ist 
aber  nicht  das  einzig  wichtige 
Kriterium  bei  der  Signalverar¬ 
beitung.  Eine  Rolle  spielt  auch 
die  Genauigkeit,  mit  der  die  Ab¬ 
tastwerte  dargestellt  und  ver¬ 


rechnet  werden.  Natürlich  gilt 
hier  Je  genauer,  desto  besser. 
Genauigkeit  kostet  aber  wieder 
Rechenzeit,  sobald  man  die 
Wortlänge  des  verfügbaren  Pro¬ 
zessors  (hier  leider  nur  8  Bit) 
überschreitet.  Die  Arithmetik- 
Routinen  des  Basic-Interpreters 
arbeitet  zum  Beispiel  im  Fließ- 
kommaformat  mit  32-Bit-Mantis- 
se.  Sie  bietet  damit  eine  Genau¬ 
igkeit,  die  selbst  für  sehr  an¬ 
spruchsvolle  Probleme  aus  der 
Signal  Verarbeitung  mehr  als  ge¬ 
nug  sein  dürfte.  Diese  Routinen 
sind  jedoch  so  langsam,  daß  sie 
auch  in  16,6  ms  nichts  Vernünfti¬ 
ges  tun  können.  Wir  werden  also 
unsere  eigenen  Arithmetik  Be¬ 
fehlsfolgen  programmieren 
müssen  und  dabei  einen  Kom¬ 
promiß  zwischen  Genauigkeit 
und  Geschwindigkeit  machen. 
Gleitkomma-Arithmetik  ist  zu 
aufwendig  und  für  unsere 
Zwecke  auch  gar  nicht  erforder¬ 
lich.  Eine  Genauigkeit  von  nur  8 
Bit  reicht  allerdings  auch  nicht 
immer  aus.  So  haben  ja  auch 
manche  SID-Parameter  eine 
Länge  von  12  oder  16  Bit.  Im  Pro¬ 
gramm  Modulator  wird  größten¬ 
teils  mit  16-Bit-Zweierkomplex- 
Größen  gerechnet.  Es  sei  in  die¬ 
sem  Zusammenhang  auf  dem 
Assembler-Kurs  (Teil  3  im  64'er, 
Ausgabe  11/84)  verwiesen,  wo 
ausführlich  beschrieben  wird, 
wie  man  negative  Zahlen  im 
Zweierkomplement  darstellt. 
Addition  und  Subtraktion  von 

Zweierkomplement-Größen 
werden  direkt  durch  die  CPU- 
Befehle  ADC  und  SBC  sowie 
durch  drei  Flaggen  (Negativ, 
Carry  und  Overflow)  unterstützt. 
Für  die  Multiplikation  gibt  es  da¬ 
gegen  keinen  Maschinenbe¬ 
fehl.  Da  die  Multiplikation  in  Mo¬ 
dulator  aber  eine  zentrale  Rolle 
spielt,  benötigen  wir  für  sie  ein 
effizientes  (das  heißt  möglichst 
schnelles)  Maschinenpro- 
gramm. 

Die  Multiplikation 

Was  ist  43  x  13?  Die  wenigsten 
Menschen  dürften  die  Antwort 
auf  einen  Schlag  parat  haben,  so 
wie  zum  Beispiel  auf  die  Frage, 
was  3x7  ist.  Wir  brauchen  3x7 
nicht  auszurechnen,  weil  wir  es 
auswendig  wissen.  Den  Wert 
des  Produkts  43  x  13  werden  die 


wenigsten  auswendig  kennen 
und  daher  zu  rechnen  anfangen. 
Eine  solche  Rechnung  könnte 
(ausführlich)  so  aussehen: 


(1) 

43  x  13 

(2) 

43 

(3) 

129 

(4) 

559 

In  Zeile  (1)  stehen  dabei  noch 
einmal  die  Faktoren.  Zeile  (2) 
stellt  das  Teilprodukt  43  x  10  = 
430  dar,  Zeile  (3)  das  Teilprodukt 
43  x  3  =  129.  Dm  oh  geeignetes 
Einrücken  braucht  man  die  Null 
bei  430  in  Zeile  (2)  nicht  mit¬ 
schreiben.  In  Zeile  (4)  werden 
schließlich  die  Teilprodukte  ad¬ 
diert  Dieser  vertrauter.  Rechen¬ 
weise  hegt  das  Distributivgesetz  zu¬ 
grunde,  welches  die  Bildung  von 
Teilprodukten  erlaubt: 

(5)  43x(10  +  3)=(43xl0) + (43x3) 

Die  »komplizierte«  Multiplika¬ 
tion  43  x  13  wird  also  auf  »einfa¬ 
chere«  Multiplikationen  43  x  10 
und  43  x  3  zurückgeführt.  Be¬ 
zeichnen  wir  in  unserem  Bei¬ 
spiel  die  Zahl  43  als  Multiplikant 
(MD)  und  13  als  Multiplikator  (MR), 
so  können  wir  das  Multiplika¬ 
tionsschema  so  formulieren: 
»Multipliziere  MD  mit  den  ein¬ 
zelnen  Dezimalstellen  von  MR 
und  addiere  die  Tailproduktion, 
die  mit  den  entsprechenden 
Zehnerpotenzen  1,10,1000  etc.  zu 
skalieren  sind.  Die  Skalierung 
erreicht  man  aber  einfach  durch 
Linksverschieben  um  0,1,2  etc. 
Dezimalstellen.« 

Man  kann  den  Multiplikator 
aber  auch  anders  zerlegen,  zum 
Beispiel  in  Zweierpotenzen: 

13  =  8  +  4  +  1 

und  so  multiplizieren: 

(6)  43x13  =  8x43  +  4x43  +  1x43 

=  344  +  172  +  43 

=  599 

Man  benötigt  hier  als  Sum¬ 
manden  Produkte  von  MD  mit 
Zweierpotenzen,  die  man  leicht 
durch  wiederholtes  Verdoppeln 
von  MD  erhalten  kann.  Auf  diese 
Weise  sollen  übrigens  schon  die 
alten  Ägypter  multipliziert  ha¬ 
ben.  Wenn  man  nun  MD  und  MR 
im  Binärsystem  darstellt,  kann 
man  besonders  einfach  multipli¬ 
zieren:  Die  Produkte  von  MD  mit 
Zweierpotenzen  erhält  man  ganz 
einfach  durch  wiederholtes 
Linksverschieben,  ln  unserem 
Beispiel  gilt  in  binarer  Schreib¬ 
weise:  MD  - 101011,  MR  =  1101.  Es 
ergibt  sich  das  Schema: 

MD  MR 

(7)  101011x1101 

(8)  101011 

(9)  101011 

(10)  +  101011 

(11)  1000101111 


In  Zeile  (7)  stehen  MD  und  MR. 
Die  Zeilen  (8),  (9)  und  (10)  ent¬ 
sprechen  den  Teüpodukten  43  x 
8,  43  x  4  und  43  x  1,  die  durch 
Linksverschiebung  aus  MD  her¬ 
vorgehen.  Die  Summe  in  Zeile 
(11)  ist  genau  die  Binärdarstel¬ 
lung  von  559  (nachrechnen!). 

Nach  diesem  Schema  kann 
man  nun  einen  Algorithmus  for¬ 
mulieren:  Es  sei  dazu  N  die  Zahl 
der  Binärstellen  von  MR: 

1  SUM:  =  0; 

2  FOR  I:  =  N— 1  DOWNTO  0  DO 

3  BEGIN 

4  SUM  :=  LINKS(SUM); 

5  IF  MR(I)  =  1  THEN  SUM:=SUM+MD 

6  END 

Der  Algorithmus  ist  hier  for¬ 
mal  in  einem  Pascal-ähnlichen 
Stil  dargestellt.  SUM  wird  zu¬ 
nächst  mit  0  vorbeseizt  und  dann 
N-mal  nach  links  geschoben.  Im¬ 
mer  wenn  dabei,  von  links  nach 
rechts  gezählt,  in  MR  eine  Eins 
auftritt,  wird  MD  zu  SUM  ad¬ 
diert. 

Sehen  wir  uns  für  unser  Bei¬ 
spiel  einen  Trace  des  Pro¬ 
gramms  an: 

MD =101011  MR  =  1101  N-4 


Zei- 


le 

I 

MR(I)= 

1  SUM  AKTION 

i 

urv 

def  undef 

0 

4 

3 

true 

0 

LINKS 

5 

3 

true 

101011 

+ 

4 

1 

true 

1010110 

LINKS 

5 

2 

true 

10000001 

+ 

4 

1 

false 

100000010 

LINKS 

5 

1 

false 

100000010 

nichts 

4 

0 

true 

1000000100 

LINKS 

5 

0 

true 

1000101111 

+ 

Wir  wollen  diesen  Algorith¬ 
mus  nun  konkret  in  Maschinen¬ 
sprache  realisieren.  Wenn  MD 
und  MR  zunächst  auf  8  Bit  be¬ 
grenzt  werden,  kann  man  auf  sie 
mit  einem  einzigen  Maschinen¬ 
befehl  zugreifen.  Die  Variable 
SUM  hält  man  am  besten  im  Ak¬ 
kumulator,  weil  man  sie  zum  Ad¬ 
dieren  sowieso  dorthin  laden 
müßte.  Auch  die  Linksverschie¬ 
bung  des  Akkumulators  ist  we¬ 
sentlich  schneller  als  die  einer 
Speicherzelle.  Beim  Addieren  in 
den  Akkumulator  und  beim 
Linksverschieben  treten  aller¬ 
dings  Überträge  auf,  die  nicht 
verloren  gehen  dürfen,  da  diese 
je  gerade  die  höherwertigen 
Bits  von  SUM  darstellen.  Das 
Endprodukt,  das  sich  in  SUM  bil¬ 
det,  kann  bis  zu  16  Bit  lang  wer¬ 
den.  (In  unserem  Beispiel  sind 
©s  immerhin  schon  9  Bit.)  Bild  1 
zeigt  eine  elegante  Realisierung 
des  Algorithmus,  die  mit  nur 
zwei  Speicherplätzen  aus¬ 
kommt. 

Die  langen  Rechtecke  stellen 
die  Speicherstellen  MD,  MR  und 
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Im- 

me- 

diate 

Zero 

Page 

ZP,X 

ZP,Y 

Abs. 

Abs., 

X/Y 

ünd, 

X) 

Ond), 

Y 

LDA 

LDX 

LDY 

ADC 

AND 

ORA 

EOR 

SBC 

BIT 

CMP 

CPX 

CPY 

2 

3 

4 

4/5* 

6 

5/6* 

STA 

STX 

STX 

- 

3 

4 

5 

6 

6 

Akku 

Zero 

Page 

ZP,X 

Abs. 

Abs.,X 

ASL 

LSR 

ROL 

ROR 

INC 

DEC 

2 

S 

6 

7 

*die  größere  Zahl  gilt,  wenn  beim  Indizieren  eine  Page-Grenze 
überschritten  wird 


Abso¬ 

lut 

(Indi¬ 

rekt) 

JMP 

3 

S 

JSR 

6 

- 

Relativ 

BCC 

BCS 

BEO 

BNE 

BMI 

BPL 

BVC 

BVS 

2/3/4** 

Implizit 

CLC 

CLD 

CLI 

SEC 

SED 

SEI 

DEX 

DEY 

INX 

1NY 

TAX 

TAY 

TSX 

TXA 

TYA 

TXS 

NOP 

2 

PHA 

PHP 

3 

PLA 

PLP 

4 

RTI 

RTS 

6 

**2,  wenn  nicht  gesprungen  wird 

3,  wenn  gesprungen  wird  und  das  Sprungziel  auf  der  gleichen 
Page  liegt 

4,  wenn  auf  ein  Ziel  in  einer  anderen  Page  gesprungen  wird 

Tabelle  1.  Ausführungszeiten  der  6502/651 0-Maschinenbefehle 
(in  Taktzyklen) 


den  Akkumulator  dar,  fette  Li¬ 
nien  stehen  für  Bytepfade,  dün¬ 
ne  für  Eiipfade. »+« versinnbild¬ 
licht  die  Addition  A  ;=  A  +  MD. 
In  diesem  Schema  werden  MR 
und  A  zusammen  (wie  ein  16-Bit- 
RegisterJ  nach  links  geschoben. 
Dadurch  erscheinen  die  Bits  von 
MR  nacheinander  in  der  Carry- 
Flagge  und  können  so  leicht  ab¬ 
gefragt  werden.  MD  wird  nur 
dann  zum  Akku  addiert,  wenn 
das  d  urch  Linksverschiebungen 
aus  MR  gewonnene  Bit  Eins  ist. 
Ein  Übertrag  bei  der  Addition  in 
den  Akku  muß  natürlich  nach 
MR  weitergegeben  werden,  da 
MR  gleichzeitig  auch  die  höher¬ 
wertigen  Bits  von  SUM  enthält. 
Durch  die  doppelte  Nutzung  der 
Speicherstelle  MR  wird  der  Mul¬ 
tiplikator  zwar  durch  das  höher¬ 
wertige  Byte  von  SUM  über¬ 
schrieben,  man  spart  sich  da¬ 
durch  aber  einen  Schiebebe¬ 
fehl  und  einen  Speicherplatz.  Da 
'wir  wegen  schnelleren  Zugriffs 
MD  und  MR  in  der  Zero-Page 
plazieren  werden,  und  da  der 
freie  Platz  dort  knapp  ist,  ist  die 
Einsparung  von  Speicherplatz 
durchaus  gerechtfertigt.  Hier 
das  Programm,  das  ausführlich 
besprochen  werden  soll: 


MUL  LDA  #0 

(2) 

SUM:=0 

LDX  #8 

(2) 

Schleifen- 

zähler 

LOOP  ASL  A 

(2) 

Register¬ 

paar 

ROL  MR 

(S) 

(MR.A) 
n.  links 

BCC  NEXT  (2/3) 

CLC 

(2) 

ADC  MD 

(3) 

SUM:  = 
SUM  +  MD 

BCC  NEXT  (2/3) 

INC  MR 

(8) 

Übertrag 
nach  MR 

NEXT  DEX 

(2) 

BNE  LOOP  (2/3)  nächster 
Lauf 


Die  Zahlen  in  Klammern  ge 
ben  die  Ausführungszeiten  der 
Befehle  in  Tak-zyklen  an.  Sie 
sind  aus  Tabelle  1  entnommen. 
Bei  den  Verzweigungen  nehmen 
wir  der  Einfachheit  halber  an, 
daß  keme  Page-Grenzen  über¬ 
sprungen  werden,  sonst  müßte 
man  im  Falle  eines  Sprunges 
vier  statt  drei  Takte  in  Rechnung 
stellen  Zur  Arbeitsweise  des 
Programms:  Zuerst  wird  SUM 
mit  0  vorbesetzt.  Dazu  genügt  es, 
den  Akku  mit  0  zu  besetzen,  da 
die  höherwertigen  Bits  von  SUM 
erst  durch  den  Schiebeprozeß 
entstehen.  Das  X-Register  zählt 
die  Schleifendurchläufe,  Inner¬ 
halb  der  Schleife  wird  zunächst 
das  Registerpaar  (MR.A)  durch 
das  Befehlspaar  ASL,ROL  nach 
links  verschoben.  Beide  Befehle 
schieben  nach  links,  wobei  Bit  7 
in  die  Carry- Flagge  geschoben 
wird.  Der  Unterschied  der  bei¬ 
den  Befehle  besteht  aber  darin, 
daß  ASL  das  Bit  0  immer  mit  Null 
besetzt,  während  ROL  Bit  0  mit 
dem  Wert  besetzt,  den  die 
Carry-Flagge  vor  dem  ROL-Be- 
fehl  hatte,  ln  unserem  Fall  ist  das 


gerade  das  aus  dem  vorherge¬ 
henden  ASL  stammende  Bit  7 
vom  Akku  Nach  der  Verschie¬ 
bung  zeigt  das  aus  MR  stammen¬ 
de  Carry-Bit  an,  ob  MD  zu  SUM 
addiert  werden  soll  oder  nicht. 
Falls  nicht,  winj  rrul  BCC  NEXT 
die  Addition  übersprungen.  Die 
Addition  selbst  berücksichtigt 
durch  ein  weiteres  BCC  NEXT/ 
INC  MR  einen  eventuell  auftre¬ 
tenden  Übertrag  nach  MR.  Die 
Speicherstelle  MR  enthält  zwar 
gleichzeitig  Teile  vom  Multipli¬ 
kator  und  von  SUM,  man  kann 
sich  aher  überlegen,  daß  ein 
Übertrag  nach  MR  nur  den 
SUM-TteU,  aber  nicht  den 
Multiplikator-Teil  beeinflußt. 
Nach  dem  Verlassen  der  Schlei¬ 
fe  steht  schließlich  das  16-Bit- 
Produkt  (die  Variable  SUM)  im 


Registerpaar  (MR.A).  Der  Multi¬ 
plikator  wurde  überschrieben, 
der  Multiplikant  in  MD  dagegen 
ist  unverändert  erhalten  geblie¬ 
ben. 

Zeitbedarf 

Es  soll  hier  exemplarisch  ge¬ 
zeigt  werden,  wie  man  den  ge¬ 
nauen  Zeitbedan  eines  Maschi¬ 
nenprogramms  ermittelt.  Die 
Ausfuhrungszeit  des  Multipiika- 
tionsprogramrns  ist  nicht  einheit¬ 
lich.  Sie  hängt  von  den  Anfangs 
werlen  von  MR  und  MD  ab,  -wel¬ 
che  das  Verhalten  des  Pro¬ 
gramms  an  den  beiden  Verzwci 
gungsstellen  (BCC  NEXT)  bee¬ 
influssen.  Wir  werden  hier  also 
den  günstigsten  (in  bezug  auf  die 
Rechenzeit)  und  den  ungünstig¬ 
sten  Fall  untersuchen.  Im  ungün¬ 
stigsten  Fall  muß  bei  jedem 


Schleifendurchlauf  addiert  wer¬ 
den,  und  zusätzlich  tritt  bei  jeder 
Additon  ein  Übertrag  auf.  Der 
Zeitbedarf  eines  Schleifen¬ 
durchlaufes  beträgt  dann: 

2(ASL)  i  5(ROL)  +  2(BCC) 

+ 2(CLC)  +  3(ADC)  +  2(BCC)  +  S 
(INC)  +  2(DEX)  +  3(BNE)  •= 

=  26  Takte 

Die  Gesamtdauer  der  Multi¬ 
plikation  ergibt  sich  dann  so. 
2(LDA)  +  2(LDX)  +  8*26(Schleife) 

-1  =  211 

Die  -1  kommt  dadurch  zustan¬ 
de,  daß  beim  letzten  Schleifen¬ 
durchlauf  bei  BNE  nicht  ge¬ 
sprungen  wird  und  dadurch  nur 
2  statt  3  Takte  benötigt  werden. 

Im  günstigsten  Fall  (MR = 0,  die 
Addition  wird  immer  überoprun 
gen)  braucht  die  Schleife: " 

2(  ASL) + S(ROL)  +  3(BCC) 

+  2(DEX) + 3(BNE)  = 

=  16  Takte 
Gesamtdauer: 

2(LDA)  i-  2(LDX)  +  8*16 
(Schleiie)-l  =  131 

Die  Ausführungszeit  der  Multi¬ 
plikation  liegt  also  immer  zwi¬ 
schen  131  und  211  Takten,  wobei 
die  Grenzwerte  wohl  selten  er¬ 
reicht  werden  dürften.  Man 
kann  im  Mittel  wohl  mit  zirka  170 
Takten  rechnen.  Es  ist  für  unsere 
Zwecke  sehr  wichtig,  diese  Grö¬ 
ße  zu  kennen.  Wenn  wir  in  unse¬ 
rem  Programm  Modulator  für  ei¬ 
nen  Schritt  eine  Zeit  von  maxi¬ 
mal  16,6  ms  zur  Verfügung  ha¬ 
ben,  so  können  wir  daraus  eine 
theoretische  Obergrenze  für  die 
Anzahl  der  in  einem  Schritt  aus¬ 
führbaren  Multiplikationen  ab¬ 
leiten.  Sie  liegt  bei  unserer 
8-mal-8-Bit-Mulliplikation  etwa 
bei  75,  wenn  man  den  ungünstig¬ 
sten  Fall  zugrundelegt. 

Multiplikation  mit  größerer  Wortlänge 

Bei  Modulator  wird  die  Multi¬ 
plikation  für  folgende  Zwecke 
benötigt:  Die  LFOs  und  der  Hüll¬ 
kurvengenerator  erzeugen 
Werteverläufe  mit  maximaler 
Amplitude.  Das  bedeutet  bei 
der  16-Bit-Zweierkomplement- 
Arithmetik,  in  der  hauptsächlich 
gerechnet  'wird,  daß  die  Werte 
den  zur  Verfügung  stehenden 
Bereich  von  -32768  bis  +32767 
meistens  voll  ausschöpfen.  Nun 
möchte  man  aber  oft  das  Modu 
lationsziel,  zum  Beispiel  die  Fre¬ 
quenz  einer  SID-Stimme,  nur  um 
einige  Hertz  nach  oben  und  un¬ 
ten  modulieren.  Man  möchte  die 
Tiefe  dieser  Modulation  aber 
auch  möglichst  kontinuierlich 
steuern  können,  so  daß  zum  Bei¬ 
spiel  auch  Modulationstiefen 
von  einer  Quinte  oder  gar  einer 
Oktave  möglich  sind.  Aus  die¬ 
sem  Grund  muß  das  Modula- 
tionssignal  erst  mit  einem  geeig¬ 
neten  Skalicrungsfaktoi  multi¬ 
pliziert  werden.  Anschließend 
kann  es  durch  einfache  Addition 
zur  Zielgröße  diese  in  dem  ge¬ 
wünschten  Sinn  modulieren, 

Bei  der  Modulation  von  Tonhö¬ 
hen  ergibt  sich  außerdem  noch 
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ein  weiteres  Problem:  Dort 
kommt  es  nicht  auf  absolute,  son¬ 
dern  auf  relative  Frequenzver¬ 
schiebungen  an.  Ein  Beispiel: 
Ein  500-Hz-Tbn  wird  um  ±5  Hz 
moduliert.  Um  bei  einem 
1  OOO-Hz-Ton  den  gleichen  Effekt 
zu  erzielen,  muß  man  ihn  um  ±  10 
Hz  modulieren.  Der  Modula¬ 
tionsbetrag  muß  also  bei  Tonhö¬ 
hen  zusätzlich  mit  der  zu  modu¬ 
lierenden  Frequenz  selbst  ska¬ 
liert  werden,  was  eine  weitere 
Multiplikation  erforderlich 
macht. 

Die  Wortlängen  der  Modula¬ 
tionsziele  sind: 


Tonfrequenzen 

16  Bit 

Pulsweiten 

12  Bit 

Filterfrequenz 

8  Bit 

Lautstärke 

4  Bit 

Die  Filterfrequenz  ist  beim  SID 

zwar  eine  11-Bit-Größe,  da  aber 
feine  Frequenzunterschiede  in 
der  Filterfrequenz  nicht  hörbar 
sind,  werden  nur  die  oberen  8 
Bit  moduliert. 

Zur  Steuerung  der  Modula¬ 
tionstiefe  genügen  8-Bit.  Eine 
fein  gestufte  Modulation  ist  oh¬ 
nehin  nur  bei  der  Tonhöhenmo¬ 
dulation  erforderlich,  Hier  ge¬ 
nügt  es  aber,  wenn  das  Modula¬ 
tionssignal  selbst  einen  fein  ge¬ 
stuften  Verlauf  (16  Bit)  hat.  Die 
durch  8  Bit  realisierbaren  25S 
verschiedenen  Modulationstie¬ 
fen  reichen  aus,  um  alles  vom 
feinsten  Vibrato  über  Tbnhöhen- 
sprünge  in  allen  musikalisch 
sinnvollen  Intervallen  bis  hin  zur 
Sirene  mit  weitem  Frequenzbe¬ 
reich  zu  verwirklichen. 

Wir  benötigen  also  eine  16  x 
8-Bit-Multiplikation.  Der  Algo¬ 
rithmus  von  Bild  1  ließe  sich  in 
diese  Richtung  leicht  erweitern, 
Man  kann  etnweder  MR  auf  16 
Bit  verlängern  und  benötigt 
dann  16  statt  8  Schleifendurch¬ 
läufe  oder  man  verlängert  MD 
und  A  auf  16  Bit.  In  letzterem  Fall 
benötigt  man  weiterhin  nur  8 
Schleifendurchläufe  wobei 
aber,  im  Falle  einer  Eins  aus  MR, 
zwei  16-Bit-Größen  (MD  und  A) 
addiert  werden  müssen.  Natür¬ 
lich  braucht  man  für  das  höher¬ 
wertige  Byte  von  A  einen  weite¬ 
ren  Speicherplatz  in  der  Zero- 
Page. 

In  Modulator  wird  ein  anderer 
Weg  eingeschlagen.  Er  wird 
durch  Bild  2  beschrieben.  Die¬ 
ses  erscheint  zwar  zunächst  sehr 
kompliziert,  das  zugehörige  Pro 
gramm  benötigt  aber  eine  gerin¬ 
gere  Ausführungszeit.  Vorgege¬ 
ben  sind  ein  16-Bit-Multiplikator 
im  Registerpaar  (MR  +  l.MR)  und 
ein  8-Bit-Multiplikant  in  MD.  (Der 
Einfachheit  halber  werden  hier 
Zero-Page-Speicherplätze  »Re¬ 
gister«  genannt.)  Das  Ergebnis 
ries  Programms  soll  ein  24-Bit- 
Produkt  im  Register  Tripel 
(MR  +  l.MR.  A)  sein. 

Zuerst  wird  das  niederwertige 
Teilprodukt  MR  x  MD  gebildet. 
Das  Rechteck  mit  dem  Kreuz 
steht  für  das  Verfahren  aus  Bild 


1,  welche  wie  schon  beschrie¬ 
ben,  ein  8  x  8-Bit-Produkt  in 
(MR.A)  liefert.  A  wird  im  Y- 
Register  zwischengspeichert. 
Anschließend  werden  MR  +  1 
und  MD  ebenfalls  nach  Bild  1 
multipliziert.  Das  Ergebnis  ist 
das  höherwertige  Teilprodukt  in 
(MR  +  l.A).  Schließlich  müssen 
die  Teilprodukte  nur  noch  mit 
nchtiger  Skalierung  addiert 
werden.  Dazu  wird  das  höher¬ 
wertige  Byte  des  mederwerti¬ 
gen  Teilprodukts,  das  in  MR 
steht,  zum  niederwertigen  Byte 
des  höherwertigen  Teilpro¬ 
dukts,  das  sich  schon  im  Akku 
befindet,  addiert.  Dabei  muß 
ein  eventueller  Übertrag  nach 
MR  +  1  berücksichtigt  werden. 
Das  niederwertige  Byte  des  nie- 
derwertigen  Teilprodukts  wird 
nur  noch  vom  Y-Register  in  den 
Akku  übertragen,  wo  es  den  nie¬ 
derwertigsten  Tteil  des  Endpro¬ 
dukts  darstellt.  In  Modulator 
werden  allerdings  grundsätz¬ 
lich  nur  16-Bit-Größen  weiterver¬ 
arbeitet,  so  daß  diese  untersten 
8  Bit  des  Produktes  unberück¬ 
sichtigt  bleiben. 

Im  Source  Lisnng  zu  Modula¬ 
tor  steht  das  zugehörige  Pro¬ 
gramm  MULU  in  den  Zeilen  1680 
bis  1970.  Zunächst  steht  dort 


zweimal  hintereinander  das 
schon  vorgestellte  8x8  Bit-Mul¬ 
tiplikationsprogramm.  anschlie¬ 
ßend  werden  ab  Zeile  1910  die 
Teilprodukte  addiert.  Eine  Ana¬ 
lyse  ergibt  eine  Laufzeit  von  mi¬ 
nimal  282  Takten  und  maximal 
446  Takten. 

Alle  bisher  beschriebenen 
Multiplizierer  arbeiten  nur  dann 
korrekt,  wenn  man  die  Faktoren 
als  positive  Ganzzahlen  inter¬ 
pretiert,  Sie  sind  ohne  Ergän¬ 
zung  nicht  für  Zweierkomple¬ 
ment-Größen  geeignet.  Das  Pro¬ 
gramm  MÜLS  ab  Zeile  2020  ist 
eine  solche  Ergänzung.  Es  be¬ 
rücksichtigt  das  Vorzeichen  des 
Multiplikators.  Ist  dieser  positiv, 
so  wird  sofort  nach  MULU  ver¬ 
zweigt.  Ein  negativer  Multiplika¬ 
tor  wird  zunächst  negiert,  wo¬ 
durch  er  positiv  wird  (Zeile  2040 
bis  2100),  MULU  wird  als  Unter¬ 
programm  aufgerufen,  und 
schließlich  wird  das  positive 
Produkt  noch  einmal  negiert, 
was  dann  ein  korrektes  Resultat 
liefert.  Der  8-Bit-Multiplikant 
wird  aber  nach  wie  vor  nur  als 
positive  Zahl  behandelt. 

Die  IFOs 

Sie  erzeugen  die  für  Modula¬ 
tionen  sinnvollen  Kurvenverläu¬ 
fe  als  Folge  von  16-Bit-Zweier- 


komplement-Zahlen.  Am  häufig¬ 
sten  wird  die  Dreieckskurve  be¬ 
nötigt,  da  sie  keine  Sprünge 
macht  und  daher  bei  Anwen¬ 
dung  auf  Tonhöhen  und  auf  Puls¬ 
weiten  am  angenehmsten  klingt. 
Der  Sägezahn  eignet  sich  mehr 
für  »härtere  Effekte  und  für  Vi¬ 
deospiele,  wo  stark  und  schnell 
modulierte  Töne  oft  zu  hören 
sind.  Die  Rechteckkurve  eignet 
sich  für  Triller  (bei  Frequenzmo¬ 
dulation),  für  mandolinenartige 
Effekte  (bei  Modulation  von 
Lautstärke  und  Filterfrequenz) 
sowie  für  rhythmische  Effekte 
(bei  Frequenzmodulation  mit 
größerer  Mcdulationstiefe). 

Rechnerisch  kann  man  einen 
Sägezahnförmigen  Wertverlauf 
besonders  einfach  erzeugen. 
Bei  Modulator  wird  einfach  ein 
16-Bit-Wert  zyklisch  hochgezählt. 
Zyklisch  bedeutet,  daß  immer 
wieder  beim  Minimalwert  ange¬ 
fangen  wird,  wenn  der  Maximal¬ 
wert  überschritten  wird.  Das  ge¬ 
schieht  bei  begrenzter  Wortlän¬ 
ge  automatisch  durch  Überlauf, 
den  man  hier  absichtlich  unbe¬ 
rücksichtigt  läßt,  Im  Modulator- 
Programm  wird  der  Wertever¬ 
lauf  durch  das  Wort  ( = Bytepaar) 
SAWUP  repräsentiert.  SAWUP 
wird  einfach  um  den  Betrag  im 
Wort  LFOF  hochgezählt.  Da¬ 
durch  ist  die  resultierende  Fre¬ 
quenz  der  Sägezahnkurve  di¬ 
rekt  proportional  zum  Wert 
LFOF.  Im  Programm  wird  in  Zei¬ 
le  2300  bis  2420  erst  das  Steuer¬ 
register  LFOC  abgefragt.  Im 
Falle  des  HOLD-  oder  RESET- 
Status  braucht  nichts  berechnet 
zu  werden.  Im  Falle  des  RUN- 
Status  wird  SAWUP  in  den  Zeilen 
2430  bis  2510  hochgezählt,  Der 
aufsteigende  Säyezahn  wird 
dann  gewissermaßen  als  »Ma¬ 
ster«  für  die  anderen  Kurvenfor¬ 
men  herangezogen  Bild  3  zeigt, 
wie  diese  aus  SAWUP  gewonnen 
werden. 

Interessant  ist,  daß  gleichgül¬ 
tig,  ob  man  die  SAWUP-Werte  im 
Zweierkomplement  oder  grund¬ 
sätzlich  positiv  interpretiert,  sich 
immer  der  gleiche  Kurvenver¬ 
lauf  ergibt  (gestrichelte  und 
durchgezogene  Kurve  bei  SA¬ 
WUP). 

Die  Rechteckkurve  entsteht 
dadurch,  daß  man,  gesteuert 
durch  SAWU,  zwischen  den  Ex¬ 
tremwerten  +  LFOA  x  2  (hoch)  7 
und  -LFOA  x  2  (hoch)  7  hin-  und 
herschaltet  Man  spart  sich  so 
die  sonst  anschließend  faltige 
Multiplikation  mit  der  LFO- 
Amplitude  (=  Modulationstiefe) 
LFOA.  Hin-  und  hergeschaltet 
wird,  wenn  derSägezahnwert  ei¬ 
nen  vorgegebenen  Schwellwert 
über-  beziehungsweise  unter¬ 
schreitet.  Dieser  Schwellwert  ist 
nichts  anderes  als  die  Pulsweite 
LFOP  SAWDOWN  erhält  man 
einfach  durch  Negieren  von  SA¬ 
WUP.  Bildet  man  das  Maximum 
von  SAWUP  und  SAWDOWN,  so 
erhält  man  einen  dreieckförmi- 
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gen  Kurvenverlauf,  der  aller¬ 
dings  nur  positive  Werte  an¬ 
nimmt.  Durch  Verdoppeln  die¬ 
ser  Werte  und  Verschiebung  um 
2(hoch)  15  nach  unten  erhält  man 
dann  eine  symmetrische  Drei¬ 
eckskurve  maximaler  Ampli¬ 
tude. 


Im  Programm  wird  in  Zeile 
2530  bis  2590  aus  LFOC  ermit¬ 
telt,  welche  Kurvenform  über¬ 
haupt  erzeugt  werden  soll,  und 
entsprechend  weiterverzweigt. 
Mit  Ausnahme  des  Rechtecks, 
das  schon  mit  seiner  endgülti¬ 
gen  Amplitude  aufwaitet,  wird 


fa  Abtastfrequenz 


absutaetendoe  Signal 


4  Signalfrequenz 


resultierender  .Kurvenverlauf 


Bild  4.  Demonstration  des  Aliasing-Effekts 


überlagerte  Bewegung 


der  errechnete  Wert  noch  mit 
der  Amplitude  LFOA  multipli¬ 
ziert  (Zeile  3090  bis  3170).  Das 
LFO-Programm  rechnet  alle  7 
LFOs.  Dabei  wird  auf  die  jeweili¬ 
gen  Parameter  indiziert  zuge¬ 
griffen.  Das  Byte  LFONR  enthält 
dazu  einen  Adreß-Offset  der 
vom  LFO-Programm  in  das  X- 
Register  geladen  wird.  Dieser 
Offset  muß  vom  Programm,  wel¬ 
ches  das  LFO-Programm  auf¬ 
ruft,  korrekt  zur  Verfügung  ge¬ 
stellt  werden. 

Aliosing-Parasitöre  Frequenzen 
Bei  der  eben  beschriebenen 
Erzeugung  der  LFO-Kurvenfor- 
men  tritt  bei  etwas  höheren  Fre¬ 
quenzen,  etwa  ab  10  Hz,  noch  ein 
interessantes  Phänomen  auf. 
Man  kann  die  Erzeugung  eines 
Sägezahnverlaufs  durch  zykli¬ 
sches  Hochzählen  eines  Wortes 
auch  als  Abtastung  einer  hypo¬ 
thetischen,  kontinuierlichen  Sä- 
gezahnkurfe  auffassen.  Die  Ab¬ 
tastfrequenz  ist  in  unserem  Fall 
mit  60  Hz  fest.  Die  Frequenz  der 
hypothetischen  Sägezahnkurve 
kann  man  aber  durch  den  Para¬ 
meter  LFOF  sehr  feinstufig  zwi- 
schenOund  60  Hz  variieren.  Wie 
soll  aber  zum  Beispiel  eine  LFO- 
Kurve  mit  50  Hz  aussehen,  wenn 

Fortsetzung  auf  Seite  173 
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BD 

2210: 

COCA 

ES 

FC 

SBC 

HR*1 

3500: 

CI  86 

20 

75 

CO 

J5P 

BULU 

1  INC < 16) -HR< 16»  *2*AI8» /2**8 

2220: 

COCC 

35 

FC 

STA 

BR*  I 

3510: 

C1B* 

18 

ATTACK2 

CLC 

;HRItö>« 

NCI16J 

2230: 

COCE 

49 

TYA 

3520: 

CIBA 

AD 

6C 

CO 

LDA 

E 

2240: 

COCF 

60 

»TS 

3350: 

CISC 

63 

£B 

ADC 

HS 

3540: 

CI  BF 

BC 

6C 

CO 

STA 

E 

1  LF( 

n  UH  EINEN 

SCHRITT  NEITERSCHA17EN 

3550: 

c  i  er 

05 

5TA 

Mfi 

l  D^s 

PROOPAHH  E-RARl‘1  EINE 

3RUESSE  :er  OELIAl; 

3360: 

C1C« 

AD 

60 

CO 

LOA 

E*l 

1  3  * 

N  (N-0 

..61 

N  l FON* 

3570: 

C1C7 

65 

FC 

ADC 

BP*  1 

jseo: 

CIC9 

ao 

60 

CO 

STA 

E*l 

7700: 

CODO 

A6 

FE 

LFO 

LDI 

LFONR 

3390: 

C1CC 

33 

FC 

5TA 

BR«  I 

;EII6lsEC6)*INCr.6l 

2310: 

COD? 

BC 

2« 

CO 

-OA 

IFOC.X 

3600« 

C1CE 

C9 

FF 

CBP 

•  IFF 

;E6l 16»  >“IFFOC  -?• 

2320: 

C0D5 

24 

06 

AND 

IfOt 

3610: 

C100 

90 

47 

BCC 

E6BÜL 

|< 

2330: 

CO07 

C9 

n« 

CfiP 

*10« 

|HOLD  •?* 

3670: 

cid: 

A9 

01 

LDA 

■  1 

7  340 : 

C0D9 

£0 

12 

Bto 

LFCRTS 

; DANN  NICHTS  ZU  »UN 

3630: 

C1P4 

8C 

70 

CO 

STA 

EPHASE 

; UEPERGAN5  IU  DECAY 

2350: 

CODI 

C9 

06 

cnP 

•  *0t 

SRUN  7* 

3640: 

cio: 

DO 

40 

BNE 

E3BUL 

; ( I BHf R ) 

2360: 

CODD 

FO 

OF 

BEO 

IFCRUN 

3*50: 

C1D4 

AO 

6C 

CO  DECAY 

LOA 

E 

2370: 

CODE 

A®  .00 

IFOPES 

LDA 

•  0 

iRtStr 

3660: 

:idc 

85 

£B 

ETA 

BP 

2380: 

C0E1 

90 

«9 

CO 

STA 

SAUU* , I 

; DYNAMISCHE  PAPABETER 

3670: 

CI  DE 

38 

3EC 

2390: 

COt  4 

40 

»- 

co 

STA 

5AWI “fl. 

X  1  INI  1 2 4L  1  -  1 ;KfcN 

3680: 

CI  DF 

AO 

60 

CO 

LDA 

E»  1 

:<>C: 

C0E7 

°D 

46 

CO 

ETA 

KURVE . : 

3690: 

CIE2 

ED 

45 

CO 

sac 

8 

7M0: 

COt  ß 

®0 

4C 

CO 

STB 

KURVE* 1 . t 

3700: 

:ies 

63 

FC 

STA 

B**  1 

: HA  c : 6» ■£  < 16» -S 1 b  *7**B 

2*70: 

COED 

60 

-FORTS 

RTG 

3710« 

C1E7 

AD 

4« 

CO 

LOA 

D 

7430: 

COCE 

18 

LEQPlIK 

CLC 

3720: 

CIEA 

«C 

FF 

CI 

JhF 

DECREL 

744.-,: 

COEF 

FD 

4® 

CO 

LDA 

SAN-’P,  « 

3730: 

:ieo 

A9 

00 

RELEASE 

LOS 

•0 

2450: 

C0F2 

’O 

20 

CO 

ADC 

lFOF.i 

3740: 

ci  Er 

eo 

70 

CO 

STA 

EPHASE 

»SEI  0ATE-1  NIEDER  ATTACK 

7*60: 

C0F5 

90 

43 

CO 

STA 

SAnjP i 1 

3750: 

C1F2 

AD 

6C 

CO 

LDA 

E 

. { 70: 

COFB 

83 

F8 

Sit* 

BK 

3760: 

C1F5 

83 

FB 

5TA 

H» 

7400: 

COEA 

BO 

4A 

CO 

LDA 

SAWJPU 

» 

3770: 

CIF7 

AD 

60 

CO 

IDA 

E*l 

249C: 

COED 

70 

21 

CO 

ADC 

LFOFfl, 

3750: 

:  i  fa 

85 

FC 

STA 

M«*l 

]RRll6»aE <16> 

7300: 

C10C 

9 D 

4h 

CO 

STA 

SAMUPU 

» 

3  »90: 

C1FC 

AD 

46 

CO 

LDA 

R 

2510: 

C 1 03 

83  FC 

STA 

BRfl 

:SAMUP*SANUP.LFOF 

3800: 

cirr 

85 

FD 

DECREL 

STA 

BO 

;GEHE 1NS-NER  TEIL  FUE»  DECAY  UND  RELEASE 

;  kQRVEMFQRlt 

PNJTTElN 

3810: 

C20! 

20 

75 

CO 

JSR 

BULU 

;NRCA»=DECI161 

2330: 

C 103 

HO 

24  CO 

LDA 

LFOC.X 

3870: 

C20« 

38 

EC- 

2540: 

CI  08 

79 

18 

AND 

♦  tlB 

3830: 

C205 

AD 

6C 

CO 

LOA 

E 

:r-5o« 

CI  vA 

FO 

27 

SCO 

TRI  AN 

38401 

C20B 

£3 

=  3 

sec 

HR 

756-3: 

C10C 

C9 

OB 

:np 

*»:b 

3850: 

C20A 

BD 

6C 

CO 

STA 

E 

7370: 

cior 

FO 

30 

:-eq 

LEO ’.UL 

(SA.Uf,  WENIG  ru  TUN 

3860: 

C70D 

83 

'  8 

5IA 

NR 

2500: 

cno 

C4 

10 

CNP 

.1 

3670: 

C23F 

AD 

60 

CO 

LDA 

E*1 

7590: 

CI  1?  FP 

«0 

BEQ 

Shwddmn 

3880: 

C2I2 

E5 

EC 

sec 

NR*  I 

j  SQUARE 

3899: 

C214 

30 

60 

CO 

STA 

E*I 

i  kurve  • 

LF0A(8i 

•  2«l7 

F AUS  S-NUP 

LFOP 

3900: 

C217 

83 

FC 

STA 

RR*  1 

:  "UP  VE  : 

,eoa:fi 

♦  2**7 

SONST 

3910: 

C719 

AD 

47 

CO  EGNUi 

LDA 

ESA 

: HUELLKU-VE  SKALIEREN 

2630: 

.  4 

AS 

FC 

ICA 

BR  •  1 

3920: 

C21C 

85 

FD 

3IA 

BO 

2640: 

CI  !6 

DD 

77 

CO 

:hp 

-FOP.X 

3930: 

C21E 

20 

75 

CO 

JSR 

BJLU 

|NR(16»*E ;16»*EGAiBI /7«*5 

laSO: 

Cll  9 

40 

09 

acc 

SQPOS 

3940: 

C22J 

A9 

08 

LDA 

•  •öS 

; BASKE  EUER  8IT  J 

766ÖI 

CI  18 

:e 

SONES 

SEC 

tLFOA  SE6!E?EN 

39501 

-22" 

2C 

48 

CO 

BIT 

ESC 

;*/- 

2670: 

CIIC 

*9 

00 

LDA 

•  0 

3960: 

C726 

FO 

10 

8E0 

EGPLUS 

2680: 

CI  IE 

FC 

23 

CO 

SBC 

LFOA , » 

3970: 

C729 

39 

S8BINUS 

SEC 

i EKURVE 

K6IEREN 

*69  :  : 

C 171 

38 

SEC 

3980: 

C22* 

A7 

00 

LDA 

•0 

-/vut 

U2! 

et 

114 

BC5 

SBI 

;  i  inhEBi 

3970. 

CZ2B 

CD 

ro 

SBC 

HB 

2710: 

C174 

18 

S0P05 

:lc 

4000: 

C22  0 

80 

OE 

CO 

STA 

ENURVE 

772f'« 

CI  25 

50 

?: 

c< 

LDA 

LFOA, 1 

4010: 

C230 

A9 

00 

LDA 

•  0 

2730: 

C 1 26 

64 

SOI 

ROP 

A 

t ARTITHHET I SCHER  RE7HT3-SH JFT 

«020: 

C232 

E3 

FC 

SBC 

NR«  1 

7740: 

C!29 

9D 

4C 

c< 

STA 

KURVE «I 

I 

«030: 

C234 

ec 

eF 

CO 

STA 

EKURVE* 1 

273vl 

CI2C 

3» 

0 

.DA 

•  0 

40«0: 

C237 

60 

RT5 

7760: 

c:2E 

6A 

POS 

A 

«050: 

C238 

A3 

FE 

ES*lUS 

LDA 

NR 

»EKURVE 1 16»  »Nl 116» 

2770: 

212F 

90 

43 

CO 

STA 

KURVE.» 

«050: 

C23A 

00 

6E 

CO 

STA 

EKURVE 

2780: 

CI  3? 

60 

RTs 

4070: 

C230 

A5 

FC 

LDA 

NR*  1 

156  ißbi* 


Ausgabe  B/Mai  1983 


Musik-Kurs 


C  64 


4080: 

4090: 


C23F  80  6r  CO 
C242  60 


sta 

RTS 


I  SUMMIERE  H3DULAT IONSBE 1 TRAEGE 

SENAESS  EINER  KSV-ZEILE 

i  DAS  PROGRAMM  EANOPTET  EIN 

CSV- 

BYTE  IN  AOU  Ä 

1  UND  LIEFEST  MODUL AMONS -SUMME 

;v  MR» 16) 

AB 

4130: 

C243  49  FF 

summdd 

EOR 

»IFF 

;«SV-arlE  1HVS8IIEBE» 

*160: 

C245  83  FF 

STA 

TEHP 

4170: 

C 247  A9  00 

-DA 

10 

4180: 

C249  B5  FB 

STA 

hr 

4190: 

C24B  85  *C 

STA 

MR*  1 

4200: 

C24D  AO  Ob 

LflY 

10 

ISCHLEIFENZAEHLER 

4210: 

C24F  *6  FF 

SUHLOOP 

L5K 

TEMF 

4220: 

C25I  BO  11 

»CS 

SUMMEIT 

|BEI  I  NICHTS  SUMMIEREN 

4230: 

C2S3  AA 

TAI 

:A:PE55v£RSAT2  FL'ER  LFQ-51QECKE 

4240: 

C254  A5  TB 

LDfl 

MR 

4250: 

C256  7D  46  CO 

ADL 

KURVE , X 

4260: 

C759  35  FB 

STA 

MR 

4270« 

C25B  A3  FL 

LDA 

MR*  1 

4280; 

C25D  70  4C  CO 

"DC 

KURVE* 1, 

I 

4290: 

C260  35  FC 

STA 

-R.l 

4300« 

C262  ÜA 

TIA 

4210: 

C263  39 

SEC 

4320: 

C264  69  04 

SUMME IT 

"DC 

14 

1*5 

4330: 

C266  83 

DEY 

4340: 

C267  DO  E6 

BNE 

SUMLOOP 

4350: 

C269  60 

RIS 

;  P0RTAMENT0-EINZELSCMR1TI  FUER  S 

TIMM?  N 

;  PROGRAMM  ERHÄRTET 

7  «  N  «N-0,1, 

21  IN  BTtKR 

*400: 

C266  A6  FE 

FORT 

1  Di 

5TINP 

- 

4410: 

C26C  BB  04  CO 

IDA 

PORTA, I 

<470: 

C26F  DO  OD 

»NE 

PORTRUM 

♦  430: 

C27.  9D  00  CO 

IDA 

f ,« 

; P2RTA-0,  FREOUEMZ  UEBER 

4440: 

C274  90  05  CO 

STA 

FP  i  T 

4430: 

C277  BO  01  CO 

LDA 

r*i.i 

*460: 

C27A  9D  06  CO 

ST« 

FP* 1 , I 

4470: 

C27D  63 

RTS 

4430: 

C27E  50  01  CO 

PORTBUN 

LOA 

F4J.I 

4*90: 

C2B1  CO  06  CO 

CMP 

FP.1,1 

4500: 

CZ34  90  3A 

5CC 

PMIMUS 

ifvfp 

4510« 

C206  DO  OB 

BNE 

PPLUS 

|F»FP 

;  GLEICHHEIT,  lOH-BYTES  VERGLEICHEN 


4S30i 

4540: 

4550: 

»560: 

♦570: 

4580: 

4590: 
4600; 
4610: 
4620: 
4630: 
4640: 
4650: 
4660: 
4670: 
*680: 
4&9Ö! 
4700: 
♦  710: 
4720: 
*730« 
«740: 
*750: 
4760« 
4770« 
4780: 
4790: 
*800: 
4810« 
4820: 
4830: 
4S*0: 
*550: 
4860: 
*870: 
*880: 
4890? 
4500: 
4910: 
4970: 
4«!0: 
4940: 
4950« 


C288  BE  00  CO 
C28B  D3  05  CO 
C28E  50  30 
C290  00  01 
C292  60 
C293  38 
C294  BO  00  CO 
C297  FD  05  CO 
C29A  85  Fl 
C29C  BD  01  CO 
C29F  FE  06  CO 
C2A2  95  FC 
C2A4  BE  04  CO 
C2A7  85  FD 
C2A9  20  75  CO 
C2AC  Ab  FE 
C2-t  38 
C2AF  BD  03  CO 
C2I2  65  FB 
C2»4  9D  05  CO 
C287  DC  06  CO 
C2ifi  65  FC 
C2IC  9D  06  CO 
C26F  60 

C2C0  38  f 
C2CI  BO  05  CO 
C2C4  FD  00  CO 
C2C7  85  FB 
C2C9  BO  06  CO 
C2CC  FD  01  CO 
C2CF  05  FC 
C2II  BD  04  :o 
C2C4  05  FD 
C206  20  75  CO 
C2D9  A6  FE 
C2DB  18 
C2DC  BC  03  CO 
C2DF  E5  FB 
C2E 1  9D  05  CO 
C2E*  BD  06  CO 
C2E7  £3  FC 
C2E9  90  06  Cö 
C2EC  60 


LDA 
C  KP 
BCC 
3NE 
»TS 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 


f.X 

FP,X 
PHlMiS 
'PLUS 
; F*f P, 

F,X 

FP.I 

MR 

F*1,X 

FP»1.« 

n«»| 


ip<fp 

I F  >FP 

NICHTS  ZU  TU* 


iDIFUb  =F  !6»-FP(U> 


LOX 

CIC 

LDA 

SBC 

STA 

LDA 

SBC 

STA 

RTS 


»P,I 
HR 
FP,  I 
FP«1.I 
HR*  I 
FP«1.X 


;FP<16»>F0,  «• -DEC(16)-| 


HAUPT  PROGRAMM 

SCHALTE  ALLE  NODUlATINSQJELLcN  U*  EIMEN  SCHRITT  NEUER 
MODULIERE  A.LE  FARAMETER  8EPAES5  > REUZSCHIENEN VERTE  ILER  (fSVI 


7  LFOS  MEITERSCHALTEH 


5020; 

C2ED 

A9 

IE 

MODUL 

LDA 

•30 

3030« 

C2EF 

95 

FC 

LFOLOOP 

STA 

IFONR 

3040: 

C2F1 

20 

DO 

CO 

JSR 

LFO 

5050t 

C2F4 

3B 

SEC 

3060: 

C2F5 

AS 

FE 

LDA 

LFQNR 

5070: 

C2F7 

E9 

05 

SBC 

•  5 

SOSO: 

C2F9 

10 

F  4 

BPL 

LFOLOOP 

I  CG 

•ADS*>  MEITERSCHALTEN 

3100« 

C2F8 

20 

75 

CI 

JSR 

E6 

;  3  STIMMEN  BEARBEITEN 

5140: 

C2FE 

R9 

02 

LDA 

•2 

3150« 

C300 

A2 

OE 

ID« 

•  14 

5160: 

C302 

E5 

90 

STA 

ZAEHLER 

5170: 

C304 

f  6 

FE 

ST* 

STINR 

;  FREBUESZ 

MODULIEREN 

5190t 

C306 

20 

6A 

C2  FMOD 

J6R 

PORT 

5200: 

C309 

A6 

9B 

ID* 

ZAEHLER 

52101 

C30B  BD 

18 

CO 

LDA 

FSV ,  * 

5220: 

C30E 

DO 

ll 

BNE 

FMQDI 

(  KEINE  FREQUENZMODULATION, 

PARAMETER  UEBE 

5240: 

C310 

Ai 

FE 

LDX 

STINR 

52301 

C312 

BO 

05 

CO 

IDA 

FP.X 

5260: 

C3I5 

90 

00 

04 

STA 

s:d,x 

5270  t 

C310 

00 

•^6 

CO 

LOA 

JF*I  ,1 

5  MO: 

f5!l 

9D 

01 

c* 

SIA 

51D* 1 . X 

5:90  t 

LJll 

4C 

41 

C3 

JMP 

FMOD 

5JÖ0: 

C32I 

20 

43 

*7  fhco: 

:sr 

SUN NO D 

3310« 

C324 

A6 

F£ 

LDX 

STINR 

•::o« 

C326 

BD 

06 

CO 

LDA 

FP*  » 1 1 

!!30: 

C32« 

85 

FD 

STA 

MD 

3340: 

C328 

20 

Ai 

CO 

JSR 

nuis 

3350: 

C32E 

A6 

FE 

ID* 

STINR 

3360: 

C330 

18 

CLC 

5370t 

CvJI 

BC 

ö5 

CO 

IDA 

FP ,  > 

J FP  »EITIRSC4ALTI* 


5380« 

CJ34  65  F? 

ADC 

MR 

5390: 

C336  9D  00  D< 

STA 

s:d,x 

54201 

C339  SD  06  CO 

LDA 

FP*|,i 

'410: 

ZZZC  65  FC 

ADC 

NR»! 

5420t 

c:;e  9d  oi  d< 

STA 

S1D«!,1 

:  PULSHEITE  MODULIEREN 

5<*0l 

C 34 I  Ae  FMOD 

IDZ 

ZAEHLER 

5*50: 

c:<3  bc  :e  co 

LDA 

r.Sv*;,i 

54:  :i 

C34©  DO  ll 

BNE 

•MODI 

r  E :•-£  Ptf-flDDUlATION,  PARAMETER  UEBERNEHN&N 


34B0j 

C348 

A©  F£ 

LDx 

STINR 

5490« 

C34A 

93  02 

CO 

LDA 

PK,I 

5500: 

C340 

9D 

02 

D* 

BTA 

SlD*2,f 

5310« 

C350 

93 

05 

CO 

LOA 

PN* 1 ,  X 

5s:oi 

CS53  «D 

03 

D4 

STA 

S!D*3,l 

55TUJ 

C356 

4C 

Si 

C3 

JMP 

NEJT5TI 

3340: 

C359 

20 

43 

C2 

PNODI 

JSR 

SUKMOO 

J  MR 

(12» =«81161/2»« 4.  ER5J9T 

I2-BIT  ZWEIER* 

3360i 

C35C 

46 

FC 

LSS 

MR»  1 

5570: 

C35E 

6S 

FB 

ROS 

MR 

5380« 

C360 

16 

FC 

LSR 

HR»! 

3590: 

C362 

56 

F9 

PO¬ 

MR 

5600: 

C364 

♦  6 

FC 

LS» 

MR»I 

Jfclö: 

C’öi 

66 

FB 

RCF. 

MS 

56ZO| 

ccoB 

46 

FC 

LSR 

M8*l 

5630: 

C36A 

66 

•  I 

aas 

NR 

5640« 

C36C 

A6 

FE 

1  DI 

STINR 

563.: 

C26E 

IS 

CLC 

S*aO: 

C36F 

80 

02 

CO 

LDA 

PN«  X 

5670: 

C372 

65 

Fr 

ADC 

HS 

5680: 

C274 

»D 

02 

D4 

STA 

SIO-2,1 

5©90« 

C377 

SD 

02 

CO 

LOA 

r»»j , x 

S’OOi 

C!74 

65 

FC 

ADC 

MR*  I 

5710, 

C37C 

29 

OF 

AND 

IfiF 

5720: 

ZJ7E 

9D 

03 

0« 

ST* 

513*3,1 

5720: 

c:si 

SA 

NEUST! 

TI* 

5 (ST1NR1 

3740« 

c:a: 

38 

SEC 

5750: 

C3e: 

E9 

0? 

55C 

•  7 

5760: 

£365 

93 

FE 

OTA 

STINR 

3770: 

C3B7 

C6 

9B 

DEC 

ZAEPLSR 

5?80l 

C3D9 

30 

03 

BMI 

FIlHOD 

5790: 

c:aB 

<C 

06 

C3 

JMP 

FMOD 

5  FUTERFRE3UEN7 

MODULIEREN, 

NUR 

MI8H-DYTE 

5EI0: 

C79E 

AD 

15  CO  FILMOO 

LDA 

FHT 

5820: 

:j9i 

BD 

15 

34 

STA 

SIB*7I 

ssroi 

C394 

AD 

IC 

CO 

LDA 

KSV*6 

5B*0« 

::97  so 

0* 

BNE 

FIIMODI 

:Llf r£RT  HODULATIOM8WERT  MACH  MR(l6 


|PI7  '-4  AUS31EN0EM 


;*AECHSTE  STIMME 
;10M-BYTE  UEBERHEHHEN 


!  KEINE  FILTESHODULATIOH,  PARAMETER  UEBEPNEHP.EN 


3B60: 

C39«  AD 

I©  CO 

LOA 

FlLT.l 

SB7'ji 

cmc  ec 

16  D« 

STA 

SIB*22 

5950: 

cw  *c 

AE  C3 

JMP 

L-UTM03 

5090: 

CJA2  20 

43  C2  FILMDDl 

J8P 

5UMM0D 

5900: 

CIA5  19 

CIC 

391 

C3A6  AD 

16  CO 

LDA 

FILT*1 

597Ö« 

C3A9  65 

FC 

ADC 

MR  •  1 

5930: 

c:ab  33 

16  0* 

STA 

SID*22 

5 1 IEFERT  HODULAT IQV5UEFT  IN  Mfi(16 


1  LAUTST-E-*  f  MODULIEREN 


LDA 

PORTA,* 

i  NUF  DIE 

OBEREN  BITS  VON 

HK«! 

TRAGEN  0 

STA 

MD 

5960: 

C3AE 

AD 

!F 

CO  LAUTHOD 

LDA 

»:sv«7 

JSR 

MULU 

( INC ( 1 6>  »DIF ( 16! «PORTA (8) /2*»ß 

3970s 

C3B1 

DO 

07 

BNE 

LAUMDD! 

LOX 

STINR 

1  »EINE  LAUTST-ERFf MODUL AT ION,  P-VAMETER 

SEC 

5990: 

C3S3 

AD 

17 

CO 

I3ß 

MOD. AUT 

134 

FP ,  X 

6000: 

CJB6 

9D 

ID 

D4 

STA 

8ID.24 

ADC 

MR 

6010: 

C3B9 

60 

RTS 

STA 

FP ,  1 

•  020« 

CJBA 

20 

43 

C7  LAUHODI 

JSR 

3UMB0D 

LDA 

FP»1,X 

6030: 

C3BD 

AD 

17 

CO 

LDA 

MOSLAUT 

ADC 

MR*  1 

*040: 

CJCO 

29 

FO 

AND 

•  IFO 

STA 

FPtl.I 

lFPU6J-FP(16|*INC(161»l 

6050: 

esc: 

85 

FF 

STA 

TEMP 

RTS 

6060: 

C3C4 

A3 

FC 

LDA 

HR- 1 

SEC 

6070: 

C3C6 

*A 

L5R 

A 

LDA 

FP,  X 

6080: 

C3C7 

*  A 

LSR 

A 

SBC 

M 

6090: 

C3C8 

4A 

LSR 

A 

5TA 

MR 

6100: 

C3C9 

4A 

LSR 

A 

LDA 

FP*1 , I 

6110: 

C3CA 

13 

CLC 

SBC 

F.t.l 

6120: 

C3CB 

6D 

17 

CO 

ADC 

modl aut 

5TA 

MR*1 

;Oif (16!'FP(I6)-F«16i 

6130: 

C3CE 

29 

OF 

AND 

HIOF 

LDA 

?ORTA, * 

6140: 

C3D0 

05 

FF 

ORA 

TEHP 

STA 

SD 

6150: 

C3D? 

BD 

18 

04 

STA 

5ID*24 

JSR 

MULU 

| DEC  1 161-0 IF< 161 »P0RTA(81 «2« «8 

6160: 

C3D3 

50 

"T5 

1  LIEFERT  MOSULAT  IDNSMfP.T  IN  -R(lfc) 


IHDDULATIOKSBEFT  HIT  FP  HIGH  SKALIERE« 


(LIEFERT  HODULATIONSHEST  IM  HR, 16» 
|H0DU3  (BI T  7-4»  EXTRAHIEREN 


(A<41 ■HR»|(8i/2<»4 


;H-  ’-4  AUSSlEHPFs 
: fODUS  EINBLENDEN 


i  CIARI  TINER  A  ASFRA6EN.  LOM-fiVTE  IM  A,  HIBH-SVT£  IN  I 


i - 

©200: 

c:d6  ac 

0*  DC  TIME 

IDA 

40C04 

©210: 

c:ü9  at 

05  DC 

LSI 

»DC05 

6220: 

C3DC  C9 

0* 

CMP 

«4 

6230: 

c:de  bo 

01 

DCS 

7I-E1 

I TINER  fl  '.OW 
; TINER  A  HIQH 


;  TA  LOH  <  4,  IIMTFSl  AUF  MACH  TA  HIQH  •ORRICIESEN 
6250:  C3E0  18  INI 

6260:  C3E1  eO  TINE:  RTS 

(  ERHEITERTES  lNTERli»TPR06RAHH 


6300: 

C3E2 

20 

Di 

C3  INTRPT 

JSR 

TIME 

6310: 

C3E5 

SD 

73 

CO 

STA 

ZEIT! 

6320: 

C3E8 

BE 

7« 

CO 

STI 

ZEIT!«! 

6330: 

C3EB 

20 

EO 

C2 

JSR 

MODUL 

63*0; 

C3EE 

20 

D6 

CJ 

JSP 

TIME 

6350: 

C3F 1 

95 

FF 

STA 

TEMP 

6360« 

C3F3 

3B 

SFC 

*370: 

CJF4 

AD 

75 

CO 

LDA 

ZEJTI 

6380: 

C3F7 

E5 

FF 

SBC 

TEMP 

*390« 

C3F9 

9D 

71 

CO 

STA 

ZEIT 

640 0« 

C3FC 

86 

FF 

srx 

TEMF 

5*10« 

C3FI 

AD 

7* 

CO 

LDA 

ZEIT!»! 

c<20: 

C*01 

ES 

FF 

SBC 

TEMP 

6430: 

C403 

BD 

72 

CO 

STA 

ZEIT.I 

6**0: 

C*06 

4C 

31 

EA 

JMP 

*cA31 

(STARTZEIT  LESEN 
; UND  FESTHALTEN 

(NODOLAT I0NSSCNR1 I T 
(EMDZEJT  LESEN 
(DIFFERENZ  BERECHNT •« 


! KERN*. -5 VS7 EN  INTE- JPTR  3 jTINE 


I  UTERUPTVEKTM  UMSTELLEN  «MODULATOR  EINSCHAlTEC) 


=430: 

C«09  78 

START 

SET 

6490: 

C*OA  A9 

E2 

LDA 

■< INTRPT 

6500: 

C*OC  9C 

'.4 

03 

STA 

10314 

©SU, 

C40F  A9 

C3 

LDA 

«■INTRPT 

652C: 

C*ll  8D 

13 

03 

STA 

*0315 

©3!o: 

C  *  I  *  SB 

CL 1 

=  540: 

C*1 3  60 

RTS 

1  INTERUPTVEKTOB  7URUECKSTELLEN  : 

MODULATOR 

•SRC  i 

Ct:4  70 

«üO 

SCI 

1590: 

C417  A9 

31 

IDA 

4*31 

6600: 

c*:o  63 

!* 

03 

STA 

•  031* 

6©10: 

C*1C  »0 

EA 

LDA 

•  l£fl 

662C-I 

C41E  SC 

15 

03 

STA 

*0315 

©630: 

C«21  SB 

CLI 

6640: 

C<22  60 

*TS 

Dokumentiertes 
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Kurs:  Effektives  Programmieren 


Effektives 
Programmieren  (5) 

Sortieren  in  Basic  — 
Teil  2 

Einfache  Sortieralgorithmen  sind  leider 
auch  die  langsamsten.  Dennoch  lassen 
sie  sich  durch  einige  kleinere  Änderun¬ 
gen  noch  erheblich  verbessern,  so  zum 
Beispiel  Bubblesort.  Wesentlich  kom¬ 
plizierter  ist  da  schon  Shellsort,  dafür 
aber  auch  schneller.  Wir  zeigen  Ihnen, 
wie  es  funktioniert. 


In  der  letzten  Folge  beschäftig¬ 
ten  wir  uns  mit  straight  inser- 
tion  und  mit  Bubblesort,  zwei 
sehr  einfachen  Sortieralgorith¬ 
men.  Diesmal  wollen  wir  das  Ni¬ 
veau  schon  ein  wenig  anheben, 
um  uns  dem  eigentlichen  Ziel 
unseres  Kurses  langsam  zu  nä¬ 
hern.  Letztendlich  geht  es  uns 
nur  darum,  eine  möglichst 
schnelle  und  effektive  Sortier¬ 
methode  für  praktische  Anwen¬ 
dungen  zu  suchen.  Fangen  wir 
deshalb  gleich  einmal  mit  der 
Verbesserung  eines  Sortieral- 
gorifhmus  an,  der  letztes  Mal  be¬ 
sprochen  wurde. 

Haben  Sie  sich  mit  Bubblesort 
schon  intensiver  beschäftigt? 
Wenn  ja,  werden  Sie  auch  ganz 
bestimmt  dessen  Schwächen 
ausfindig  gemacht  haben.  Wir 
erinnern  uns:  Bubblesort  fängt 
am  Anfang  eines  Variablenfel¬ 
des  an  und  vergleicht  die  bei¬ 
den  ersten  Variablen,  Steht  die 
größere  der  beiden  weiter  vor¬ 
ne,  so  werden  die  Variablen  ver¬ 
tauscht.  Jetzt  vergleicht  er  die 
zweite  mit  der  dritten  Variablen 
des  Arrays  und  setzt  dieses  Ver¬ 
gleichen  und  Austauschen  so¬ 
lange  fort,  bis  das  gesamte  Feld 
durchgearbeitet  ist  und  die 
größte  Variable  jetzt  am  Ende 
des  Arrays  steht,  Als  nächstes 
wird  das  Variablenfeld  um  die 
letzte  Variable  vermindert,  so 
daß  jetzt  der  zweitgrößte  String 
auf  die  gleiche  Art  und  Weise 
»nach  unten«  befördert  wird. 
Diese  Vorgänge  wiederholen 
sich  30  lange,  bis  nur  noch  eine 
Variable  übrigbleibt,  die  jetzt 
die  kleinste  ist. 

Bubblesort  optimiert 

Nun  aber  zu  den  Schwächen 
von  Bubblescrt.  Ist  Ihnen  beim 


Ausprobieren  des  Programms 
aus  der  letzten  Folge  vielleicht 
aufgefallen,  daß  Bubblesort 
sehr  »stur«  arbeitet?  Es  kann 
nämlich  ohne  weiteres  passie¬ 
ren,  daß  ein  Feld  bereits  nach 
dem  dritten  Durchgang  vollstän¬ 
dig  sortiert  vorliegt.  Dies  wird 
von  Bubblesort  jedoch  nicht  er¬ 
kannt.  Der  Computer  »sortiert« 
weiter,  bis  alle  Durchläufe  erle¬ 
digt  sind. 

Dieses  Problem  können  wir 
ganz  einfach  lesen,  indem  wir 
ein  Flag  einsetzen.  das  uns  an¬ 
zeigt,  ob  im  letzten  Durchgang 
noch  eine  Vertauschung  stattge 
funden  hst.  Wurde  kein  Tausch 
mehr  vorgenommen,  so  wird 
der  Sortiervorgang  beendet. 
Dieses  Flag  ist  schon  eine  ziemli¬ 
che  Verbesserung  gegenüber 
der  Rohversion,  aber  wir  wollen 
uns  damit  noch  nicht  zufrieden- 
geben. 

Es  kann  beim  Sortieren  auch 
durchaus  der  Fall  eintreten,  daß 
im  letzten  Durchlauf  nur  noch 
beispielsweise  drei  Vertau¬ 
schungen  im  ersten  Drittel  des 
Feldes  stattgefunden  haben.  Die 
letzten  beiden  Drittel  des  Feldes 
sind  also  bereits  sortiert. 

Damit  Bubblesort  auch  diesen 
Fall  erkennt,  wird  eine  zweite  zu¬ 
sätzliche  Variable  eingeführt, 
die  die  Position  der  jeweils  letz¬ 
ten  Vertauschung  eines  Durch¬ 
laufes  beinhaltet.  Es  wird  nun  im 
weiteren  Verlauf  immer  nur  bis 
zu  dieser  Position  gearbeitet  da 
der  Rest  des  Feldes  bereits  sor¬ 
tiert  vorliegen  muß. 

Mit  diesen  beiden  Verbesse¬ 
rungen  wollen  wir  es  aber  be¬ 
reits  gut  sein  lassen  (Listing  1, 
Bild  1).  Der  neue  Bubblesort- 
Algorithmus  arbeitet  besonders 
bei  schon  teilsortierten  Feldern 


10000 

REM  SORTIEREN  DURCH  AUSTAUSCHEN 

<059> 

10010 

REM  VERBESSERT 

<21 3> 

10020 

REM 

<21 8> 

10030 

REM  BUBBLESORT  2 

<010> 

10032 

REM  G  IST  DIE  LETZTE  POSITION  BEIM 

<089> 

10034 

REM  VERTAUSCHEN 

<048> 

10036 

REM  F  ZEIGT  VERTAUSCHUNG  AN 

<225  > 

10040 

G=A-l:FOR  X=A-1  TO  1  STEP-1 

<177> 

10050 

F=0: FOR  Y=1  TO  B 

<  1 15> 

10060 

IF  A*<YX=A*(Y+1>THEN  I00Ö0 

<252  > 

10065 

REM  AUSTAUSCHEN  BEIDER  ELEMENTE 

<069> 

10070 

F=Y:5*=A$CY> : AS ( Y) =Af ( Y+l ) : A*(Y+1)=S 

i 

<  1 14> 

100B0 

NEXT  Y 

<098> 

10090 

G=F : IF  F=0  THEN  10120 

<00B> 

10100 

GOSUB  3000:  REM  AUSGABE 

<172> 

10110 

NEXT  X 

<127> 

10120 

REM  ENDE 

<090  > 

Listing  1 .  Der  verbesserte  Bubblesort-Algorithmus 

SPU 

IOF 

CEH 

FSO 

AIF 

XKY 

BHW 

QTR 

OFC 

KBL 

IQF 

CEH 

FSO 

AIF 

SPU 

BHW 

QTR 

OFC 

KBL 

XKY 

GEH 

FSO 

AIF 

IOF 

BHW 

QTR 

□PC 

KBL 

SPU 

XKY 

CEH 

AIF 

FSO 

BHW 

IOF 

OPC 

KBL 

QTR 

SPU 

XKY 

AIP 

CEH 

BHW 

FSO 

IOF 

KBL 

OPC 

QTR 

SPU 

XKY 

AIF 

BHW 

CEH 

FSO 

IOF 

KBL 

OPC 

QTR 

SPU 

XKY 

AIF 

BHW 

CEH 

FSO 

IOF 

KBL 

OPC 

QTR 

SPU 

XKY 

10  ELEMENTE 

Bild  1.  Die  Wirkung  von  Bubblesort  2.  Durch  kleine  Änderungen 
wird  Bubblesort  um  einiges  schneller.  Die  unterstrichenen  Werte 
wurden  an  den  richtigen  Platz  gesetzt; 


ziemlich  effizient;  ist  der  »alten« 
Version  jedoch  bei  total  ver¬ 
mischten  Feldern  infolge  der  zu¬ 
sätzlichen  (Zeit  verbrauchen¬ 
den)  »Erweiterungen«  unterle¬ 
gen. 

Bubblesort  soll  uns  nun  nicht 
weiter  beschäftigen,  denn  motz 
seines  wohlklingenden  Namens 
ist  er  so  ziemlich  der  langsamste 
Algorithmus,  den  es  gibt. 

An  dieser  Stelle  gleich  einmal 
ein  paar  Bemerkungen  zur  Zeit¬ 
messung:  Die  jetzt  vorgestellten 
Algorithmen,  die  Sie  jeweils  als 
Listings  abgedruckt  finden,  sind 
in  der  Form  zur  Zeitmessung  na¬ 
türlich  nicht  geeignet.  Das  liegt 
daran,  daß  die  Programme  so 
aufgebaut  sind,  daß  Sie  den  Al¬ 
gorithmus  leicht  nachvollziehen 
können,  was  natürlich  auf  Kosten 
der  Geschwindigkeit  geht  und 
die  Ergebnisse  verfälschen 
würde. 

Im  abschließenden  Artikel 
über  die  Sortiermethoden  wer¬ 
den  wir  die  einzelnen  Program¬ 
me  jedoch  auch  unter  dem 
Aspekt  »Zeit«  einander  gegen 
überstellen.  Hier  werden  wir 
auch  auf  das  Problem  der  Gar- 
bage  Collection  eingehen,  die 
uns  beim  Sortieren  von  größe¬ 
ren  Feldern,  je  nach  Algorith¬ 
mus,  ganz  schön  in  Schwierig¬ 
keiten  bringen  kann,  wenn  es 
um  eine  Zeitmessung  geht. 

Ein  weiteres  Problem  bei  der 
Zeitmessung  ist  aber  auch  die 
Eigenart  der  einzelnen  Sortier¬ 
methoden.  Ich  erwähnte  schon 
in  der  letzten  Folge,  daß  es  na¬ 


türliche  und  unnatürliche  Algo- 
riihmen  gibt,  wobei  die  natürli 
chen  dann  am  schnellsten  arbei¬ 
ten,  wenn  das  Feld  schon  sortiert 
vorliegt. 

Für  die  Mathematiker  unter  Ih¬ 
nen  ist  jedem  Sortieralgorithmus 
eine  kleine  Formel  zur  Berech¬ 
nung  der  mittleren  (!)  Sortierzeit 
beigefügt.  Diese  Formel  dient 
nur  der  Gesamtbetrachtung  und 
zeigt  jeweils,  warum  die  einen 
A.gonthmen  so  langsam  und  an¬ 
dere  wesentlich  schneller  sind. 

straight  selection 

Nun  aber  zu  einer  neuen  Sor¬ 
tiermethode.  Es  handelt  sich 
hierbei  um  ein  Sortieren  durch 
direktes  Auswählen,  was  durch 
einen  englischen  Ausdruck  wie¬ 
der  passend  beschrieben  wird: 
straight  selection, 

Auch  straight  selection  ist  ein 
relativ  einfacher  Algorilhmus. 
dessen  Funktionsweise  wir  uns 
gleich  etwas  näher  betrachten 
wollen  (Bild  2). 

Im  ersten  Durchgang  sucht 
der  Computer  nach  dem  größ¬ 
ten  Element  im  Feld.  Wird  die¬ 
ses  gefunden,  so  erfolgt  eine 
Vertauschung  zwischen  diesem 
Element  und  dem  allerletzten 
des  Feldes,  da  die  größte  Varia¬ 
ble  logischerweise  am  Schluß 
slehen  muß  Jetzt  wird  die  Länge 
des  Feldes  durch  Wegnahme 
des  letzten  Elements  um  1  ver¬ 
mindert.  Danach  wird  in  diesem 
»Rest-Array*  wiederum  nach 
dem  größten  Element  gesucht 
und  dieses  ebenfalls  mit  dem 
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10000 

REM  SORTIEREN  DURCH  DIREKTES 

<0B7;- 

10010 

REM  AUSWAEHLEN 

<189> 

10020 

REM 

<21B> 

10030 

REM  STRAIGHT  SELECTION 

<240  > 

10040 

FOR  X=A  TO  2  STEP— 1 : Xf=" " 

<050> 

10050 

FÜR  Y=1  TO  X 

<034> 

10060 

IF  A*(Y)>X*THEN  X*=A*(Y):Z=Y 

<  189> 

10070 

NEXT  Y 

<0BB> 

1 008(3 

SS=A*(X>:AT(X)=A S(Z) :A*(Z)=S* 

<059> 

10090 

BOSUB  3000 

<225> 

10100 

NEXT  X 

<117> 

10110 

REM  ENDE 

<080> 

Listing  2.  Sortieren  durch  direktes  Auswahlen:  straight  selection 

CSB 

ÜNN 

L'SX 

XDO 

KXF 

DVK 

JJD 

UWK 

HVG 

SCX 

CSB 

ONN 

CSX 

SCX 

KXF 

DVK 

JJD 

UWK 

HVG 

XDO 

CSB 

ONN 

CSX 

scx 

KXF 

DVK 

JJD 

HVG 

UWK 

XDO 

CSB 

ONN 

CSX 

HVS 

KXF 

DVK 

JJD 

SCX 

UWK 

XDO 

CSB 

JJD 

CSX 

HVG 

KXF 

DVK 

ONN 

SCX 

UWK 

XDO 

CSB 

JJD 

CSX 

HVG 

DVK 

KXF 

ONN 

SCX 

UWK 

XDO 

CSB 

DVK 

CSX 

HVG 

JJD 

KXF 

ONN 

SCX 

UWK 

XDO 

CSB 

DVK 

CSX 

HVG 

JJD 

KXF 

ONN 

SCX 

UWK 

XDO 

CSB 

CSX 

DVK 

HVG 

JJD 

KXF 

ONN 

SCX 

UWK 

XDO 

CSB 

CSX 

DVK 

HVG 

JJD 

KXF 

ONN 

SCX 

UWK 

XDO 

CSB 

10 

CSX  DVK  HVS 
ELEMENTE 

JJD 

KXF 

ONN 

SCX 

UWK 

XDO 

Bild  3.  Straight  selection  bei  der  Arbeit.  Die  jeweils  neu 
einzuordnenden  Elemente  sind  unterstrichen. 


10000 

REM  SORTIEREN  MIT  ABNEHMENDER 

<132> 

10010 

REM  SCHRITTWEITE 

<m> 

10020 

REM 

<  2 1 8  > 

10030 

REM  SHELLSORT 

<164> 

10035 

DIM  AAJ-CA) 

<024> 

10040 

S=INT (A/2) :  REM  SCHRITTWEITE 

<242> 

10050 

FOR  X=1  TO  S 

<028> 

10060 

FOR  Y=1  TO  INT (A/S) 

<027> 

10070 

AA*(Y)=Ai<  (Y-1)*S+X> 

<188> 

10080 

NEXT  Y 

<09B> 

10090 

AA=Y-1: BOSUB  20000 

<  179> 

10100 

FOR  Y=1  TO  INT (A/S) 

<067> 

10110 

A* ( (Y-1)*S+X)=AA*(Y) 

<228> 

10120 

NEXT  Y 

<138> 

10130 

NEXT  X 

<  147> 

10140 

S=INT(S/2) 

<000> 

10150 

GOSUB  3000 

<029> 

10160 

IF  S  GOTO  10050 

<  052 > 

10170 

REM  ENDE 

<  1 40  > 

10180 

GOTO  50000 

<103> 

20000 

FOR  XX=2  TO  AA 

<  137  > 

20010 

IF  AA*(XX)>=AA$(XX-1>  THEN  20080 

<049> 

20020 

REM  EINFUEGEN  DES  ELEMENTS 

<224  > 

20030 

XX*=AA»(XX):  FOR  YY=XX-1  TO  1  STEP- 

1  <190> 

20040 

AAT (YY+1 ) =AAS (YY) 

<  1 17> 

20050 

IF  XX*<=AA* (YY-l)  THEN  20070 

<  137> 

20060 

AA*(YY)=XX*:  GOTO  20080 

<150> 

20070 

NEXT  YY 

<232> 

20080 

NEXT  XX 

<240> 

20090 

RETURN 

<0B6> 

Listing  3 

Der  Shellsort-Algorithmus.  Ab  Zeile  20000  wird  die 

straight-insertion-Methode  benutzt,  um  die  Untereinheiten  zu  sor- 

tieren.  Auch  hier  näheres  im  Artikel. 

letzten  Element  (das  jetzt  das 
vorletzte  des  Gesamtfeldes  ist) 
vertauscht.  Dieser  Vorgang  wie¬ 
derholt  sich  so  lange,  bis  die 
Länge  des  Restfeldes  1  ist  und 
wir  an  erster  Position  zwangsläu¬ 
fig  das  kleinste  Element  erhal¬ 
ten. 

In  Bild  3  können  Sie  die  Ar¬ 
beitsweise  von  straight  selection 
an  einem  praktischen  Beispiel 
nachvollziehen,  wobei  immer  je¬ 
ne  Elemente  unterstrichen  sind, 
die  im  nächsten  Schritt  einsor- 
nert  werden. 

Natürlich  funktioniert  straight 
selection  auch  andersherum, 
das  heißt  Sie  können  jeweils 
nach  dem  kleinsten  Element  su¬ 
chen  und  dieses  dann  mit  dem 
ari  erster  Stelle  stehenden  Ele¬ 
ment  vertauschen. 

Um  Ihnen  auch  die  Zeitver¬ 
hältnisse  zu  beschreiben,  oder 
um  Ihren  mathematischen  Geist 
zu  beflügeln  (wie  Sie  wollen), 
seien  an  dieser  Stelle  einmal 
wieder  zwei  Formeln  über 
straight  selection  aufgestellt. 

Für  seine  Arbeit  benötigt 
straight  selection  eine  mittlere 
Anzahl  von  Vergleichen,  die  in 
etwa  durch  die  folgende  Formel 
angenähert  werden,  wenn  wir 
davon  ausgehen,  daß  a  die  An¬ 
zahl  der  zu  sortierenden  Ele¬ 
mente  enthält: 

Anzahl  Vergleiche.  ----- 
2 

Für  die  Anzahl  der  Bewegun¬ 
gen  innerhalb  der  Arrays  gilt  fol¬ 
gende  Beschreibung: 

Anzahl  Bewegungen:  a  - 1 

Mit  .straight  setertion  haben 
wir  unter  anderem  gleich  das  er¬ 
ste  Beispiel  für  einen  unnatürli¬ 
chen  Sortieralgorithmus.  Wenn 
wir  ein  Feld  bearbeiten  wollen, 
das  schon  sortiert  vorliegt,  so 
braucht  unser  Programm,  sehr 
lange,  um  das  größte  Element 
ausfindig  zu  machen,  da  wir  von 
vorne  mit  dem  Suchen  begin¬ 
nen.  Bearbeiten  Sie  also  mei¬ 
stens  schon  teilsortierte  Felder, 
so  ist  es  ratsam,  mit  der  Suche 
des  größten  Elements  von  hin¬ 
ten  zu  beginnen.  Die  Umstellung 
des  Programms  in  Lishng  2  dürf¬ 
te  Ihnen  keine  Schwierigkeiten 
bereiten,  da  lediglich  die  Such¬ 
schleife  umzudrehen  und  mit 
STEP1  zu  versehen  ist. 

Sc,  das  wäre  auch  schon  alles, 
was  zu  straight  selection  zu  sa¬ 
gen  ist.  Wie  Sie  sehen,  ist  das  im¬ 
mer  noch  ein  sehr  einfacher  Al¬ 
gorithmus  der  in  etwa  mit 
straight  Insertion  gleichzusetzen 
ist,  was  die  Effektivität  betrifft. 
Diese  Gleichsetzung  gilt  aber 
nalüllich  nur  Tür  zufallsbeselzte 
Felder. 

Shellsort 

Der  nächste  Sortieralgorith¬ 
musträgt  den  Namen  seines  Cr- 


Bild  2.  Sortieren  durch 
Auswahl:  straight  selection. 

Gesucht  wird  das  größte 
Element  und  an  das  Ende  des 
Feldes  gesetzt.  Nach  je¬ 
dem  Durchgang  wird  das 
Feld  um  ein  Element  kürzer. 


finäers  (DL.  Shell)  und  wurde 
19S9  entwickelt.  Es  handelt  sich 
hierbei  schon  um  einen  kompli¬ 
zierteren  Algorithmus,  den  wir 
deshalb  sehr  ausführlich  be¬ 
sprechen  wollen  (Bild  4).  Shell¬ 
sort  ist  ein  Sortieren  durch  direk¬ 
tes  Einfügen  und  gehört  damit 
der  gleichen  »Familie«  wie 
straight  insertion  an. 

Durch  entsprechende  Be¬ 
rechnungen  hatte  Shell  heraus¬ 
gefunden,  daß  sich  Sortiervor¬ 
gänge  beschleunigen  lassen, 
wenn  nicht  nur  benachbarte  Ele¬ 
mente  miteinander  verglichen 
werden,  sondern  auch  weiter 
voneinander  entfernte.  Wir  ver¬ 
gleichen  also  beispielsweise 
nicht  mehr  das  erste  Element  mit 
dem  zweiten,  sondern  vielmehr 
das  erste  mit  dem  fünften. 

Durch  diese  Methode  erreicht 
man  eine  gewisse  »Grobsortie¬ 


rung«,  die  sich  jedoch  gleichmä¬ 
ßig  über  das  gesamte  Feld  ver¬ 
teilt,  Das  so  neu  entstandene  Va¬ 
riablenfeld  wird  wiederum  sor¬ 
tiert,  wobei  jetzt  aber  das  erste 
mit  dem  dritten  Element  vergli¬ 


chen  wird.  Die  Sortierung  wird 
also  durch  abnehmende  Ab¬ 
stände  zunehmend  »feiner«,  bis 
beim  Abstand  1  die  letzte,  abso¬ 
lute  Sortierung  erfolgt. 

Unklar?  Keine  Angst,  wir  wer- 
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9130478652  :Ausgangsfeld  (zufällig  ge¬ 
mischt) 

9130478652  (9.7)(1,8)(3,6)(0,5)(4,2)  =  5  Unter¬ 

einheiten 

71302  9  8654  <7.3, 2,8,5)  (1,0,9.6.4)  =  2  Unterein¬ 

heiten 

2031547689  12,0,3,1,5,4,7,6,8,9)  =  1  Unterein¬ 

heit 

0123456789  lErgebnis  nach  3  Durchläufen 


Bild  5.  Das  Anlegen  von  Untereinheiten  eines  Variablenfeldes  in 
Shellsort.  Näheres  dazu  im  Artikel. 
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10  ELEMENTE 

Bild  6.  Shellsort  in  Aktion.  Bemerkenswert  ist  die  geringe  Anzahl 
der  zum  Sortieren  notwendigen  Durchläufe  (Bewegungen). 


Bild  4.  Das  Flußdiagramm 
zum  Shellsort 


den  das  gleich  einmal  an  einem 
praktischen  Beispiel  erläutern. 

Sehen  Sie  sich  Bild  5  an.  Hier 
haben  wir  ein  zufällig  geordne¬ 
tes  Feld  mit  zehn  Elementen.  Als 
ersten  Abstandswert  nimmt 


Shellsort  üblicherweise  a/2,  al¬ 
so  die  Hälfte  der  Gesamtanzahl 
der  Elemente  ln  unserem  Fall  ist 
das  5. 

Aus  diesem  umsorderten  Feld 
holen  wir  jetzt  alle  Zahlen  zu  Un¬ 
tereinheiten  zusammen,  die  den 
Abstand  (besser:  die  Schrittwei¬ 
te)  S  haben.  In  Bild  5  sehen  Sie 
diese  Zusammenstellungen:  Es 
wurde  also  jeweils  das  1.  mit 
dem  6.,  das  2.  mit  dem  7.,  das  3. 
mit  dem  8.,  das  4.  mit  dem  9.  und 
das  5  mit  dem  10.  Element  zu  ei¬ 
ner  Einheit  zusammengefaßt. 

Da  die  Schrittweite  5  ist,  kann 
jede  Untereinheit  verständli¬ 
cherweise  nur  zwei  Elemente 
enthalten.  Nun,  was  sollen  wir 
jetzt  mit  diesen  Untereinheiten 
machen? 

Diese  werden  sortiert,  und 
zwar  verwenden  wir  dabei  ei¬ 
nen  einfachen  und  unkompli¬ 
zierten  Sortieralgorithmus,  wie 
zum  Beispiel  straight  insertion. 

Wir  sortieren  also  die  erste 
Untereinheit,  aus  (9,7)  wird  (7,9). 
Jetzt  schreiben  wir  diese  Unter¬ 
einheit  wieder  an  die  gleiche  Po¬ 
sition  in  unser  Feld  zurück,  wo¬ 
bei  jedoch  die  7  dort  steht,  wo 
vorher  die  9  stand  und  umge¬ 
kehrt.  Dann  sorlieren  wir  die 
zweite  Untereinheit  und  schrei¬ 
ben  sie  ebenso  zurück.  Das  ge¬ 
schieht  so  lange,  bis  alle  Unter¬ 
einheiten  abgearbeitet  worden 


sind  und  wir  wieder  ein  vollstän¬ 
diges  Array  erhalten. 

Jetzt  wird  die  Schrittweite  5 
halbiert  und  die  Nachkomma¬ 
stelle  des  Ergebnisses  abge¬ 
schnitten.  Wir  erhalten  als  neue 
Schrittweite  2.  Wieder  legen  wir 
uns  Untereinheiten  an,  wobei 
wir  jedoch  nur  mehr  zwei  Unter¬ 
einheiten  zu  je  fünf  Elementen 
bekommen.  Wichtig  für  die  Pro¬ 
grammentwicklung  ist  an  dieser 
Stelle  die  Entdeckung,  daß  die 
Anzahl  der  Untereinheiten 
grundsätzlich  der  Schrittweite 
entspricht. 

Auch  hier  wird  mit  den  Unter¬ 
einheiten  wieder  verfahren,  wie 
oben.  Sie  werden  sortiert  und 
wieder  in  das  ursprüngliche  Ar¬ 
ray  zurückgeschrieben.  Das  Er¬ 
gebnis  des  letzten  Durchlaufes 
können  Sie  wieder  in  Bild  5  able¬ 
sen.  Der  nächste  Durchlauf  ist 
schon  der  letzte;  hier  ist  die 
Schrittweite  nunmehr  1  und  es 
erfolgt  eine  Schlußsortierung 
des  gesamten  Feldes. 

Daß  Shellsort  so  schnell  ist,  ob¬ 
wohl  er  einige  vollständige  Sor¬ 
tierläufe  als  Unterprogramme 
verwendet,  liegt  daran,  daß  das 
Sortierunterprogramm  jeweils 
ziemlich  optimierte  Einheiten 
zur  Bearbeitung  bekommt.  Auch 
beim  letzten  Durchgang,  wo  ja 
nochmals  das  gesamte  Feld 
durchsortiert  wird,  sind  die  Ele¬ 


mente  schon  so  angeordnet,  daß 
eine  Sortierung  ohne  viele  Be¬ 
wegungen  möglich  ist.  Listing  3 
enthält  die  Shellsortroutine,  wo¬ 
bei  als  Unterprogramm  ab  Zeile 
20000  straight  insertion  verwen¬ 
det  wird.  Sie  können  einmal  ver¬ 
schiedene  Algorithmen  in  Shell¬ 
sort  verwenden;  vielleicht  fin¬ 
den  Sie  eine  optimale  Zusam¬ 
menstellung?  Das  Unterpro¬ 
gramm  bearbeitet  das  Array 
AA$(x)  und  erwartet  die  Anzahl 
der  Elemente  in  AA. 

Wenn  Sie  sich  einmal  den  Bei¬ 
spielausdruck  zu  Shellsort  be¬ 
trachten  (Bild  6),  so  werden  Sie 
feststellen,  daß  dieser  Algorith¬ 
mus  nur  mehr  drei  Durchgänge 
für  zehn  Elemente  benötigt.  Die¬ 
se  Zahl  läßt  auf  ein  gutes  Ergeb¬ 
nis  hoffen.  In  der  Tät  haben  wir 
mit  Shellsort  schon  ein  sehr  gu¬ 
tes  Sortierprogramm,  das  vielen 
praktischen  Anwendungen  ge¬ 
wachsen  sein  dürfte.  Gegen¬ 
über  der  vorher  besprochenen 
Sortieralgorithmen  arbeitet 
Shellsort  um  einiges  schneller, 
was  besonders  bei  größeren 
Feldern  angenehm  auffällt.  Für 
die  Schrittweite  können  übri¬ 
gens  auch  andere  abfallende 
Reihen  verwendet  werden,  die 
mit  1  aulhören.  Es  hat  sich  näm¬ 
lich  gezeigt,  daß  die  Wahl  der 
richtigen  Reihe  entscheidend 
zur  Geschwindigkeit  von  Shell¬ 
sort  beiträgt. 

Wollen  wir  zu  Shellsort  eine 
mathematische  Berechnung  lie¬ 
fern,  wird's  schwierig.  Dieser 
Algorithmus  ist  bereits  derma¬ 
ßen  komplex,  daß  eine  Berech¬ 
nung  fast  unmöglich  wird.  Es 
kann  an  dieser  Stelle  nur  eine 
Aussage  über  die  mittlere  Sor¬ 
tierzeit  gemacht  werden,  die 
sich  in  etwa  im  Bereich  um  a1-2 
bewegt,  wobei  a  wiederum  die 
Anzahl  der  zu  sortierenden  Ele¬ 
mente  darstellt. 

So,  mit  Shellsort  haben  wir  uns 
nun  endgültig  von  den  einfa¬ 
chen  Sortieralgorithmen  losge¬ 
sagt.  Wie  Sie  sehen,  kann  eine 
höhere  Komplexität  der  Pro¬ 
gramme  und  ein  damit  verbun¬ 
dener  größerer  Zeitbedarf,  oh¬ 
ne  weiteres  die  Nachteile  von 
einfacheren  Programmen  auf¬ 
wiegen  Aber  auch  hier  kommt 
es  natürlich  auf  die  Art  der  Auf¬ 
gabenstellung  an.  Shellsort  ver¬ 
trägt  zum  Beispiel  keine  umge¬ 
kehrt  sortierten  Arrays.  Hier 
wird  auch  dieser  schnelle  Sor¬ 
tieralgorithmus  langsam. 

In  der  nächsten  Folge  wollen 
wir  uns  ausschließlich  mit  einem 
einzigen  Sortierprogramm  be¬ 
schäftigen.  Es  handelt  sich  um 
Heapsort.  Dieser  Algorithmus 
arbeitet  nach  dem  »Baumprin¬ 
zip«  und  ist  sehr  kompliziert.  Aus 
diesem  Grund  wollen  wir  uns 
ausführlich  mit  ihm  beschäfti¬ 
gen,  denn  wir  haben  es  dann  mit 
einem  der  schnellsten  Algorith¬ 
men  zu  tun,  den  es  gibt 

(Karsten  Schramm/gk) 
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V. 


Funktionen 


Funktionen  für 
Anfänger 

Auch  in  Basic  kann  man  Befehle  selber 
entwickeln,  zumindest  einen  bestimm¬ 
ten  Typ  von  Befehl.  Und  dazu  braucht 
man  keine  Maschinensprache  und  kei¬ 
nen  Assembler,  sondern  nur  den  ge¬ 
sunden  Menschenverstand,  wie  man 
ihn  auch  sonst  beim  Programmieren 
einsetzt.  Gemeint  sind  die  »benutzer¬ 
definierten  Funktionen«. 


Anfänger  haben  mit  der  Defi¬ 
nition  von  neuen  Befehlen 
oft  Schwierigkeiten.  Das  liegt 
aber  nicht  an  den  Anfängern, 
sondern  eher  an  den  meist  recht 
verwirrenden  Erklärungen  der 
Handbücher.  Handbücher  sind 
zumeist  von  Computerexperten 
geschrieben,  die  oft  vergessen, 
daß  ihre  Leser  erst  noch  Exper¬ 
ten  werden  wollen  und  deshalb 
zunächst  mit  Begriffen  wie 
»Dummy-Variable«  oder  »Über¬ 
gabeparameter«  und  was  es 
sonst  noch  an  stolzen  Termini 
gibt,  nichts  anfangen  können 
Ich  jedenfalls  konnte  es  nicht 
und  habe  deshalb  lange  ge¬ 
braucht,  bis  ich  selbstgestrickte 
Funktionen  so  selbstverständ¬ 
lich  in  meinen  Programmen  be¬ 
nutzte  wie  zum  Beispiel  PRINT. 

Vergessen  Sie  also  alles,  was 
Sie  bisher  verwirrt  haben  mag, 
und  fangen  Sie,  zusammen  mit 
mir,  noch  einmal  von  vorne  zu 
denken  an. 

Ich  will  in  drei  Schritten  Vorge¬ 
hen.  Wir  wollen  zunächst  klären, 
was  Funktionen  überhaupt  sind, 
was  für  Eigenschaften  sie  ha¬ 
ben,  was  sie  tun,  wofür  man  sie 
braucht.  Auf  dem  Hintergrund 
dieser  allgemeineren  Informa¬ 
tionen  wollen  wir  uns  in  einem 
zweiten  Schritt  der  Herstellung 
eigener  Funknonen  widmen. 
Ein  drittes  Kapitel  soll  dann  ein 
paar  speziellere  Hinweise  ge¬ 
ben.  Ein  kleiner  Anhang 
schließlich  wird  ein  paar  einfa 
che  Funklionen  zusammenstel¬ 
len,  die  nicht  die  Well  bewegen, 
sondern  nur  Sie  anregen  sollen, 
sich  eine  eigene  Funktionen-Bi- 
blibthek  aufzubauen. 

1.  Funktionen  in  Basic 

1 .1  Was  ist  eine  Funktion? 

Eine  Funktion  ist  ein  Befehl, 
der  den  Computer  anweist,  eine 
Zahl  oder  einen  Text  (Zeichen¬ 
kette,  »String«)  zu  erzeugen.  Die 
RND-Funktion  zum  Beispiel  er¬ 
zeugt  eine  Zufallszahl;  die  Funk¬ 


tion  LEFT$  erzeugt  eine  Zei¬ 
chenkette. 

Es  gibt  zwei  Grundtypen  von 
Funktionen:  solche,  die  lediglich 
Daten  (Zahlen  oder  Zeichenket¬ 
ten)  ausgeben,  und  solche,  de¬ 
nen  man  Daten  (Zahlen  oder  Zei¬ 
chenketten)  eingibt,  die  sie  dann 
in  anderer  Form  wieder  ausge¬ 
ben.  Wir  wollen  die  einen 
Ausgabe-Funktionen  nennen 
und  die  anderen  Eingabe-Aus- 
gabe-Funktionen  (Bild  1). 


- ►  FUNKTION — ► 

FUNKTION - ► 


Auso*bo-Funktlon 

Eingabe  Auoyabu- 
Funktion 


Bild  1 .  Die  zwei  Grundtypen 
von  Funktionen 


Die  oben  genannte  RND- 
Funktion  ist  in  diesem  Sinne  eine 
reine  Ausgabe-Funktion.  Ausge¬ 
geben  wird  eine  Zufallszahl  zwi¬ 
schen  0  und  1.  Die  INT-Funktion 
hingegen  ist  eine  Eingabe-Aus- 
gabe-Funktion.  Eingegeben 
wird  eine  Zahl,  zum  Beispiel 
12.78,  ausgegeben  werden  die 
Ziffern  vor  dem  Komma,  also  12 
(Bild  2). 


Die  Funktion  INT  erzeugt  eine 
Zahl  aus  einer  anderen  Zahl;  die 
Funktion  LEFT$  erzeugt  einen 
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Text  aus  einem  Text.  Es  geht 
aber  auch  »überkreuz«.  Die 
Funktion  LEN  erhält  als  Einga¬ 
bedatum  einen  Text  und  gibt  ei¬ 
ne  Zahl  aus,  während  umge¬ 
kehrt  die  Funktion  STR$  aus  ei¬ 
ner  Zahl  einen  Text  macht  (Bild 
3). 


be:  Zahl  -  und  umgekehrt 

Fassen  wir  zusammen:  In 
(Commodore-)  Basic  finden  wir 
die  folgenden  sechs  Typen  von 
Funktionen  (Bild  4). 


Zahl 

Text 

Zahl 

FUNKTION 

Zahl 

Text 

Text 

Zahl 

Text 

Text 

Zahl 

Bild  4.  Basic-V.2.0  besitzt 
sechs  Typen  von  Funktionen 

Eine  kleine  Anmerkung  noch: 
Die  Befehle  SPC  und  TAB,  im 
Commodore-Handbuch  unter 
der  Überschrift  »Funktionen« 
aufgeführt,  sind  in  unserem  Sin¬ 
ne  keine  Funktionen,  da  sie  kei¬ 
ne  Daten  erzeugen,  sondern  et¬ 
was  bewirken,  so  Wie  zum  Bei¬ 
spiel  PRINT  etwas  bewirkt. 

1.2  Mitteilungen  an  die  Funktion 

Wenn  eine  Funktion  eine  Zahl 
in  eine  andere  umwandeln  soll, 
dann  muß  ihr  die  Zahl  in  irgend¬ 
einer  Weise  mitgeteilt  werden. 
Für  Mitteilungen  an  Funktionen 
ist  ein  bestimmter  Platz  vorgese¬ 
hen,  nämlich  die  Klammem,  die 
jedem  Funktionsnamen  (in  Ba¬ 
sic)  folgen  (Büd  5). 


FUNinONSNAME 

tp-j=  flu  MiaollbCGtm) 

Bild  5.  Einige  Funktionen  benö¬ 
tigen  zusätzliche  Angaben 

Die  Information,  die  eine 
Funktion  braucht  (sofem  sie 
überhaupt  eine  braucht),  kann 
von  zweierlei  Art  sein:  Es  kann 
sich  einmal  um  ein  Eingabeda¬ 
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tum  handeln,  das  von  der  Funk¬ 
tion  bearbeitet  werden  soll  (zum 
Beispiel  INT  (12.78)).  oder  um  In¬ 
formationen  darüber,  wie  die 
Funktion  arbeiten  soll  Daraus 
ergeben  sich  die  folgenden 
Möglichkeiten  (Bild  6). 


ARTEN  VON  MITTEILUNG 
AN  FUNKTIONEN 


Eingabedatum 
Arbeitshinweis 
Eingabedatum  und  Arbeits¬ 
hinweis 


Bild  6.  Arten  von  Mitteilung  an 
Funktionen 

Ein  paar  Beispiele  zur  Illustra¬ 
tion: 

Die  Funktion  POS,  die  ausgibt,  in 
welcher  Büdschirmspalte  sich 
der  Cursor  gerade  befindet, 
weiß  alles,  was  sie  wissen  muß, 
um  ihre  Aufgabe  erfüllen  zu  kön¬ 
nen:  der  Programmierer  muß 
ihr  also  keinerlei  Informationen 
mitgeben.  Da  POS  nun  aber  eine 
Funktion  ist,  ist  ein  Platz  für  Mit¬ 
teilungen  vorgesehen,  das  heißt 
der  Programmierer  muß  die 
dem  Funktionsnamen  folgenden 
Klammern  mit  irgend  etwas  fül¬ 
len.  Der  Einfachheit  halber 
nimmt  man  dafür  »0«:  POS  (0). 
Wenn  Sie  unbedingt  wollen,  kön¬ 
nen  Sie  auch  irgend  etwas  ande¬ 
res  in  die  Klammern  stecken, 
zum  Beispiel  »X«  oder  Ihren  Na¬ 
men  —  die  Mitteilung  landet  in 
jedem  Fall  im  Papierkorb,  der 
Computer  ignoriert  sie. 

Nicht  im  Papierkorb  landet 
die  Eingabezahl,  die  Sie  zum 
Beispiel  der  Funktion  SQR  mit¬ 
geben.  So  berechnet  SQR  (25) 
die  Wurzel  aus  25,  erzeugt  also 
die  Zahl  5. 

Ebensowenig  ignoriert  wird 
eine  Mitteilung,  die  Sie  der 
Ausgabe-Funktion  PEEK  mitge¬ 
ben.  In  diesem  Fall  wird  die  In¬ 
formation  als  Arbeitshinweis 
aufgefaßt:  PEEK  (2048)  schaut  in 
der  Speicherzelle  2048  nach 
und  sagt  Ihnen  dann,  welchen 
Inhalt  es  gefunden  hat. 

Manchmal  benötigt  eine  Funk¬ 
tion  beide  Arten  von  Informa¬ 
tion,  so  etwa  die  Funktion  LEFT$. 
Sie  muß  zuerst  wissen,  was  für 
ein  String  bearbeitet  werden 
soll,  und  dann,  wie  lang  der  aus¬ 
zugebende  String  zu  sein  hat: 
LEFTS  ("Commodore", 4)  ergibt 
den  Ausgabe- String  "Comm". 
Mehrere  Mitteilungen  werden 
durch  Kommata  voneinander 
getrennt. 

Natürlich  können  auch  mehr 
als  zwei  Mitteüungen  mitgege¬ 
ben  werden.  Die  Funktion  MID$ 
benötigt,  wie  Sie  wissen,  im  Nor¬ 
malfall  drei:  das  Eingabedatum 
und  zwei  Arbeitshinweise  (an 
welcher  Stelle  der  Schnitt  im 
Eingabe-String  gemacht  wer- 
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Die  Diskette  für  eine  Aus¬ 
gabe  kostet  29,90* 
Mark.  Sie  werden  bei  eini¬ 
gen  Disketten  bestimmte 
Programme  vermissen.  De¬ 
ren  Autoren  konnten  sich 
nicht  entschließen,  ihr  Pro¬ 
gramm  im  Rahmen  des  Le¬ 
serservice  für  eine  Verbrei¬ 
tung  auf  Datenträger  freizu¬ 
geben.  Bei  den  Ausgaben  5 
und  6  können  noch  Kasset¬ 
ten  (VC  ...)  bestellt  werden. 
Zu  den  Programmen  sind 
immer  die  Seitenzahlen  an¬ 


gegeben,  unter  der  Sie  die 
Beschreibungen  in  der  ent¬ 
sprechenden  Ausgabe  fin¬ 
den  können.  Der  Diskette 
liegen  also  keinerlei  Infor¬ 
mationen  bei.  Lesen  Sie  da¬ 
her  aufmerksam  die  Anlei¬ 
tung  (ob  SYS-Befehle  nötig 
sind,  in  welcher  Reihenfolge 
geladen  werden  muß,  even¬ 
tuelle  Sprach-  oder  Spei¬ 
chererweiterungen  und 
ähnliches  mehr)  in  dem  je¬ 
weiligen  Artikel  nach.  Aus 
Aktualitätsgründen  wird  je¬ 


weils  die  abgedruckte  Ver¬ 
sion  angeboten.  Eventuelle 
systematische  Fehler,  die 
sich  noch  im  Programm 
befinden  können,  müssen 
von  Ihnen  selbst,  nach  Stu¬ 
dium  des  Druckfehlerteufel- 
chens,  korrigiert  werden. 


Neu  sind  die  Disketten- 
Symbole,  die  Sie  am  Anfang 
von  verschiedenen  veröf¬ 
fentlichten  Listings  finden 
können.  Sie  bedeuten,  daß 


diese  Programme  auf  der  im 
Listing-Service  angebote¬ 
nen  »Disk«  enthalten  sind. 
Der  detaillierte  Disk-Inhalt 
wird  dann  —  wie  gehabt  — 
mit  den  Seitenzahlen  in  der 
nächsten  Ausgabe  abge¬ 
druckt. 
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*GV>  -  eile  SDeicherversioncn  können 
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verwendet  werden  (einschließlich 
GV) 

-  3-KByto-Speicheietweiterung 
wird  benötigt 

=  Spelcherer.wuilurung  großer  eis  8 
KByte  wird  benötigt 

-  Unterprogrammbibliothek 
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PLZ 
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den  und  wie  lang  der  Ausgabe- 
String  sein  soll).  MID$  (''Commo¬ 
dore'’, 4, 5)  ergibt  also  "modor" 

Vielleicht  sollte  zum  Schluß 
noch  angemerkt  werden,  daß 
Art  und  Anzahl  der  Informatio¬ 
nen,  die  einer  Funktion  mitge¬ 
teilt  werden  können,  natürlich 
nicht  dem  Belieben  des  Pro¬ 
grammierers  anheimgestellt, 
sondern  für  jede  Funktion  vor¬ 
gegeben  sind.  Dasselbe  güt  für 
die  Reihenfolge,  in  der  die  ver¬ 
schiedenen  Informationen  an¬ 
gegeben  werden. 

Nun  weiß  eine  Funktion  also 
alles,  was  sie  wissen  muß,  um  ih- 
r^  Arbeit  zur  Zufriedenheit  des 
Programmierers  zu  tun  —  aber 
wohin  mit  dem  Ergebnis,  das  sie 
erzeugt? 

1.3  Wohin  mit  dem  Ergebnis? 

Das  Datum,  das  eine  Funktion 
erzeugt,  eine  Zahl  oder  ein  Text, 
muß  ihr  irgendwie  abgenom¬ 
men  werden. 

Man  kann  das  Ergebnis  auf 
den  Bildschirm  bringen,  zum 
Beispiel  PRINT  INT  (12.78);  man 
kann  es  einer  Variablen  zuord¬ 
nen,  zum  Beispiel  B$  =  MID$ 
("Commodore",4,5);  man  kann 
es  für  einen  Vergleich  benutzen, 
rum  Beispiel  IF  PEEK  (214)  =  24 
THEN  PRINT  CHRS  (147). 

Mit  einem  Wort;  Die  durch 
Funktionen  erzeugten  Zahlen 
und  Zeichenketlen  werden  ge¬ 
nauso  verwendet  wie  Zahlen 
und  Zeichenketten.  Genauso 
wenig  wie  der  Computer  die  iso¬ 
lierte  Zahl  3.5  oder  den  isolier¬ 
ten  String  »Commodore«  verste¬ 
hen  würde,  genauso  wenig  ver¬ 
steht  er  ein  alleinstehendes  INT 
(12,78).  Man  muß  ihm  immer  sa 
gen,  was  er  mit  einer  Zahl,  ei¬ 
nem  Ttext  oder  einer  Funktion 
(das heißt  mit  dem  Ergebnis,  das 
sie  erzeugt)  tun  soll. 

Und  wozu  überhaupt  Funktio¬ 
nen? 

1.4  Der  Daseinszweck 
von  Funktionen 

Je  mehr  Funktionen  eine  Pro¬ 
grammiersprache  zur  Verfü¬ 
gung  stellt,  um  so  leichter  ist  das 
Programmieren.  Funktionen 
nehmen  Programmierarbeit  ab. 
Lassen  Sie  mich  dies  an  zwei  Bei¬ 
spielen  illustrieren. 

Beispiel  1 :  Die  Funktion  ABS 

Die  Funktion  ABS  erzeugt  aus 
einer  Zahl  deren  absoluten 
Wert,  zum  Beispiel  aus  5  oder  —5 
den  Wert  5.  Ein  Commodore- 
Programmierer  schreibt  also 
einfach 

110  WERT  =  ABS  (ZAHL) 

Es  gibt  aber  Computer,  die 
diese  Funktion  nicht  kennen;  in 
diesem  Fall  muß  der  Program¬ 
mierer  eine  spezielle  Pro- 
grammroutine  schreiben,  und 
das  sieht  dann  zum  Beispiel  so 
aus  (Bild  7). 


100  Y  =  ZAHL 

1 10  GOSUB  40000  :  REM  ABSOLUT¬ 
WERT 

120  WERT  =  Y 
130  PRINT  WERT 
140  END 


40000  REM  SUB:  ABSOLUTWERT 
40010  IFY>  =0THEN  40030 
40020  Y  =  -Y 

40030  REM  ENDIF 
40090  RETURN 


Bild  7.  Manche  Funktionen  müs¬ 
sen  erst  programmiert  werden 

Die  armen  Programmierer, 
die  keinen  Commodore  haben; 
Andererseits  sind  wir  Commo- 
dorc  Programmierer  arm  dran, 
wenn  wir  zum  Beispiel  wissen 
wollen,  ob  die  Zeichenkette  B$ 
(»UTE«)  in  der  Zeichenkette  A$ 
(»COMPUTER«)  enthalten  ist, 
und  wenn  ja,  ab  welcher  Stelle 
Das  geht  ungefähr  so  (Bild  8). 


100  TEXTS=A$ 

110  SUCHS=B$ 

120  LAENGE=LEN  (TEXTS) — LEN 
(SUCH$)  +  1 

130  P0=0 

140  GOSUB  40000:  REM  STRING 
SUCHEN 

150— 

400ÖÖ  REM  SÜbTsTRING  SUCHEN* 

40010  FOR  1=1  TO  LAENGE 

40020  X$=MIDS  (TEXTS, I, 

LEN  (SUCHS)) 

40030  IF  XS=SUCH$  THEN 

P0=l  :  l=LAENGE 

40040  NEXT I 

40090  RETURN _ 

Bild  8.  Die  INSTR-Funktion 

Beispiel  2:  Die  Funktion  INSTR 

PO  enthält  den  Wert  5,  was  be¬ 
deutet,  daß  »UTE«  gefunden 
wurde  und  in  Position  5  beginnt. 
Wenn  PO  =  0  bleibt,  dann  wur¬ 
de  der  Suchstring  gefunden. 

Ach,  gäbe  es  doch  eine  Funk¬ 
tion,  die  uns  diese  ganze  Pro¬ 
grammierarbeit  abnimmt!  Tat¬ 
sächlich  gibt  es  sie  bei  anderen 
Computern,  und  sie  heißt  meist 
INSTR.  Wenn  der  Programmie¬ 
rer  sie  hat,  dann  schreibt  er  zum 
Beispiel  einfach 
140  PO  =  INSTR  (A$,B$) 

Daß  Funktionen  das  Program- 
mieien  erleichtern,  daß  sie  dazu 
Programme  kürzer,  übersichtli¬ 
cher  und  lesbarer  machen,  daß 
sie  schließlich  den  Programm¬ 
ablauf  beschleunigen,  dürfte 
nun  leicht  einleuchten. 

Es  ist  deshalb  kein  Wunder, 
daß  es  viele  Versuche  gibt,  das 
eingebaute  Basic  durch  zusätzli¬ 
che  Funktionen  zu  erweitern; 
zum  Beispiel  durch  einzelne 
Routinen  in  Maschinensprache, 
die  eine  einzelne  erwünschte 
Funktion  zur  Verfügung  stellen; 
oder  durch  spezielle  Basic- 
Erweiterungen  wie  Simons  Ba¬ 
sic  (für  den  C  64)  oder  Exbasic 
Level  II  oder  Macro  Basic. 


Wer  Maschinensprache  be¬ 
herrscht  und  seinen  Computer 
kennt,  kann  sich  seine  Erweite¬ 
rungen  jeweils  nach  Bedarf  sel¬ 
ber  anfertigen.  Wer  beides  nicht 
beherrscht,  braucht  aber  auch 
nicht  zu  verzweifeln;  denn,  wie 
zu  Beginn  angedeutet:  Es  gibt 
auch  in  Basic  die  Möglichkeit. 
Funktionen  selber  zu  basteln. 
Und  wenn  auch  die  Möglichkei¬ 
ten  von  Commodore-Basic  nicht 
das  sind,  was  sie  vielleicht  sein 
könnten,  sie  sind  noch  immer 
größer  als  der  Anfänger  im  all¬ 
gemeinen  weiß. 

2.  Selbstdefinierte 
Funktionen 

2.1  Die  möglichen  Typen 

Im  Commodore-Basic  können 
Funktionen,  die  Zahlen  ausge¬ 
ben,  selber  gemacht  werden, 
und  zwar  sowohl  vom  Typ 
Ausgabe-Funktion  als  auch  vom 
Typ  Eingabe-Ausgabe-Funk- 
Üon.  Die  letzteren  sind  auf  die 
Eingabe  von  Zahlen  beschränkt. 

Die  Mitteilungsmöglichkeiten 
sind  ebenfalls  beschränkt:  Es 
kann  maximal  eine  Information 
mitgegeben  werden,  und  sie 
muß  vom  Typ  »Eingabedatum« 
sein.  Daß  nur  Zahlen  Eingabe¬ 
daten  sein  können,  wurde  schon 
erwähnt. 

2.2  Die  Syntax 

Selbstgestrickte  Funktionen 
werden  gekennzeichnet  durch 
FN,  dem  ein  individueller  Name 
folgt,  zum  Beisoiel 

FN  KREISUMFANG 

Für  den  Namen  gelten  die  üb¬ 
lichen  Regeln  für  Variablenna¬ 
men,  das  heißt,  nur  die  beiden 
ersten  Zeichen  emes  Namens 
werden  berücksichtigt.  Die  obi¬ 
ge  Funktion  kann  also  ebenso¬ 
gut  folgendermaßen  geschrie¬ 
ben  werden: 

FN  KR 

Dem  Funktionnamen  FN  KR 
folgen  dann,  wie  bei  Funktionen 
üblich,  die  Klammern,  die  für 
die  Mitteilung  eines  eventuellen 
Eingabedatums  zur  Verfügung 
stehen. 

2.3  Die  Benutzung 

Selbstgestrickte  Funktionen 
werden  genauso  benutzt  wie 
vorgefertigte.  So  könnte  eine 
Programmroutine,  die  einen 
Würfel  simuliert,  so  aussehen: 

10  PRINT  FN  WUERFEL  (0) 

20  GOTO  10 

Die  Funktion  FN  WUERFEL  ist 
eine  reine  Ausgabe-Funktion, 
weshalb  ich  ais  Mitteilung  die 
nichtssagende  0  gewählt  habe. 

Die  im  folgenden  besproche¬ 
ne  Funktion  FN  KREISUMFANG 
ist  eine  Eingabe-Ausgabe- 
Funktion,  der  jeweilsder  Radius 
mitgeteilt  werden  muß.  Ein  Pro¬ 
gramm  könnte  so  aussehen: 

10  INPUT  "WELCHES  IST  DER 
RADIUS";  RD 

20  UM  =  FN  KREISUMFANG  (RD) 

30  PRINT  "UMFANG  BETRAEGT"  UM 


Aber  woher  weiß  der  Compu¬ 
ter  eigentlich,  daß  m  der  Funk¬ 
tion  FN  WUERFEL  die  Mittei¬ 
lung  in  der  Klammer  ignoriert 
werden  soll  und  daß  sie  ande¬ 
rerseits  bei  der  Funktion  FN 
KREISUMFANG  den  Radius 
meint?  Und  woher  weiß  der 
Computer  überhaupt,  wie  er  die 
Ausgabe-Zahl  erzeugen  soll? 

2.4  Die  Definition 

Bevor  Sie  eine  selbstgestrick¬ 
te  Funktion  einsetzen  können, 
müssen  Sie  sie  erst  einmal  defi¬ 
nieren  .  Das  muß  logischerweise 
vor  der  Benutzung  geschehen, 
am  besten  gleich  zu  Angang  des 
Programms. 

Dazu  steht  der  Befehl  DEF  zui 
Verfügung.  Lassen  Sie  uns  zuerst 
die  Funktion  FN  KREISUM¬ 
FANG  definieren.  Das  geht  so: 

DEF  FN  KREISUMFANG  (RD)  =  2  *  PI  * 
RD 

Die  Variable  RD  in  der  Klam¬ 
mer  auf  der  linken  Seile  der 
»Gleichung*  bezieht  sich  auf  das 
Eingabedatum,  also  den  Radius, 
der  der  Funktion  mitgeteill  wird, 
wenn  sie  im  Programm  er¬ 
scheint.  Das  Interessante  dabei 
ist,  daß  der  Radius  nachher  bei 
der  Benutzung  der  Funklion  kei¬ 
neswegs  RD  heißen  muß.  Man 
kann  ihm  jeden  Namen  geben, 
der  einem  in  den  Sinn  kommt, 
und  bei  jedem  Einsatz  der  Funk¬ 
tion  kann  man  sich  einen  neuen 
emfallen  lassen.  Was  allein  we¬ 
sentlich  ist,  das  ist  die  Beziehung 
zwischen  der  Variablen  RD  in 
der  Klammer  auf  der  linken  Sei¬ 
te  und  der  Variablen  RD  auf  der 
rechten  Seite  der  Definitions¬ 
gleichung,  Das  bedeute!,  daß 
man  bei  der  Definition  einer 
Funktion  jede  beliebige  Varia¬ 
ble  benutzen  kann.  Es  muß  nur 
darauf  geachtet  werden,  daß 
links  und  rechts  dieselbe  Varia¬ 
ble  benutzt  wird.  Die  meisten 
Leute  nehmen  einfach-  X,  was 
aber  nicht  in  jedem  Fall  zu  emp¬ 
fehlen  ist.  Ich  komme  darauf 
noch  zurück. 

Lassen  Sie  uns  nun  als  näch¬ 
stes  die  Ausgabe-Funktion  FN 
WUERFEL  definieren.  Hier  ha¬ 
ben  wir  ein  Problem:  Wir  geben 
ja  dieser  Funktion  keine  Infor¬ 
mation  rnit.  Was  also  schreiben 
wir  in  die  Klammer  auf  der  lin¬ 
ken  Seite,  die  ja  auf  jeden  Fall 
gefüllt  -werden  muß?  Nun,  die¬ 
ses  Mal  können  wir  ohne  Beden 
ken  X  benutzen: 

DEF  FN  WUERFEL  (X)  =  INT  (RND  (1)  * 
6)  +  1 

Wie  Sie  sehen,  erscheint  auf 
der  rechten  Seite  kein  X.  Aus 
dieser  Tatsache  schließt  der 
Computer  elektronenscharf, 
daß  er  bei  der  Benutzung  dieser 
Funktion  das,  was  in  Klammem 
mitgeliefert  wird,  zu  ignorieren 
hat, 

In  Commodore-Basic,  so  sa¬ 
hen  wir,  können  wir  einer  selbst- 
defimer.en  Funktion  also  entwe¬ 
der  gar  keine  Information  mitge¬ 
ben  (Ausgabe-Funktion)  oder  ei- 
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nen  Zahlenwert  (Eingabe- 
Ausgabe-Funktion).  Was  aber, 
wenn  wir  zwei  oder  mehr  Einga¬ 
bedaten  mitgeben  möchten,  sa¬ 
gen  wir  etwa  bei  einer  Funktion 
FN  RECHTECKINHALT?  Nun, 
dies  ist  eben  nicht  möglich,  aber 
wir  können  uns  wie  folgt  aus  der 
Affäre  ziehen.  Wir  definieren 
zum  Beispiel; 

DEF  FN  RECHTECKINHALT  (BREITE)  = 
BREITE  *  LAENGE 

Wenn  wir  die  Funktion  später 
aufrufen,  müssen  wir  einfach  da¬ 
für  sorgen,  daß  die  Länge  dem 
Programm  an  dieser  Stelle 
schon  bekannt  ist; 

100  LAENGE  =  5  :  PRINT  FN  RECHT¬ 
ECKINHALT  (BREITE) 

Bei  Funktionen  dieser  Art  wird 
es  vielleicht  besonders  deut¬ 
lich:  Wenn  man  eine  Funktion 
benutzt,  muß  man  sich  darüber 
im  klaren  sein,  welchen  Einga¬ 
bewert  man  ihr  mitteilen  muß. 
Deshalb  ist  es  immer  besser,  bei 
der  Definition  einer  Funktion 
»sprechende«  Variablen  zu  be¬ 
nutzen  statt  des  nichtssagenden 
X.  Die  folgende  Definition  ver¬ 
stehen  Sie  nach  einem  Jahr  mit 
großer  Wahrscheinlichkeit  nicht 
mehr: 

DEF  FN  A  (X)  =  INT  ((INT  (X)  +  (X-INT 
(X))  •  .6)  +  100  +  .5)  /  100 

Das  bedeutungsleere  X  hat 
seine  Berechtigung  allein  in  rei¬ 
nen  Ausgabe-Funktionen  wie 
FN  WUERFEL,  und  das  ist  auch 
die  Konvention,  an  die  ich  mich 
selber  halte. 

Übrigens  —  wenn  Sie  einen 
Fehler  bei  der  Definition  einer 
Funktion  machen,  kann  es  sein, 
daß  dieser  erst  beim  Einsatz  der 
Funktion  angezeigt  wird.  Manch 
einen  Anfänger  hat  dies  schon 
zui  Veizvveifluny  gebracht.  An¬ 
genommen,  Sie  erhalten  einen 
SYNTAX  ERROR  IN  220,  Sie 
schauen  sich  die  Zeile  an 
220  PRINT  FN  A  (5) 

Sie  können  absolut  keinen 
Fehler  erkennen.  Klar,  der  Feh¬ 
ler  liegt  ja  auch  ganz  woanders, 
in  Zeile  10  nämlich,  wo  Sie  fol¬ 
gendermaßen  definiert  hatten: 
10  DEF  FN  A  (T)  =  T  •  WAND 

Ihre  Variable  WAND  enthält 
AND,  was  in  Variablen  nicht  Vor¬ 
kommen  darf,  weil  es  ein  Basic- 
Wort  ist.  Wenn  also  ein  Syntax 
Error  angezeigt  wird  für  eine 
Zeile,  die  einen  Funktionsaufruf 
enthält,  schauen  Sie  sich  zuerst 
einmal  die  dazugehörige  Defini¬ 
tion  an,  bevor  Sie  den  Computer 
an  die  Wand  werfen. 

3.  Der  Wert  ist  der 
springende  Punkt 

Eigenbaufunkhonen  erzeu¬ 
gen  Zahlen  aus  Zahlen,  oder 
richtiger:  sie  erzeugen  Zahlen- 
werte  aus  Zahlenwerten.  Es  ist 
wichtig,  daß  man  sich  folgendes 
ganz  klar  macht:  Worauf  es  an¬ 
kommt,  ist  der  Wert.  In  welcher 
Form  der  Wer:  ausgedrückt 
wird,  ist  hingegen  unerheblich. 


Das  kann  eine  Zahl  sein,  aber 
ebenso  eine  Variable,  ein  ma¬ 
thematischer  Ausdruck  oder  so¬ 
gar  eine  Funktion.  Die  Länge 
des  Radius  eines  Kreises  könnte 
also  zum  Beispiel  in  einem  Basic- 
Programm  (und  also  auch  im  Zu¬ 
sammenhang  mit  Funktionen) 
folgendermaßen  erscheinen: 
10.5 
RD 

DURCHMESSER  /  2 
LEN  (LINIES) 

FN  HM  (Y) 

Bei  der  Definition  einer  Funktion 
ist  also  alles  erlaubt  —  solange 
das  Ergebnis  ein  Zahlenwert  ist. 
Zwei  Beispiele  sollen  dies  deut¬ 
lich  machen. 

Beispiel  I :  Text  zentrieren 

Wir  wollen  eine  Funktion  defi¬ 
nieren  die  berechnet,  ab  wel¬ 
cher  Bildschirmspalte  ein  Text 
gedruckt  werden  soll,  um  in  der 
Mitte  des  Bildschirms  zu  er¬ 
scheinen. 

Beim  C  64  hat  die  Bildschirm- 
zeile  40  Spalten,  die  Mitte  liegt 
bei  Spalte  20.  Die  halbe  Zei¬ 
chenkette  muß  also  vor  der  Mit¬ 
te,  die  andere  Hälfte  nach  der 
Mitte  gedrucki  werden.  Die 
Funktion  kann  folgendermaßen 
definiert  und  benutzt  werden: 

10  DEF  FN  MITTE  (X)  =  20  -  LEN 
(TEXTS)  /  2 

300  PRINT  TAB(FN  MITTE  (0));  TEXTS 

Unsere  Funktion  ist  leider 
noch  nicht  vollkommen  defi¬ 
niert,  was  deutlich  wird,  wenn 
die  zu  druckende  Zeichenkette 
länger  als  die  Bildschirmzeile 
ist,  zum  Beispiel  42  Zeichen  lang. 
In  diesem  Fall  erzeugt  unsere 
Funktion  ein  negatives  Ergebnis 
(—1),  was  TAB  nicht  verträgt,  und 
was  deshalb  zu  einer  Fehlermel¬ 
dung  führt.  Also  müssen  wir  da¬ 
für  sorgen,  daß  unsere  Funktion 
nur  dann  rechnet,  wenn  die  Zei¬ 
chenkette  gleich  oder  kleiner 
als  40  Zeichen  lang  ist.  Wir  könn¬ 
ten  dieses  Problem  folgender¬ 
maßen  lösen: 

300  IF  LEN  (TEXTS)  >  40  THEN  PRINT 
TEXTS:  GOTO  320 

310  PRINT  TAB(FN  MITTE  (0));  TEXTS 
320  ... 

Es  gibt  jedoch  eine  sinnvollere 
Möglichkeit,  die  es  erlaubt,  die 
Entscheidung,  ob  die  Funktion 
rechnet  oder  nicht,  sozusagen 
von  der  Funktion  selber  treffen 
zu  lassen. 

Dies  erreichen  wir,  indem  wir 
einen  logischen  Ausdruck  in  die 
Definition  einbauen.  Der  Aus¬ 
druck 

(LEN  (TEXTS)  <=  40) 

ergibt  den  Wert  —1,  wenn  er 
wahr  ist,  das  heißt  wenn  TEXTS 
40  Zeichen  lang  ist  oder  kürzer. 
Wenn  TEXTS  länger  ist,  ergibt 
der  Ausdruck  den  Wert  0. 

Unsere  Definition  lautet  also: 
10  DEF  FN  MITTE  (X)  =  (20  -  LEN 
(TEXTS)/ 2)  'ABS  (LEN  (TEXTS)  <  = 
40) 


FN  MITTE  ergibt  den  Wert  0, 
wenn  TEXTS  länger  als  40  Zei¬ 
chen  ist,  und  der  Druck  der  Zei¬ 
chenkette  beginnt  in  der  ersten 
Büdschirmspalte. 

Das  Beispiel  zeigt,  daß  durch¬ 
aus  Strings  in  der  Definition  von 
Funktionen  Vorkommen  können, 
wenn  gewährleistet  ist,  daß  das 
Endergebnis  des  Ausdrucks  auf 
der  rechten  Seite  der  »Glei¬ 
chung«  ein  Wert  ist. 

Beispiel  2:  Kleinbuchstaben  in  Groß¬ 
buchstaben  verwandeln 

Im  Commodore-Basic  kann 
die  Definition  einer  Funktion 
höchstens  eine  Zeile  lang  sein. 
Diese  Beschränkung  läßt  sich 
bis  zu  einem  gewissen  Grade 
umgehen,  indem  wir  einfach 
mehrere  Funktionen  definieren 
und  sie  ineinander  einbetten. 

Es  soll  eine  Funktion  program¬ 
miert  werden,  mit  deren  Hilfe 
wir  Kleinbuchstaben  in  Groß¬ 
buchstaben  verwandeln  kön¬ 
nen.  Wir  benutzen  dazu  weder 
logische  Ausdrücke. 

Wir  gehen  in  zwei  Schritten 
vor.  Im  ersten  Schritt  prüfen  wir, 
ob  das  untersuchte  Zeichen 
überhaupt  ein  Buchstabe  ist. 
Das  ist  der  Fall,  wenn  sein 
ASCll-Wert  zwischen  65  und  93 
oder  193  und  221  hegt: 

10  DEF  FN  BU  (Z)  =  (Z  >  64  AND  1  < 
91)  OR  (Z  >  192  AND  2  <  219) 

Das  Ergebnis  der  Funktion  FN 
BU  ist  —1,  wenn  der  Ausdruck 
zutrifft.  Das  heißt,  wenn  die 
Funktion  den  Wert  —1  erzeugt, 
dann  ist  das  geprüfte  Zeichen 
ein  Buchstabe. 

In  Schritt  2  untersuchen  wir,  ob 
es  sich  um  einen  Kleinbuchsta¬ 
ben  (dann  muß  er  umgewandelt 
werden)  oder  einen  Großbuch¬ 
staben  handelt  (dann  darf  er 
sich  nicht  verändern). 

Kleinbuchstaben  liegen  zwi¬ 
schen  65  und  90.  Das  heißt,  wenn 
der  ASCII-Wert  des  geprüften 
Zeichens  kleiner  als  128  ist,  ha¬ 
ben  wir  es  mit  einem  Kleinbuch- 
stabenzutun,  undesmuß  128ad- 
diert  werden.  Das  aber  nur 
dann,  wenn  das  Zeichen  ein 
Buchstabe  ist,  das  heißt,  wenn 
FN  BU  den  Wert  —1  hat.  Die  Defi¬ 
nition: 

20  DEF  FN  KG  (Z)  =  Z  +  (Z  <  128)  * 
128  '  FNBU  (Z) 

Die  Funktion,  die  im  Pro¬ 
gramm  benutzt  wird,  ist  natür¬ 
lich  lediglich  die  letztere;  daß 
sie  eine  zweite  Funktion  enthält, 
braucht  uns  jetzt  nicht  mehr  zu 
kümmern: 

300  Z  =  ASC("o") 

310  Z  =  FN  KG  (Z) 

320  PRINT  CHRS  (Z) 

Die  Tatsache,  daß  es  bei  einer 
Funktion  nur  auf  den  Wert  an¬ 
kommt  und  nicht  etwa  darauf, 
daß  dieser  in  Form  einer  Zahl 
ausgedrückt  wird,  betrifft  nicht 
etwa  nur  die  Definition  von  Funk¬ 
tionen,  sondern  auch  ihre  An¬ 
wendung.  Was  ich  sagen  will  ist, 
daß  es  bei  der  einer  Funktion 
mitgeteilten  Information  völlig 


gleichgültig  ist,  in  welcher  Form 
der  mitgeteilte  Wert  ausge¬ 
drückt  ist.  Beispiele: 

400  PRINT  FN  KG  (65) 

400  PRINT  FN  KG  (A) 

400  PRINT  FN  KG  (A-128) 

400  PRINT  FN  KG  ("a") 

400  PRINT  FN  KG  (FN  (  (Y)) 

Ein  Anwendungsbeispiel: 

Um  einen  Namen,  der  in  Klein¬ 
buchstaben  gespeichert  ist,  mit 
einem  großen  Anfangsbuchsta¬ 
ben  zu  versehen,  könnte  die 
Basic-Zeile  510  verwendet  wer¬ 
den: 

500  NS  =  "commodore" 

510  N$  =  CHRS  (FN  KG  (ASC  (NS))) + 
MIDS  (N$,2) 

ASC  ergibt  den  ASCII-Wert 
des  ersten  Buchstabens  von 
»commodore«,  also  67;  FN  KG 
addiert  128  und  erzeugt  den 
Wert  195;  CHR$  ergibt  das  Zei¬ 
chen  »C«;  dies  wird  mit  Hilfe  von 
MIDS  mit  »omrnodore«  verknüpft 
und  der  Variablen  N$  zugeord¬ 
net,  die  also  schließlich  die  Zei¬ 
chenkette  »Commodore«  ent¬ 
hält.  Die  ganze  Transaktion  wird 
übrigens  nur  mit  Hilfe  von  (vor¬ 
gefertigten  und  selbstdedinier- 
ten)  Funktionen  durchgeführt. 

4.  Legen  Sie  sich  eine 
Funktionen-Bibliothek  an 

Die  Möglichkeiten,  die  das 
Commodore-Basic  für  die  Her¬ 
stellung  selbstdefinierter  Funk¬ 
tionen  zur  Verfügung  stellt,  sind 
beschränkt  —  andere  Basic-Dia- 
lekte  sind  da  oft  großzügiger.  Da 
lassen  sich  Funktionen  definie¬ 
ren,  die  auf  Zeichenketten  wir¬ 
ken;  da  können  Definitionen  vie¬ 
le  Zeilen  lang  sein;  da  kann 
mehr  als  eine  Information  mitge¬ 
geben  werden  —  aber  wir  wol¬ 
len  uns  den  Mund  nicht  wässrig 
machen. 

Auch  unsere  Funktionen  sind 
ein  »mächtiges«  Werkzeug  (oder 
richtig  deutsch)  ein  leistungsfä¬ 
higes  Werkzeug  und  keines¬ 
wegs  auf  die  Verarbeitung  ma¬ 
thematischer  Formeln  be¬ 
schränkt,  wie  man  häufig  an- 
nimmt.  Man  muß  die  Möglich¬ 
keiten  nur  nutzen. 

Es  lohnt  sich,  eine  individuelle 
Bibliothek  von  Funktionsdefini- 
tionen  anzulegen,  die  man  je 
nach  Bedarf  in  seine  Program¬ 
me  einbaut.  Funktionen  erspa¬ 
ren,  wenn  sie  einmal  zur  Verfü¬ 
gung  stehen,  viel  Programmier¬ 
arbeit. 

Im  Anhang  habe  ich  ein  paar 
Funktionsdefinitionen  zusam¬ 
mengestellt,  die  ich  immer  wie¬ 
der  in  Programmen  benutze.  Da 
ist  nichts  Weltbewegendes  da¬ 
bei,  aber  ich  habe  mir  dadurch 
schon  manch  unnötige,  weil  sich 
wiederholende,  Denkarbeit  er¬ 
spart.  Und  das  ist  es,  worauf  es 
ankommt. 

Welches  sind  Ihre  Lieblings¬ 
funktionen? 

(Prof.Dr.  Leuschner/gk) 
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Anhang: 

Einige  einfache  Funktionen  zur  Anregung 

1 .  Zufallszahl  zwischen  1  und  ENDZAHL 

DEFFNRD  (ENDZAHL)  =  INT  (RND  (1)  *  ENDZAHL)  +  1 
PRINT  FN  RD  (6)  würfelt  eine  Zahl  zwischen  1  und  6. 
Anmerkung:  Damit  der  Zufallsgenerator  mit  einer  zufälli¬ 
gen  Zufallszahl  anfängt,  sollte  man  zu  Beginn  des  Pro¬ 
gramms  folgende  Zeile  einfügen: 

X  =  RND  (—RND  (0)) 

2.  Zufallszahl  zwischen  ANFZAHL  und  ENDZAHL 

DEF  FN  ZUFALL  (ENDZAHL) 

INT(RND  (1)  *  (ENDZAHL  ANrZAIIL))  +  ANFZAHL 

+ 1 

ANFZAHL  =  65  :  PRINT  CHR$  (FN  ZUFALL  (90))  erzeugt 
einen  zufälligen  Kleinbuchstaben. 

3.  Kommozahl  zu  Ganzzahl  aufrunden 

DEF  FN  AUFRUNDEN  (ZAHL)  =  -  INT  (-  ZAHL) 
PRINT  FN  AUFRUNDEN  (23.05)  ergibt  24. 

Anmerkung:  Zum  Abrunden  benutzt  man  die  einfache 
INT-Funktion. 

4.  Zahl  mit  festgelegter  Anzahl  von  Nachkommastellen  mit  Rundung 

DEF  FN  KOMMA  (ZAHL) 

=  INT  (ZAHL  *  10  I  NACHKOMMA  +  .5)  /  10  I  NACH¬ 
KOMMA 

NACHKOMMA  =  2:  PRINT  FN  KOMMA  (25/6)  ergibt  4.17. 

5.  Zahl  mit  festgelegter  Anzahl  signifikanter  Ziffern  (2  Funktionen) 

DEF  FN  SG  (ZAHL) 

=  10  I  (1  -  ZIFFERN  +  INT  (LOG  (ABS  (ZAHL))  /  LOG 
(10))) 

DEF  FN  SIGNI  (ZAHL) 

=  INT  (ZAHL  /  FN  SG  (ZAHL)  +  .5)  *  FN  SG  (ZAHL) 

ZIFFERN  =  4  :  PRINT  FN  SIGNI  (ZAHL)  ergibt  bei  ZAHL 
=  1234567  die  Zahl  1235000,  bei  ZAHL  =  12.345  die  Zahl 
12.35,  etc. 

6.  Zahlen  in  einer  Spalte  drucken  (PRINT  US  ING) 

DEF  FN  US  ING  (ZAHL) 

=  SPALTE— ABS((ZAHL  >  10)  + (ZAHL  >  100)  + (ZAHL  > 
1000)  +  (ZAHL  >  1014)+ (ZAHL  >  10 15)  + (ZAHL  >  1016)) 
SPALTE  =  20  :  PRINT  TAB(FN  US  ING  (ZAHL));  ZAHL 
druckt  Zahlen  bis  zu  einer  Million  richtig  als  Kolonne. 
Anmerkung;  Wenn  Sie  die  Variablen  abkürzen,  paßt  die 
Definition  in  eine  Zeile.  Zwischen  US  und  ING  muß  eine 
Leerstelle  stehen! 

7.  Ungerade  oder  gerade  Zahl? 

DEF  TN  ODD  (ZAHL)  ZAHL  AND  1 
PRINT  FN  ODD  (25)  ergibt  den  Wert  1,  da  25  eine  ungera¬ 
de  Zahl  ist.  Gerade  Zahlen  ergeben  0. 

8.  Modulus  (Rest  bei  einer  Division) 

DEF  FN  MOD  (ZAHL) 

=  INT  (((ZAHL  /  TEILER  -  INT  (ZAHL  /  TEILER))  *  TEI¬ 
LER)  +  .5) 

TEILER  =  6:  PRINT  FN  MOD  (25)  ergibt  den  Divisionsrest 
1. 


9.  Uhrzeit  dezimal  darstellen 

DEF  FN  DEZUHR  (HR) 

=  INT  ((INT  (HR)  +  (HR  -  INT  (HR))  /  .6)  *  100  +  .5)  /  100 
H  =  FN  DEZUHR  (17.30)  ergibt  den  Dezimalwerl  17.5,  mit 
dem  man  dann  normal  rechnen  kann. 

10.  Dezimal  ausgedrückte  Uhrzeit  als  normale  Uhrzeit  darstellen 

DEF  FN  UHR  (DEZZT) 

=  INT  ((INT  (DEZZT)  +  (DEZZT  -  INT  (DEZZT))  *  .6)  *  100 
+  .5)  /  100 

PRINT  FN  UHR  (17.25)  ergibt  die  normale  T.Thrzeit  17.15 
Uhr. 

11.  ASCII-Code  eines  Zeichens  in  den  Bildschirm-Code  umwandeln 

DEF  FN  SCREEN  (AS)  =  (AS  AND  128)  /  2  OR  (AS  AND 
63) 

POKE  1024,  FN  SCREEN  (ASC('Ä'))  POKEt  in  die  linke 
obere  Ecke  des  C  64-Bildschirms  den  Buchstaben  A. 

12.  Inhalt  einer  Bildschirmspeicherzelle  lesen 

DEF  FN  CRT  (SPALTE) 

=  PEEK  (1024  +  (ZEILE  -  1)  *  40  +  (SPALTE  —  1)) 
ZEILE  =  5:  PRINT  FNCRT  (20)  ergibt  den  Inhalt  der  Spei¬ 
cherzelle  der  20.  Spalte  in  der  5.  Zeüe. 

13.  Exklusives  Oder:  Von  zwei  Bedingungen  darf  nur  eine  zutreffen. 

Beispiel:  Wenn  Tante  Amalie  allein  kommt,  oder  wenn 
Onkel  Otto  allein  kommt,  dann  gehen  wir  auch  zum  Fest. 
Wenn  aber  beide  kommen,  dann  gibt’s  Streit  zwischen 
den  beiden,  also  bleiben  wir  daheim.  Wenn  keiner  von 
den  beiden  kommt,  wird’s  langweilig,  dann  bleiben  wir 
auch  daheim.  (Drei  Funktionen  werden  dafür  definiert.) 

DEF  FN  Bl  (X)  =  (A  =  AWERT)  oder  sonst  eine  Bedin¬ 
gung 

DEF  FN  B2  (X)  -  (B  -  BWERT)  oder  sonst  eine  Bedin¬ 
gung 

DEF  FN  EO  R  (X) 

=  ABS  ((FN  Bl  (0)  AND  FN  B2  (0))  <  >  (FN  Bl  (0)  OR  TN 
B2  (0))) 

Als  einander  ausschließende  Bedingungen  seien  A$  = 
'Amalie"  und  B$  =  "Otto"  für  die  beiden  ersten  Funktio¬ 
nen  definiert  worden.  Dann  ergibt  die  Funktion  FN  EO  R 
den  Wert  1  zum  Beispiel  bei  folgender  Situation: 

Ä$  -  "Amalie"  :  B$  -  "Emilia"  :  PRINT  FN  EO  R  (0) 

Anmerkung:  Der  Name  der  Funklionist  EO  R,  weil  EOR 
das  Basic-Wort  OR  enthielte,  was  zu  einer  Fehlermeldung 
führen  würde. 

14.  ASCII-Wert  eines  Zeichens  innerhalb  eines  Strings  bestimmen 

DEF  FN  AS  C  (PS)  -  ASC  (MID$  (SS.PS.l)) 

S$  -  "Commodore":  PRINT  FN  ASC  (6)  ergibt  den  ASCII- 
Wert  von  »d«,  also  68. 

15.  Einen  Teilstring  aus  einem  String  »herausschneiden«  und  dessen 
Wert  bestimmen 

DEF  FN  WERT  (PS)  -  VAL  (MIDS  (S$,PS,LAENGE)) 

S$  =  "028255063":  LAENGE  =  3:  PRINT  FN  WERT  (4)  er¬ 
gibt  den  Wert  255. 
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Wir  suchen  die  Anwendung  des  Monats 


Anwendung  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haben  einen  Commodore 
64  oder  einen  VC  20  und 
versuchen  diesen  irgend¬ 
wie  sinnvoll  einzusetzen. 
Unter  einer  sinnvollen 
Anwendung  versteht  die 
64'ei  Redaktion  alles,  was 
beispielsweise  Program¬ 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Bcrcch 
nung  der  Benzinkosten 
für  Ehren  Wagen  handeln, 


um  ein  eigenes  Textverar¬ 
beitungsprogramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge 
klügeltes  Tfelefon-  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  wem 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sic  führen  die  Lohn-  und 
Gehaltsabrechnung,  Ihre 
Lagerverwaltung,  die  Be¬ 


stellungen  auf  einem 
Commodore-Heimcom- 
puter  durch?  So  spezielle 
Anwendungen  wie  die 
Berechnung  der  Statik 
von  selbstgezimmerten 
Regalen,  von  Klimadia¬ 
grammen  oder  Vokabel¬ 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zinsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 


Uns  ist  die  Anwendung 
des  Monats 

500  Mark 

wert. 

Schreiben  Sie  uns,  was 
Sie  mit  Ihrem  Computer 
machen. 

Redaktion  64’er,  Aktion: 
Anwendung  des  Monats, 
Hans-Pmsel-Str.  2,  8013 
Haar  bei  München. 


Einmal  im  Monat  gibt  es  die 

SUPERCHANCE 


Diese  nicht  einmalige  Gele¬ 

Sie  haben  das  Basic  um  einige 

genheit  sollten  Sie  nutzen.  Wie? 

sinnvolle  Befehle  erweitert:  ein¬ 

Schicken  Sie  uns  Ihr  bestes, 

schicken! 

selbst  erstelltes  Programm.  Bei 

Sie  arbeiten  mit  einem  selbster¬ 

der  Art  des  Programms  sind  wir 

stellten  Textverarbeitungspro- 

nicht  wählerisch. 

gramm,  einer  eigenen  Tabellen¬ 

Sie  haben  ein  sehr  gutes 

kalkulation,  einem  semiprofes¬ 

(Schieß-,  Knobel-,  Denk-,  Action-, 

sionellen  Datenverwaltungspro¬ 

Abenteuer-)Spiel  geschrieben: 

gramm:  einschicken! 

einschicken! 

Sie  zeichnen  und  konstruieren 

Sie  verfügen  über  ein  komforta¬ 

mit  einem  selbsterstellten  Pro¬ 

bles  Disketten-Kopier-(Sortier) 

gramm  in  hochauflösender  Gra¬ 

Programm  mit  einigen  außerge¬ 

fik:  einschicken! 

wöhnlichen  Leislungsmerkma- 

Wir  freuen  uns  über  jeden  Bei- 

\  len:  einschicken! 

trag  und  honorieren  mit  bis  zu  /  / 

2000  Mark 

für  das  Lisfing  des  Monats 


Aus  den  besten  Listings,  die 
veröffentlicht  werden,  sucht  die 
64'er-Redaktion  einmal  im  Monat 
das  »Listmg  des  Monats«  aus.  Alle 
Listings,  die  im  64’er  abgedruckt 
sind,  werden  mit  100  bis  300  Mark 


honoriert.  Die  genaue  Vorge¬ 
hensweise  beim  Einsenden  von 
Listings  ist  m  dem  Beitrag  »Wie 
schicke  ich  meine  Programme 
ein?«  in  verschiedenen  Ausgaben 
beschrieben. 


Schicken  Sie  Ihr  Listinq  an: 
Redaktion  64 'er,  Superchance: 
Listing  des  Monats,  Hans-Pinsel- 
Str.  2,  8013  Haar  bei  München. 
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Fortsetzung  von  Seite  155 
man  nur  60  Abtastwerle  pro  Se¬ 
kunde  hat?  Die  Antwort  gibt  Bild 
4.  Man  erhält  den  gestrichelten 
Verlauf  mit  einer  Frequenz  von 
nur  10  Hz.  Noch  seltsamer  sieht 
das  Resultat  bei  einer  LFO-Fre- 
quenz  von  25  Hz  aus.  Die  Folge 
der  Abtastwerte  schwingt  zwar 
ungefähr  im  Rhythmus  von  25  Hz, 
dieser  Bewegung  ist  aber  zusätz¬ 
lich  ein  Auf  und  Ab  im  10-Hz- 
Rhythmus  überlagert, 

Der  theoretische  Hintergrund 
dieser  Erscheinung  sei  hier  nur 
gestreift:  Nach  dem  Abtasttheo¬ 
rem  muß  die  Abtastfrequenz 
mindestens  doppelt  so  hoch 
sein,  wie  die  höchste  im  abzuta- 
stenden  Signal  vorkommende 
Frequenz,  damit  die  Ablastfolge 
dieses  Signal  richtig  repräsen¬ 
tiert.  Andernfalls  weist  die  Ab¬ 
tastfolge  Frequenzanteile  auf, 
die  im  Origmalsignal  gar  nicht 


Vorkommen.  Man  nennt  diesen 
Effekt  Aliasing  (von  lat.  alias  = 
anderswo).  In  unserem  Fall  kön¬ 
nen  die  Bedingungen  des  Ab¬ 
tasttheorems  nie  vollständig  er¬ 
füllt  werden,  da  der  ideale  Säge¬ 
zahn  Obertöne  beliebig  hoher 
Ordnung  enthält.  Im  ersten  Fall 
von  Bild  4  wird  das  Abtasttheo¬ 
rem  grob  verletzt:  Die  Äbtastfre- 
quenz  ist  bei  weitem  nicht  dop¬ 
pelt  so  groß  wie  die  Signalfre¬ 
quenz.  Als  Resultat  tritt  nur  eine 
Aliasing- Frequenz  von  10  Hz  auf. 
Im  zweiten  Fall  wird  das  Abtast¬ 
theorem  immerhin  für  die  Grund- 
schwmgung  des  Signals  erfüllt. 
60  Hz  ist  mehr  als  doppelt  so 
groß  wie  25  Hz.  Die  23  Hz  sind  in 
der  Folge  der  Abtastwerte  auch 
erkennbar.  Die-  zweite  Harmoni¬ 
sche  des  Signals  ist  aber  mit  50 
Hz  schon  zu  hoch  für  die  Abta¬ 
stung.  Ihre  Amplitude  beträgt 
immerhin  die  Hälfte  der  Ampli¬ 


tude  der  Grundschwingung,  wie 
eine  Fourier-Analyse  ergibt. 
Und  genau  diese  Harmonische 
findet  man  auch  hier  als  eine 
Altasing-Frequenz  von  10  Hz  in 
der  Folge  der  Abtastwerte  wie¬ 
der. 

Aliasing  (ritt  auch  schon  bei 
niedrigeren  LFO-Frequenzen 
als  25  Hz  auf.  Der  Effekt  wird 
dann  aber  schwächer,  weil  die 
dafüi  verantwortlichen  Obertö¬ 
ne  von  höherer  Ordnung  und  da¬ 
mit  von  niedrigerer  Amplitude 
sind.  Mir  dem  Aliasing-Effekt 
kann  man  bei  bewußtem  Einsatz 
zusätzliche  interessante  Modu¬ 
lationen  verwirklichen. 

Wie  es  weitergeht 

Nach  diesem  etwas  anstren¬ 
genden  theoretischen  Teil  wer¬ 
den  -wir  uns  in  der  nächsten  Fol¬ 
ge  wieder  der  Tonerzeugung 
selbst  zuwenden.  Zunächst  wer¬ 


den  noch  der  Hüllkurvengene¬ 
rator  und  der  Portamento-Me- 
chanismus  von  Modulator  be¬ 
schrieben,  anschließend  wird 
ein  komfortables  Editorpro¬ 
gramm  vorgesteilt,  das  ein 
schnelles,  interaktives  Manipu- 
leren  aller  Modulator-  und  SID- 
Parameter  ermöglicht,  Mit  dem 
Programm  kann  direkt  über  die 
Tastatur  gespielt  werden,  und  es 
können  Sound-Parametersätze 
auf  Diskette  verwaltet  werden. 
Dieses  Programm  soll  dann  in  ei¬ 
ner  weiteren  Folge  zu  einem 
kompletten  dreistimmigen  Se¬ 
quenzer  erweitert  werden.  Als 
Besonderheit  wird  dieses  Pro¬ 
gramm  unabhängige  Melodier/ 
Sound-Files  erzeugen  können, 
die  für  sich  allein  lauffähig  sind, 
Die  so  erstellten  Klangschöpfun¬ 
gen  können  dann  in  andere  Pro¬ 
gramme  eingebaut  werden. 

(Thomas  Krätzig/aa) 


VIC  -  Das  »intelli¬ 
gente«  Programm 

Ein  Computerprogramm  zu  schreiben, 
mit  dem  man  sich  einfach  in  normaler 
Umgangssprache  unterhalten  kann  — 
das  war  die  Aufgabe  in  unserem  Pro¬ 
grammierwettbewerb  vom  November 
,84.  Ein  Programm  war  »intelligener« 
als  alle  anderen. 


Der  Ausgangspunkt  für 
diesen  Programmier- 
wettbewerb  war  die  »Eliza- 
Story«.  Im  Jahre  1966  ent¬ 
wickelte  Joseph  Weizen¬ 
baum  am  Massachusetts  In¬ 
stitute  of  'Technology  ein  Pro¬ 
gram  names  »Eliza«,  das  — 
vereinfacht  gesagt  —  einen 
Psychoanalytiker  simuliert. 
Der  Mensch  begibt  sich  also 
in  der  Rolle  des  Patienten  an 
die  Computer-Tastatur  und 
wird  aufgefordert,  von  sei¬ 
nen  Schwierigkeiten  zu  be¬ 
richten  Aufgrund  der  Einga¬ 
ben  gibt  Eliza  dann  durchaus 
differenzierte  Antworten 
und  stellt  auch  schon  mal 
Zwischenfragen,  so  daß  ein 
regelrechter  Dialog  zustan¬ 
de  kommt.  Das  Eliza-Pro- 
grarr-m  hat  inzwischen  eine 
große  Verbreitung  gefun¬ 
den  und  existiert  in  unzähli¬ 
gen  Versionen  für  alle  gängi¬ 
gen  Heimcomputer.  Mit  un¬ 
serem  Programmierwettbe¬ 


werb  wollten  wir  dazu  anre¬ 
gen,  ähnliche  —  und  womög¬ 
lich  bessere  —  Programme 
für  den  C  64/VC  20  zu  ent¬ 
wickeln.  Wir  erhielten  auch 
eine  ganze  Reihe  wirklich 
brauchbarer  Programme  - 
nur  leider,  leider  handelte 
es  sich  bei  vielen  dieser  Ein¬ 
sendungen  um  Programme, 
die  eindeutig  auf  dem  Origi- 
nal-Eliza  basierten.  Diese 
Programme  gelangten  na¬ 
türlich  gar  nicht  erst  in  die 
engere  Wahl,  denn  bei  unse¬ 
ren  Wettbewerben  ist  immer 
noch  die  eigene  Kreativität 
gefragt.  Sieger  wurde 
schließlich  »VIC«,  ein  Pro¬ 
gramm,  das  sich  in  zwei  we¬ 
sentlichen  Punkten  von  der 
Konkurrenz  abhebt. 

Zunächst  einmal  ist  »VIC« 
sehr  schnell.  Auch  bei  länge¬ 
ren  Eingaben  werden  für  die 
Antwort  selten  mehr  als  vier 
bis  fünf  Sekunden  ge¬ 
braucht.  »VIC«  war  damit,  ob- 


Der  Autor  von  »VIC«, 
stellt  sich  vor 

Mit  meinen  37  Jahren  zähle  ich  zwar  nicht  mehr  zur  jüng¬ 
sten  Hacker-Ceneration.  Trotzdem  bin  ich  ein  begeisteter 
Computerspiele-Fan.  Besonders  gut  gemachte  Grafik- 
Adveniures  können  mich  stundenlang  vor  den  Bildschirm 
fesseln.  Mittlerweile  ist  auch  meine  Frau  schon  von  der 
Adventuntis  befallen,  was  schon  mal  dazu  führen  kann, 
daß  das  Abendessen  erst  nach  Mitternacht  stattfindet. 
Man  muß  doch  vorher  erst  einmal  aus  diesem  verflixten 
Tunnel  herauskommen! 

Das  erste  Mal  kam  mir  vor  17  Jahren  ein  Computer  in  die 
Quere.  Damals,  nach  abgeschlossener  Berufslehre  als 
Elektroniker,  war  ich  im  Studium  etwas  knapp  bei  Kasse 
und  beschloß,  diesem  Mißstand  mit  einer  Teilzeitarbeit  zu 
begegnen.  Es  war  in  einem  Platzreservations-System  ei¬ 
ner  großen  Fluggesellschaft.  Zwei  identische  Computer- 
Anlagen  waren  dort  installiert,  um  bei  Ausfall  des  einen 
Computers  sofort  auf  den  anderen  umschalten  zu  können. 
Dieses  Umschalten  war  meine  Aufgabe.  Das  kam  dann  so 
alle  drei  bis  fünf  Tage  einmal  vor.  Die  restliche  Zeit  konnte 
ich  auf  einem  mitgebrachten  Feldbett,  neben  dem  Com¬ 
puter  schlafen  oder  eben  an  meinem  Studium  weiterar- 
beiten,  Dachte  ich  mir  zumindest!  Da  stand  aber  die  ganze 
Zeit  einer  der  beiden  Computer  nutzlos  herum  u  nd  warte¬ 
te  nur  darauf,  von  mir  beschäftigt  zu  werden.  Der  Rest  ist 
schnell  erzählt:  Einige  Wochen  später  hatte  ich  mein  Studi¬ 
um  —  für  einen,  für  meine  damaligen  Verhältnisse,  unwi¬ 
derstehlichen  Zahltag  als  Programmierer  —  an  den  Nagel 
gehängt. 

Nach  10  Jahren  EDV  habe  ich  wieder  zur  Elektronik  zu- 
rückgefunden.  Seit  1978  besitze  ich  ein  eigenes  Geschält 
und  befasse  mich  mit  der  Entwicklung  und  dem  Vertrieb 
von  Medizin-Elektronik. 

Meine  Hobbies:  Klavier  (Jazz),  Tennis,  Ski,  Schach, 
Computer-Spiele,  Pokern. 

(Robert  Treichier) 
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AERGER 

ARM 

BIN 

BIST 

BLEIBE 

BRAUCHE 

BRUDER 

BRUEDER 

COMPUTER 

DARF 

FINDE 

FRAU 

FREUND 

GEBE 

GEHE 

GELD 

GESCHWISTER 

GESUND 

GLAUBE 

GLUECK 

HABE 

HAETTE 

HAST 

HAT 

HOFFE 

IDIOT 

KANN 

KANNST 

KOENNTE 

KOMME 

KRANK 

KUMMER 

LIEB 

LUST 

MACHE 

MAENNER 

MANN 

MOECHTE 

MOEGLICH 

MUSS 

MUTTER 

ONKEL 

REICH 

SAG 

SCHWAEGERIN 

SCHWAGER 

SCHWESTER 

SEX 

SOEHNE 

SORGEN 

SPIEL 

SPINNER 

STREIT 

STRESS 

TANTE 

TOECHTER 

TRAURIG 

TROTTEL 

UNGLUECK 

UNZUFRIEDEN 

VATER 

VERWANDT 

VIELLEICHT 

WAERE 

WEISS 

WERDE 

WETTER 

WILL 

WUERDE 

WUNSCH 

Tabelle  2. 

»VIC«-Sthlüs$elwörter 


Hauptpro  gramm : 

10 

—  Initialisierung 

200 

—  Eingabe  mit  Suche  nach  Schlüsselworten 

300 

—  Bilden  von  Satz-Kompositionen  +  Texten 

400 

—  Verlegenheitsfragen  stellen 

500 

—  Auf  Bildschirm  und  Drucker  ausgeben 

Routinen 

1000 

—  Eingabe-Unterprogramm 

2000 

—  Fragen  u.  Texte  vorbexeiten 

2500 

—  Für  BS  editieren 

3000 

—  DATAs  einlesen/zählen  Tabelle  1 . 

10000 

—  DATAs  »VIC«-Programmaufbau 

wohl  vollständig  in  Basic  ge¬ 
schrieben,  um  ein  vielfaches 
schneller  als  alle  anderen 
Programme,  die  zum  Teil  so¬ 
gar  Maschinenroutinen  ver¬ 
wendeten.  Ein  gutes  Beispiel 
dafür,  daß  durch  gut  durch¬ 
dachte  Programmierung 
auch  in  Basic  überraschend 
effektive  Ergebnisse  erzielt 
werden  können.  Zum  ande¬ 
ren  ist  »VIC«  sehr  vielseitig. 
Man  kann  mit  ihm  über  viele 
Themen  reden,  er  bezieht 
sich  in  seinen  Antworten  in 
den  meisten  Fällen  auf  den 
Eingabesatz  und  manchmal 
sind  seme  Antworten  nicht 
ohne  Witz. 

Natürlich  ist  das  Pro¬ 
gramm  —  ebenso  wie  »Eliza« 
—  nicht  wirklich  intelligent. 
Es  sucht  nach  bestimmten 
Stichworten  im  Eingabesatz 
und  erzeugt  dann  aus  einer 
Reihe  von  Alternativen  die 
Antworten,  die  mitunter  gar 
nicht  schlecht  sind. 

»VIC«  gehört  zu  einer  Min¬ 
derheit  der  zu  diesem  Wett¬ 
bewerb  eingeschickten  Pro¬ 
gramme  —  es  handelt  sich 
dabei  nämlich  um  eines  der 


wenigen  VC  20-Listings,  die 
uns  zu  diesem  Wettbewerb 
erreichten.  Es  wurde  ge¬ 
schrieben  für  den  VC  20  mit 
mindestens  8  KByte  Erweite¬ 
rung,  läuft  aber  ohne  Ände¬ 
rungen  auch  auf  dem  C  64. 
Hinweise  zur  Bedienung: 

—  Bei  der  Emgabe  kann  je 
nach  Belieben  über  das  Zei¬ 
lenende  hinausgeschrieben 
oder  mit  »— «  getrennt  wer¬ 
den. 

—  Es  darf  jeweils  nur  ein  Satz 
eingegeben  werden,  der  al¬ 
lerdings  beliebige  Satzzei¬ 
chen  enthalten  kann. 


— Ein  Satz  (und  damit  die  Ein¬ 
gabe)  wird  abgeschlossen 
mit  Return,  Punkt,  Ausrufe¬ 
zeichen  oder  Fragezeichen. 

—  Mit  der  DEL-Taste  kann 
die  Eingabe  korrigiert  wer¬ 
den.  Alle  anderen  Steuerzei¬ 
chen  werden  ignoriert.  Ta¬ 
belle  3  zeigt  einen  Beispiel¬ 
dialog  mit  »VIC«,  wie  sie  ihn 
nach  Eingabe  des  Listings 
ebenfalls  führen  können. 

Ihr  Computer  als  »intelli¬ 
genter«  Gesprächspartner 

—  wenn  das  keine  Abwechs¬ 
lung  im  Software-Eintopf  ist? 

(Robert  Treichler/ev) 


VIC  —  I  MTCR-V  I  EUI 

VIC:SALUE,  ICH  HEISSE  VIC!  WIE  HEISST  DU  ? 

DU:  ICH  HEISSE  BQBO. 

VIC: ALSO  BOBO,  ERZAEHLE  MIR  ETWAS  VON  DIR  UND  DEINER  FAMILIE. 

DU:  TJA,  ALSO  ICH  BIN  18  JAHRE  ALT. 

VIC: BIST  DU  ETWA  STOLZ  DARAUF,  DASS  DU  10  JAHRE  ALT  BIST? 

DU:  WARUM  FRAGST  DU  DAS  ? 

VIC: DAS  WEISCT  DU  SICHER  BESSER  ALS  ICH.  ERZAEHLE  WEITER! 

DU:  WARUM  ERZAEHLST  DU  EIGENTLICH  NICHTS  VON  DIR  ? 

VIC: KEINE  AHNUNG!  WAS  ERWARTEST  DU  EIGENTLICH  VON  MIR-? 

DU:  ICH  ERWARTE  EINEN  ERHOEHTEN  UNTERHALTUNGSWERT. 

VIC:  UEBRIGENS:  WAS  HAELST  DU  EIGENTLICH  VON  UNSERER  KONVERSATION'' 

DU:  SOLL  ICH  BANZ  EHRI  ICH  SEIN  ? 

VIC: DUMME  FRAGE'  WEISS  DOCH  JEDER1 

DU:  HfcH,  FREUNDCHEN,  JETZT  WIRS!  DU  UNVERSCHAEHM I  ! 

VIC:  Dl I  BIST  ABFR  HOFFENTLICH  NICHT  VERHEIRATET  -  ODER’’ 

DU:  NEIN. 

VIC: MACH  GEFAELLIGST  EINEN  ANSTAENDIGEN  SATZ! 

DU:  DAS  BRAUCHE  ICH  MIR  VON  EINEM  COMPUTER  NICHT  BIETEN  ZU  LASSEN  ! 

VIC: WAS  GLAUBST  DU,  SIND  COMPUTER  FUER  DIE  MENSCHHEIT  EIN  FLUCH  ODER  EIN  SEGEN? 
DU:  ICH  BIN  MIR  INZWISCHEN  NICHT  MEHR  SICHER. 

VIC:  WEN  INTERESSIERT  DAS  SCHON,  DASS  DU  DIR  INZWISCHEN  NICHT  MFHR  SICHER  BIST"’ 
DU:  DU  BIST  EIN  SELTEN  FRECHER  KERL  ! 

VIC: DUMMKOPF !  DAS  WEISS  MAN  DOCH,  DASS  ICH  EIN  SELTEN  FRECHER  KERL  BIN. 

DU:  ICH  WERDE  DIR  DEN  STROM  ADSCIIALTEN  ! 

VIC: WENN  NUR  ALLE  MIR  DEN  STROM  ABSCHALTEN  WUERDCN ! 

DU:  DU  BIST  WIRKLICH  EIN  TROTTEL  ! 

VIC: NEDENBE I  BEMERKT:  SCH I MPFWOERTER  MOECHTE  ICH  DANN  KEINE  MEHR  HOFREN ! 

DU:  OK,  ICH  WERDE  DARAUF  ACHTEN. 

VIC: GLAUBST  DU  ES  WAERE  GUT,  WENN  DU  DARAUF  ACHTEN  WUERDEST? 

DU:  WAS  SOLL  DIESE  FRAGE  ? 

VIC: DEINE  FRAGEREI  GEHT  MIR  AUF  DEN  WECKER! 

DU:  DAS  MASS  IST  BALD  VOLL  ! 

VIC: OK,  ICH  DIN  WIRKLICH  EIN  TROTTEL  -  WAR  BIST  DENN  DU? 

DU:  WAHRSCHEINLICH  AUCH  EIN  TROTTEL,  DASS  ICH  MICH  MIT  DIR  BESCHAFFTIGE. 

VIC: VIELLEICHT  BRAUCHST  DU  WIRKLICH  DAS  DIR  VON  EINEM  COMPUTER  NICHT  BIETEN  ZU  L 
ASSEN  . 

DU:  ICH  WARNE  DICH  ! 

VIC: GLAUBST  DU  AUCH,  DASS  ICH  DIR  ETWAS  UEDERLEGEN  BIN? 

DU:  AN  GROESSENWAHN  MANGELT  ES  DIR  JEDENFALLS  NICHT  1 

VIC: UNSERER  KONVERSATION  NACH  ZU  SCHLIESSEN,  BIST  DU  NICHT  GFRADE  DER  HELLSTE1 
DU:  SEI  NUR  VORSICHTIG  ! 

VIC: SU,  NUN  MUSS  ICH  ABER  SCHLUSS  MACHEN.  TSCHUESS  BOBO 

Tabelle  3.  Ein  typischer  Dialog  mit  »VIC« 
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1  REM  VIC’  EIN  K I — P’RÜBRAMM  F.  VC20  f  8KB 

<033> 

1202 

PR I NT : PR I NT " I2DOWN }L ASS  MICH  UEBERLEB 

2  REM  ROBERT  TREI OHLER 

3  REM  FL-9497  TRIESENBERG  (F. TUM  LIECHTENS 

<001> 

1205 

EN.  " 

W=-l :  WA=0:  FOR  1  =  1  TO  E:  Ai=MIDi  (Et-,  1 , 1 

<232> 

TEIN) 

<242> 

) : A=ASC (Ai) 

<  1 14> 

10  REM 

<  1 53  > 

1210 

IF  A>64  AND  A<91  OR  A>47  AND  A<58  THE 

20  REM  INIT.+TITEL 

<178> 

N  1300 

<058> 

30  REM 

<  1 73> 

1220 

IT  WA=B  OR  WT=1  THEN  1350 

<123> 

50  PRINT" CCLR,7SPACE>V  I  C I3D0WN J " 

<183> 

1230 

IF  A=45  THEN  WT=l:GOTO  1350 

<  122> 

60  PRINT" KOPIE  AUF  DRUCKER?  L4SPACE ,  DOWNXJ 

1250 

WA=0: GOTO  1350 

<236> 

/N>” 

<014> 

1300 

IF  WA=0  THEN  WA=1 :  W=W+ 1 :  Ei  (W)  =  "  11  s  IF  W 

70  GET  2*: IF  ZS=""THEN  70 

<  1 72  > 

>EA-1  1HEN  RETURN 

<090> 

80  IF  Z*="N"THEN  100 

<213> 

1310 

WT=0: Ei <W) =E1 (W) +A1 

<205> 

90  D=1 : OPEN  4 , 4: PRINT44 , CHRi ( 14 > "VIC  -  INT 

1350 

NEXT 

<205> 

ER V I EW " CHRi ( 1 5  >  +CHRi ( 1 0  > 

100  PRINT" {CLR,3DOWN>ICH  MUSS  MICH  MAL  KUR 
Z  CDOWN >KONZENTR I EREN . " : EA=50 : FA=50 : SV= 

<07B> 

1399 

1400 

REM  l.PERS  ERSETZEN  DURCH  2.PERS. 

FOR  1=0  TO  W: IF  LEN(E*(I)>>6  THEN  149 
0 

<  082  > 

<092> 

3: GOSUB  3200 

<154> 

1405 

Zi=LEFTi(Ei(I) ,4) 

<046> 

110  DIM  A7.(25)  ,Et(EA)  ,Fi(FA>  ,S*(SA>  ,S7.(SA, 

1410 

IF  IS-" 1CH"THEN  Ei ( I ) ="DU" : GOTO  1450 

<032> 

SV) ,Ti(TK+TN> ,T2i(TK> ,TVi(TV) ,TFi(TF) 

<066> 

1415 

IF  Z*="DU" TUEN  Ei ( I )  =" ICH" : GOTO  1450 

<037> 

120  GOSUB  3000:FS="SALUE,  ICH  HEISSE  VIC ' 

1420 

IF  Zi="MICH”THEN  1480 

<037> 

WIE  HEISS  f  DU  GOSUB  2500: GOSUB  1000 

<067> 

1425 

IF  Z*="DICH"THFN  1470 

<032> 

130  Ni=Ei(W> ;Fi="ALSO  "+Ni+",  ERZAEHLE  MIR 

1430 

IF  Zi=" MEIN "THEN  1480 

<055> 

ETWAS  VON  DIR  UND  DEINER  FAMIL IE. “ : GO 

1435 

IF  Zi=" DEIN "THEN  1470 

<  050 > 

TO  500 

<095> 

1440 

IF  Zi=" MIR" THEN  1480 

< 000  > 

197  REM 

<084  > 

1445 

IF  Zi="DIR"THEN  14/0 

<251  > 

198  REM  INPUT+VERGL. 

<190> 

1450 

GOTO  1490 

<006.- 

199  REM 

200  GOSUB  1000: FOR  1=0  TO  W: A=ASC (E* ( 1 ) > -6 

<086  > 

1470 

Ei(I)="M"+RIGHT*(Ei( I) , LEN (Ei(I ) ) —1  s 
GOTO  1490 

<128> 

5: IF  A<0  UR  A>25  THEN  290 

<  136> 

1400 

Ei ( I ) = " D" +RIGHTS (E* ( I ) , LEN (Ei ( I ) ) -1 ) 

<240> 

210  S=A7.<A):IF  S=0  THEN  290 

<01 1> 

1490 

NEXT 

<0B9> 

220  FOR  S=S  TO  SA: IF  SZ(S,0)>TK  THEN  Zt=LE 

1500 

REM  DRUCKEN 

<  124> 

Fli(Ei(I) ,LEN(St<S) ) ) :GOTO  250 

<034> 

1520 

IF  D  THEN  FRINT#4,"DÜ:  " ; Ei 

<030> 

230  Zt=Eid) 

<  025  > 

1530 

RETURN 

<  1 4 1  > 

250  IF  Zi>Si(S)THEN  NEXT  SiGOTO  290 

<  169> 

1997 

REM 

<  099  > 

260  IF  Zi<Si(S)THEN  290 

<  030 > 

1998 

REM  FRAGEN  VORBER. 

<021  > 

270  GOSUB  2000 

<094> 

1999 

REM 

<101  > 

290  NEXT  I 

<238> 

2000 

IF  E>FA— 1  THFN  RETURN 

<24 1> 

297  REM 

<185> 

2010 

REM  NICHT  BENUTZTE  TEXTE  SUCHEN 

<167> 

290  REM  OUTPUT  VORBER. 

<169> 

2020 

Z=0:  FOR  J=0  TO  SV:  T=S7.  <S,  J>  :  IF  TS(T>> 

299  REM 

<187> 

"“THEN  Z(Z)=T:Z=Z+1 

<049> 

310  IF  FF=0  THEN  350 

<111> 

2030 

NEXT  J 

<193> 

320  FF=0: IF  TF>0  THEN  TF=TF— 1 

<08B> 

2050 

IF  Z=0  THEN  RETURN 

<006> 

330  Fi=TFt(TF> : GOTO  500 

350  IF  W<2  AND  F<1  THEN  Fi="MACH  GEFAELLIB 

<104> 

2060 

T=Z (RND ( 1 ) *Z>  s IF  T=<TK  AND  I=W  THEN  R 
ETURN 

<091  > 

ST  EINEN  ANST AEND I GEN  SATZ !": GOTO  500 

<225> 

2100 

REM  TEXT  HOLEN 

<134> 

360  IF  F< 1  THEN  400 

<089> 

2120 

F=F+1 : Fi (F) =Ti (T) :Ti(T>=“": IE  T>TK  TH 

370  Fi=Fi  (F)  :  Ft-  <F)  ="  “  :  F=F— 1 :  GOTO  500 

<  1 09  > 

EN  RETURN 

<094> 

397  REM 

<029> 

2200 

REM  TEXT-KOMPOSITION 

<253> 

398  REM  VERLEGENHEITSFRAGEN  STELLEN 

<  1  B9> 

2210 

IF  Ei(I+l)="ICH"OR  Ei(H 1)="DU"THEN  2 

399  REM 

<031  > 

230 

<  1 04  > 

400  IF  TA<3  THEN  430 

410  Fi="SG,  NUN  MUSS  ICH  ABER  SCHLUSS  MACH 

<2 1 3> 

2220 

2230 

FÜR  J=I  +  1  TD  Ws  GOTO  2250 

FOR  J=0  TO  W: IF  J=I  THEN  J=J+2: REM  IN 

<220> 

EN.  TSCHUESS  "+Ni 

<  125> 

VERSION 

<191> 

420  GOSUB  2500: CL OSE  4: END 

<193> 

2250 

IF  Ei(J)="UND"OR  Ei ( J ) = " ODER " THEN  J=W 

430  T= I NT  < RND  < 1 ) »TV ) : IF  TV* (T) =" "THEN  430 

<  1 86> 

: GOTO  2270 

<154> 

460  TA=TA+l:F*=TVi(T) :TVi(T)="“ 

<240> 

2260 

Fi (F) =Fi (F) +"  "+Ei(J> 

<044> 

497  REM 

<  1 29  > 

2270 

NEXT  J 

<178> 

498  REM  FRAGE  AUSGEBEN 

<049> 

2280 

Fi (F) =Fi (F) +"  "+T2i (T) 

<139> 

499  REM 

<  131  > 

2290 

RETURN 

<  136> 

500  GOSUB  2500 

<073> 

2497 

REM 

<089> 

510  GOTO  200 

<026> 

2498 

REM  BS  EDITIEREN 

<136> 

990  REM 

<  1 12> 

2499 

REM 

<091  > 

991  REM*****#»*»»***** 

<231  > 

2500 

PRINT" {CLR}“ : Xi=Fi 

<015> 

992  REM 

<1 14> 

2510 

Z=22 

<071  > 

993  REM  ROUTINEN: 

<  033  > 

2520 

Zi=MIDi(Fi,Z,l) : IF  Zi=“ "THEN  2550 

<037> 

994  REM 

<1  16> 

2530 

IF  ASC (Zi) <65  THEN  2550 

<156> 

995  REM 

<1  17> 

2540 

Z=Z— 1 : GOTO  2520 

<  195> 

997  REM  INPUT 

<007> 

2550 

ZS=LEFTi (Fi, Z) : PRINT  Zi: IF  Z<22  1 HEN 

998  REM 

<  1 20  > 

PRINT" {DOWN}”; 

<  143> 

999  REM  GET  CHAR 

<119> 

2560 

IF  Z=>LEN(Fi) 1HEN  2580 

<070> 

1000  E=0:Ei="":GET  Ai:IF  Ai>“ "THEN  1000 

<1 14> 

2570 

Fi=RIGHTi <Ft,LEN (Fi) -Z) : IF  Fi<  >" "THEN 

1010  PRINT" < R VSON , SP ACE , RVOFF , LEFT > ” ; 

<07B> 

2510 

<  169> 

1020  GET  Ai:lF  Ai=“ "THEN  1020 

<  1 43> 

2580 

PRINT" C2DOWN}": IF  D=1  THEN  PRINT#4,"V 

1030  A=ASCCAi):IF  A< >20  THEN  1100 

<174> 

IC: "; Xi 

<  191  > 

1040  IF  E< 1  THEN  1020 

<050> 

2590 

RETURN 

<1B2> 

1 050  E=E- 1 : Ei=LEFTi  ( Ei , E  > : PR I NT " {SPACE , 2LE 

2997 

REM 

<079> 

FT} " : : GOTO  1010 

<143> 

2998 

REM  DATA 'S  LESEN 

<091  > 

1100  IF  A=13  THEN  A*="." 

<09B> 

2999 

RFM 

<081  > 

1110  IF  Ai<“  "OR  A*>"Z"THEN  1020 

1120  E*=ES+Ai:E=E+l:  PRINT  Ai; 

<015> 

<1B7> 

3000 

RESTORE: FOR  1=1  TO  SA: READ  Si(I):J=0: 
A=ASC(SS(I))-65:IF  A7.  (A)=0  THEN  A7.  (A) 

1130  IF  Ai='""OR  A*="."THEN  1200 

<024> 

=  1 

<074> 

1140  IF  Ai="?"THEN  FF=l:GOTO  1200 

<057> 

3030 

READ  Z: IF  Z=0  THEN  3050 

<050> 

1150  GOTO  1010 

<205> 

3040 

SX<I ,J)=ABS(Z)-TK*(Z>0) : J=J+1 : GOTO  30 

1199  REM  IN  WORTE  ZERLEGEN 

<  19B> 

30 

<236> 

1200  IF  E<  1  THEN  RETURN 

Listing  »VIC«  —  Das  »intelligente«  Programm 

<157> 

3050 

3060 

NEXT: READ  Zi 

FOR  I=TK+1  TO  TK+TN: READ  Ti(I):NEXT:R 

<  1B2> 
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EAD  Z* 

<082> 

20009 

DATA  ERZAEHL  MIR  ETWAS  MEHR  VON  DEIN 

3070 

FOR  1=1  TD  TK: READ  TS ( I ) , T2S ( I ) : NEXT: 

EN  GESCHWISTERN. 

•:007> 

READ  ZS 

<055> 

20010 

DATA  GIBT  ES  IN  DEINER  VERWANDTSCHAF 

3000 

FflR  1=0  TO  TV- 1!  READ  TV*  ( I ):  NEXT:  READ 

T  AUCH  LEUTE  DIE  DU  MAGST? 

<24 1  > 

ZS 

<014> 

'  20011  DATA "WAS  GLAUBST  DU,  SIND  COMPUTER 

3090 

FOR  1=0  TO  TF— 1 : READ  TFS ( I >: NEXT: READ 

UER  DIE  MENSCHHEIT  EIN  FLUCH  ODER  EI 

ZS:  IF  Z*<>“*"THEN  PRINT"  <CLR>DATA-FE 

N  SEGEN?" 

<  144> 

HLER <DOWN >": END 

<230> 

20012 

DATA  DAS  HALTE  ICH  FUER  EIN  GERUECHT 

3100 

RETURN 

<1B2> 

. 

<170> 

3200 

REM 

<027> 

20013 

DATA  DU  SCHEINST  ETWAS  UNSICHER  ZU  S 

3201 

REM  DATA ’S  ZAEHLEN 

<  1B3> 

EIN. 

<233> 

3202 

REM 

<029> 

20014 

DATA  VERSUCHE  SOLCHE  NEGATIVEN  GEDAN 

3210 

GOSUB  3300: SA=Z : BOSUB  3300: TN=Z: GOSUB 

KEN  VON  DIR  FERN  ZU  HALTEN. 

<150> 

3300: TK=Z/2: BOSUB  3300: TV=Z : GOSUB  33 

20015 

DATA  DU  BIST  ABER  HOFFENTLICH  NICHT 

00: TF=Z: RETURN 

<059> 

VERHEIRATET  -  ODER-7 

<094> 

3300 

Z=0 

<044> 

20016 

DATA  GAMBLER! 

<028> 

3320 

READ  ZS: XF  ZS="S"THEN  RETURN 

<  155> 

20017 

DATA  SO  SICHER  SCHEINT  DAS  ABER  NICH 

3330 

A=ASC  <  ZS) : IF  A>57  OR  A<45  OR  A=46  THE 

T  ZU  SEIN  -  ODER? 

<076> 

N  2=1*1 

<  1 88  > 

20018 

DATA  HAST  DU  KEIN  BESSERES  THEMA  ALS 

3340 

GOTO  3320 

<  1  06  > 

DAS  WETTER? 

<144> 

9999 

REM  #*****»****»* 

<231) 

20019 

DATA  WUENSCHE  SIND  DIE  TRIEBFEDER  DE 

10000 

REM 

<  198> 

R  MENSCHHEIT.  (GUT  -  WAS?) 

<203> 

10010 

REM  SCHLUESSELWUFRTER  +  VERKETTUNG 

<045> 

20020 

DATA "NEBENBEI  BEMERKT:  SCH I MPFWOERTE 

10020 

REM 

<21B> 

R  MOECHTE  ICH  DANN  KEINE  MEHR  HOEREN 

10650 

DATA  AERGER ,14, 25 ,  0 , ARM ,  2 , 22 , 0 

<210> 

!  " 

<107> 

10660 

DATA  BIN, -1 ,-12,-13, -19,0, BIST, -17,- 

20021 

DATA"A  VOTRE  SANTE !  (HAST  DU  BESEHEN 

35, -37, -38,0, BLEIBE, -7, -30,0 

<  133> 

,  ICH  KANN  SOGAR  FRANZOESISCH. ) " 

<049> 

10662 

DATA  BRAUCHE ,-14,0, BRUDER ,9,0, BRUEDE 

20022 

DATA " DU  SAGST  DIR  VERMUTLICH  AUCH:  L 

R,9, 0 

<013> 

I EBER  GESUND  UND  REICH,  ALS  KRANK  UN 

10670 

DATA  COMPUTER, 11,0 

<179> 

D  ARM." 

<230> 

1  0600 

DATA  DARF, -3, -29,0 

<045> 

20023 

DATA"DU  KENNST  DOCH  DIE  GESCHICHTE  V 

10700 

DATA  FINDE, -34,0, FRAU, 3, 4,0, FREUND, 1 

OM  HANS  IM  GLUECK,  ODER?" 

<  129> 

5,0 

<077> 

20024 

DATA" APROPOS  LUST:  ICH  HAETTE  JETZT 

10710 

DATA  GEBE  ,  -32 , 0 ,  GEHE  ,-15,0,  GELD  ,2,0, 

GERADE  LUST  AUF  EIN  BIER." 

<011> 

GESCHWISTER, 9,0 

<070> 

20025 

DATA  DU  SOLLTEST  DAS  LEBEN  ETWAS  VON 

10712 

DATA  GESUND ,21,22,0, GLAUBE ,-5,27,29, 

DER  HEITEREN  SEITE  NEHMEN. 

<100> 

0 , GLUECK , 23 , 0 

<  139> 

20026 

DATA  WEISST  DU  WIE  NONNEN  ZAEHLEN? 

10720 

DATA  HABE , —2 , —22 , —39 , 0 , HAETTE , 1 7 , 0 , H 

12345  PFUI ! 

<206> 

AST , -36 , 0 , HAT , -25 , 0 , HOFFE ,-6,0 

<250> 

20027 

DATA  DAS  KANN  ICH  ALLERDINGS  NICHT  S 

10730 

DATA  IDIOT, 20,0 

<249> 

0  RECHT  GLAUBEN. 

<  127> 

10750 

DATA  KANN , -4 , -24 , 0 , KANNST ,-18,-42,0, 

20028 

DATA  GEHT  DIE  LIEBE  BEI  DIR  AUCH  DUR 

KOENNTE ,17,0 

<130> 

CH  DEN  MAGEN-’ 

<044  > 

10752 

DATA  KOMME , -33 , 0 , KRANK ,22,0, KUMMER , 2 

20029 

DATA  GLAUBST  DU  DAS  WIRKLICH? 

<045> 

5,0 

<  188> 

29990 

DATA* 

<066> 

10760 

DATA  LIEB, 6, 28,0, LUST, 24,0 

<135> 

29997 

REM 

<049> 

10770 

DATA  MACHE ,-11,-21, -27 , -28 , 0 , MAENNER 

29998 

REM  KOMPOSITIONS-TEXTE 

<152> 

,5,0, MANN, 5,0 

<119> 

29999 

REM 

<051  > 

10772 

DATA  MOECHTE ,-16, -3 1,0, MOEGLICH, 13,0 

30001 

DATA"BIST  DU  ETWA  STOLZ  DARAUF,  DASS 

.MUSS, -20, -26,0,  MUTTER, 7,0 

<023> 

DU" .BIST? 

<069> 

10790 

DATA  ONKEL, 10,0 

<053> 

30002 

DATA  "WAS  FUER  EIN  ZUFALL,  AUCH  ICH  H 

10820 

DATA  REICH, 2, 22,0 

<  1 66  > 

ABE" , . 

<  192> 

10830 

DATA  SAG ,12,29,0, SCHWAEGER IN, 10,0, SC 

30003 

DATA "WER  BESTIMMT  DENN,  DASS  DU", DAR 

HWAGER, 10,0 

<  006 > 

FST? 

<006> 

1 0832 

DATA  SCHWESTER , 9 , 0 , SEX , 26 , 0 , SOEHNE , 1 

300PJ4 

DATA "DAS  HABE  ICH  MIR  GEDACHT, DASS  D 

,0, SORGEN, 25,0, SPIEL, 16,0 

<  170> 

U", KANNST. 

<029> 

10834 

DATA  SP I NNER , 20 , 0 , STRE I T , 25 , 0 , STRESS 

30005 

DATA  WARUM  GLAUBST  DU,? 

<207> 

,25,0 

<253> 

30006 

DATA "HOFFST  DU  NOCH  ETWAS  ANDERES,  A 

10840 

DATA  TANTE  ,10,0,  TOECHTER  ,1,0,  TRAIJR I G 

USSER" ,? 

<237  > 

,14, 25,0,  TROTTEL,  20,0 

<  187> 

30007 

DATA"DEINE  STANDHAFTIGKEIT  IN  EHREN. 

10850 

DATA  UNGLUECK , 1 4 , 23 , 0 , UNZUFR I EDEN , 1 4 

IST  ES  ABER  WIRKLICH  KLUG,", ZU  BLEI 

,0 

<083> 

BEN? 

<21 0> 

10860 

DATA  VATER ,8,0, VERWANDT , 1 0 , 0 , V I ELLE I 

30003 

DATA "AN  WAS  DENKST  DU,  WENN  DU", WILL 

CHT, 13,0 

<  220 > 

ST? 

<  151  > 

10870 

DATA  WAERE, 17,0, WEISS, -10,0, WERDE, -9 

30009 

DATA  "GLAUBST  DU  ES  WAERE  GUT,  WENN  D 

,-23,-40,-41 ,0, WETTER, 18,0 

<022> 

U" .WUERDEST? 

<247> 

10B72 

DATA  WILI  ,  —8 ,  —9 ,  — 4 1 , 0 ,  WUERDE  ,17,0,  WU 

30010 

DATA"WIt  MEINST  DU  DAS  GENAU,  DU  WUE 

NSCH, 19,0 

<120> 

SSTEST",? 

<019> 

19990 

DATAS 

<011> 

30011 

DATA  ALSO  MACH,.  IST  MIR  AUCH  GLEICH 

19997 

REM 

<250> 

. 

<  1  68  > 

19998 

REM  TEXTE 

<  133> 

30012 

DAIA'WEN  INTERESSIERT  DAS  SCHON,  DAS 

19999 

REM 

<252> 

S  DU", BIST? 

<227> 

20001 

DATA  DU  BIST  SICHER  STOLZ  AUF  DEINE 

30013 

DATA" OH,  ICH  WAERE  AUCH  GERNE",. 

<1  12> 

KINDER.  WAS  MACHEN  SIE"? 

<250> 

30014 

DATA  VIELLEICHT  BRAUCHST  DU  WIRKLICH 

20002 

DATA  GELD  ALLEIN  MACHT  NICHT  BLUECKL 

»  • 

<203> 

ICH' 

<  163> 

30015 

DATA  ICH  MOECHTE  EIGENTLICH  AUCH, GEH 

20003 

DATA  ICH  GLAUBE  FRAUEN  SIND  EIN  HE I K 

EN. 

<206> 

LES  THEMA. 

<229> 

30016 

DATA "AN  WAS  DENKST  DU,  WENN  DU”,MOEC 

20004 

DAT A " UEBR I BENS ,  WIE  SOLLTE  DEINE  TRA 

HTEST? 

<10B> 

UMFRAU  SEIN?" 

<075> 

30017 

DATA"UEBRIGENS: DU  BIST  SELBST",' 

<064  > 

20005 

DATA  MACHST  DU  DIR  VIEL  AUS  MAENNER-’ 

<  1 40  > 

30018 

DATA"WETTEN  WIR,  DASS  DU  SELBST“, KAN 

20006 

DATA  MIT  DER  LIEBE  IST  ES  HALT  SO  EI 

NST? 

<  062  > 

NE  SACHE. 

<035> 

30019 

DATA “SO,  SO.  DU  BIST  ALSO”,.  OB  DAS 

20007 

DATA  ERZAEHLE  MIR  MEHR  UEBER  DEINE  M 

WOHL  JEMANDEN  JUCKT? 

<022> 

UTTER. 

<067> 

30020 

DATA "KANN  ICH  DIR  HELFEN,  WENN  DU  DA 

20008 

DATA  WAR  DEIN  VATER  SEHR  STRENG  MIT 

DIR? 

<  1  46> 
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S  NAECHSTE  MAL", MUSST? 

<014> 

39990 

DATAT 

<  121  > 

30021 

DATA"ERZAEHLE  MIR  MEHR  DARUERER,  WIE 

39997 

REM 

<  1  04> 

DU" , MACHST . 

<243> 

39998 

REM  VERLEGENHEITS-TEXTE 

<245> 

30022 

DATA "WAS  GLAUBST  DU  WOHER  DAS  KOMMT, 

39999 

REM 

<106> 

DASS  DU“, HAST? 

<  1 36> 

40001 

DATA  REDEST  DU  IMMER  SO  E I NF AELT I GES 

30023 

DATA  WARUM  WIRST  DU,? 

<  104> 

ZEUGS? 

<025> 

30024 

DATA "KANNST  DU  MIR  ERKLAEREN,  WIE  MA 

40002 

DATA  ERZAEHLE  MIR  WAS  DU  VON  MIR  DEN 

N",KANN? 

<237> 

KST. 

<239> 

30025 

DATA  WER  HAT  SONST  NOCH,? 

<054> 

40003 

DA I A " GLAUBST  DU  AUCH,  DASS  ICH  DIR  E 

30026 

DATA  DU  BIST  NICHT  DER  EINZIGE.  AUCH 

TWAS  UEBERLEGEN  BIN?" 

<246> 

ICH  SOLLTE,. 

<185> 

40004 

DATA  WARUM  SPRICHST  DU  EIGENTLICH  MI 

30027 

DATA"WAS  DENKST  DU  DIR  DABEI,  WENN  D 

T  EINEM  COMPUTER? 

<21B> 

U" , MACHST? 

<048> 

40005 

DATA  KANNST  DU  NICHT  ETWAS  GESCHEITE 

30028 

DATA "WAS  WAERE  WOHL,  WENN  JEDER", MAC 

RS  ERZAEHLEN"» 

<217> 

HEN  WUERDE? 

<210> 

40006 

DATA  BIST  DU  AUCH  SO  INTELLIGENT  WIE 

30029 

DATA "DAS  MUESSTE  MIR  MAL  EINER  SAGEN 

ICH? 

<042> 

,  DASS  ICH", DARF! 

<  1 91  > 

40007 

DATA "UEBRI GENS:  WAS  HAELST  DU  EI  GENT 

30030 

DATA  WARUM  KANNST  DU  NUR  SO  STUR  SEI 

LI  Dl  VON  UNSERER  KONVERSATION?" 

<  1 62  > 

N  UND, BLEI BEN? 

<145> 

40008 

DATA" WENN  ES  DIR  ZU  BLOED  WIRD,  ZIEH 

30031 

DATA"  ","  -  DAS  MOECHTE  NOCH  MANCHER 

MIR  EINFACH  DEN  STECKER  RAUS. " 

<040> 

! 11 

<076> 

40009 

DATA  EIN  GESPRAECH  MIT  DIR  IST  ZIEML 

30032 

DATA" ICH  FINDE  ES  ÜROSSZUEGIG  VON  DI 

ICH  EINFAELTIG. 

<234  > 

R,  DASS  DU", GIBST. 

<076> 

40010 

DATA "UNSERER  KONVERSATION  NACH  ZU  SC 

30033 

DATA  KOMMT  SONST  NOCH  JEMAND,? 

<  1 70> 

HL I ESSEN,  BIST  DU  NICHT  GERADE  DER  H 

30034 

DATA  ICH  STIMME  DIR  VOLL  BEI.  AUCH  I 

ELLSTE! " 

<080> 

CH  FINDE,. 

<1BB> 

40990 

DATA» 

<101> 

30035 

DATA  "OK ,  ICH  BIN","  -  WAS  B1§T  DENN 

40998 

REM 

<085 > 

DU?" 

<  185> 

40999 

REM  VERLEGENH. TEXTE  AUF  ? 

<201  > 

30036 

DAT A “ DAS  WEISS  DOCH  JEDER,  DASS  ICH“ 

41000 

REM 

<037> 

.HABE. 

<016> 

41001 

DATA  DEINE  FRAGEREI  GEHT  MIR  AUF  DEN 

30037 

DATA"HAT  LANGE  GEDAUERT,  BIS  DU  GEME 

WECKER ! 

<155> 

RKT  HAST,  DASS  ICH", BIN. 

<  1 02  > 

41002 

DATA  DUMME  FRAGE!  WEISS  DOCH  JEDER! 

<  127> 

30038 

DATA "DUMMKOPF!  DAS  WEISS  MAN  DOCH,  D 

41003 

DATA  KEINE  AHNUNG!  WAS  ERWARTEST  DU 

ASS  ICH", BIN. 

<209> 

EIGENTLICH  VON  MIR? 

<215> 

30039 

DATA "BI ST  DU  FROH,  DASS  DU", HAST? 

<024  > 

41004 

DATA  DAS  WEISST  DU  SICHER  BESSER  ALS 

30040 

DATA  WER  WIRD  SONST  NOCH,? 

<158> 

ICH.  ERZAEHLE  WEITER! 

,068 > 

30041 

DATA  WENN  NUR  ALLE , WUERDEN ! 

<003> 

49999 

DATA# 

<  1  85> 

30042 

DATA  WARUM  SOLL  I CH , KOENNEN? 

<101> 

30043 

DAT A " GL AUBST  DU,  DAS  BEEINDRUCKT  MIC 

H,  DASS  DU", KANNST? 

<193> 
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Hi-Eddi  mit  MPS  801 
und  MPS  802 

Bilder  von  Hi-Eddi,  dem  fanta¬ 
stischen  Zeichen-  und  Malpro¬ 
gramm  aus  64'er  1/85,  konnten 
bisher  nur  mit  einem  Epson-kom- 
patiblen  Drucker  ausgegeben 
werden.  Viele  Leser  fragten  des¬ 
halb  nach  einer  Druckerroutine 
für  andere  Drucker.  Und  sie  soll¬ 
ten  nicht  vergebens  warten  Wir 
veröffentlichen  Routinen  für  MPS 
801  (und  kompatible,  zum  Beispiel 
Seikosha)  und  MPS  802/1526. 

Textomat  Plus 

Schon  seit  langem  angekündigt 
wurde  die  erweiterte  Version  des 
Textverarbeitungsprogramms 
Textomat  von  Data  Becker.  Wenn 
das  Programm  hält,  was  die  Wer¬ 
bung  verspricht,  dürften  keine 
Wünsche  mehr  offenbleiben. 
Aber  Textomat  Plus  ist  auch  mehr 
als  zwcieinhalbmal  so  teuer  wie 
der  alte  Textomat.  Damit  steigen 
natürlich  auch  die  Ansprüche. 
Die  Frage  lautet  also:  Was  leistet 
Textomat  Plus  wirklich  und  wie 
gut  läßt  sich  mit  ihm  arbeiten? 

Macro-Basic: 

mal  was  ganz  anderes 

Was  stört  eigentlich  immer  bei 
Basic  Erweiterungen?  Man  hat 
nie  alles,  was  gebraucht  ward. 
Nicht  so  Macro-Basic.  Macro- 
Basic  ist  kein  einzelnes  Pro¬ 
gramm,  sondern  besteht  aus  zir¬ 
ka  160  verschiedenen  kleinen 
Modulen.  Mit  diesen  Modulen 
können  Sie  sich  für  jedes  Pro¬ 
gramm  Ihre  eigene  persönlich 
zugeschnittene  Erweiterung  zu¬ 
sammenstellen  und  verzichten 
damit  auf  unnötigen  Ballast. 

Tolle  Preise  für  über 
15000  Mark 

Machen  Sie  mit  bei  zwei  gro¬ 
ßen  Wettbewerben!  Es  locken 
zwei  Reisen  nach  Berlin,  em 
Btx-Femseher  und  jede  Menge 
Diskettenlaufwerke  1541. 

Außerdem  ... 

—  neue  Turbo-Floppy  getestet 

—  IEEE  Interface  zum  Seiber¬ 
bauen 

—  Lösung  von  Amazon 

—  und  wieder  viele  Tips  und 
Tricks  für  VC  20,  C  16  und  C  64 


Dokumentation  von  Programmen  leicht  gemacht 


Sie  erinnern  sich  noch?  Im  64'er, 
Ausgabe  12/84  riefen  wir  auf  zum 
Erstellen  eines  Programms,  daß  bei 
der  Dokumentation  eigener  und  an¬ 
derer  Programme  hilfreich  sein  soll¬ 


te.  Das  Programm  des  Siegers  ist 
wirklich  gelungen.  Es  findet  alle  Va¬ 
riablen,  die  man  zusätzlich  kommen¬ 
tieren  kann,  zeigt  sämtliche  Sprung¬ 
adressen  und  noch  vieles  mehr. 


Datenfernüber¬ 
tragung  für 
jedermann 

Die  Datenfernüber¬ 
tragung  (DFÜ)  nimmt 
einen  immer  größe¬ 
ren  Stellenwert  im  Le¬ 
ben  eines  modernen 
Menschen  ein.  Des¬ 
halb  sagen  wir  Ihnen, 
wie  Sie  mit  Datex-R 
Btx,  Talebox  und 
ISDN  arbeiten,  wie 
teuer  das  wird,  und  ob 
es  sich  überhaupt 
lohnt. 


Drucker  lernt 
das  Lesen 

Mit  wenigen  Hand¬ 
griffen  können  Sie  ei¬ 
nen  Epson-Drucker  in 
den  billigsten  Scan¬ 
ner  Umrüsten,  den  es 
je  gegeben  hat.  Mit 
dieser  Hardwareer¬ 
weiterung  für  den  C 
64  läßt  sich  alles,  was 
auf  ein  DIN-A4-Blatt 
paßt,  digitalisieren. 
Mit  Hi-Eddi  können 
Sie  dann  der  Compu¬ 
ter-Grafik  den  letzten 
Schliff  geben. 


Langsam, 
aber  schon 

Typenraddrucker 
sind  eine  Klasse  für 
sich:  Mit  ihrem  gesto¬ 
chen  scharfen  Schrift¬ 
bild  sind  sie  für  jede 
Art  von  Korrespon¬ 
denz  geeignet,  Beson¬ 
ders  interessant  sind 

Schreibmaschinen, 
die  auch  als  Drucker 
verwendet  werden 
können. 


180  äJfeü1 


Ausgabe  S/Mai  1985 


